|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3328 (0xd00)
Notes: MEMBER_P, Member_Text
Names: »FROMLIBR«
└─⟦7f4ab32d0⟧ Bits:30009823 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 11 Created 19950301 Level 01 Seq 001 of 011
└─⟦3adc66155⟧
└─⟦this⟧ ».FROMLIBR«
// IFF ?64?=FROMLIBR GOTO NOTHELP // ALLOCATE UNIT-I1,AUTO-YES,CONTINUE-YES // IFF ?2?/ALL LOCAL OFFSET-201,BLANK-100,+ DATA-'?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?,?12?' // ELSE LOCAL OFFSET-201,BLANK-100,+ DATA-'?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?,?12?,?13?' // IF ?1?/ALL IF ?2?/ALL IF ?4?/ GOTO PRMPHALT // IF ?1?/ALL IFF ?2?/ALL IF ?3?/ GOTO PRMPHALT // GOTO NOPROMPT // TAG NOTHELP // EVALUATE CD=0000 P60=?CLIB? P63=' 1' // IF ?1?/ GOTO PROMPT // IFF ?2?/ALL EVALUATE P63=' 3' // ELSE EVALUATE P63=' 4' // IF ?1?/ALL IF ?2?/ALL IF ?4?/ GOTO PRMPHALT // IF ?1?/ALL IFF ?2?/ALL IF ?3?/ GOTO PRMPHALT // IFF ?2?/ALL EVALUATE P63=' 6' // ELSE EVALUATE P63=' 7' // IFF ?2?/ALL IFF ?4?/F1 IF ?6?/ GOTO PROMPT // IF ?2?/ALL IFF ?5?/F1 IF ?7?/ GOTO PROMPT // GOTO NOPROMPT // TAG PRMPHALT // IF ?64?/FROMLIBR #ERR 1509,23 // IF ?CD?=1012 RETURN // TAG PROMPT // IF JOBQ-NO IF EVOKED-NO HELP FROMLIBR,?1?,?2?,?3?,?4?,?5?,?6?,+ ?7?,?8?,?9?,?10?,?11?,?12?,?13? // ELSE #ERR 1510,3,,'?63?FROMLIBR' // RETURN // TAG NOPROMPT // LIBRARY NAME-0 // MEMBER USER1-##MSG2 // IF JOBQ-NO IF EVOKED-NO * 2540 // IF ?2?/ALL #FROMLIB,#POPLIB ?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?,+ ?12?,?13?,,?15'?60?'? // IF ?2?/ALL RETURN // IF ?2'SOURCE'?/SOURCE EVALUATE P2=S // ELSE IF ?2?/PROC EVALUATE P2=P // ELSE IF ?2?/LOAD EVALUATE P2=O // ELSE IF ?2?/SUBR EVALUATE P2=R // IFF ?2?/S IFF ?2?/P IFF ?2?/R IFF ?2?/O IFF ?2?/LIBRARY #ERR 2550,23 // IF ?CD?=1012 RETURN // IF ?2?/LIBRARY EVALUATE P2=ALL // IFF ?2?/S IFF ?2?/P IFF ?2?/ALL IFF ?11?/ #ERR 2541,23 // IF ?CD?=1012 RETURN // IFF ?4'I1'?/I1 IFF ?4?/F1 IFF ?4?/T1 IFF ?4?/T2 IFF ?4?/TC + #ERR 1515,23 // IF ?CD?=1012 RETURN // IFF ?4?/F1 IFF ?9'AUTO'?/AUTO IFF ?9?/NOAUTO #ERR 1506,23,,' 9' // IF ?CD?=1012 RETURN // IFF ?4?/I1 IFF ?8?/ #ERR 1512,23 // IF ?CD?=1012 RETURN // IFF ?10?/ IFF ?4?/T1 IFF ?4?/T2 IFF ?4?/TC #ERR 1511,23 // ELSE IFF ?10'REWIND'?/REWIND IFF ?10?/LEAVE IFF ?10?/UNLOAD #ERR 1516,23 // IF ?CD?=1012 RETURN // IF ?10?/UNLOAD IF ?4?/TC EVALUATE P10=REWIND // IFF ?4?/F1 IF ?5'1'?>999 #ERR 2538,23 // ELSE IFF ?4?/F1 IFF ?5?/0 IFF ?5?>0 IFF ?5?/ADD #ERR 2538,23 // ELSE IF ?4?/F1 IFF ?5'T'?/P IFF ?5?/T IFF ?5?/S IFF ?5?/J IFF ?5?/ADD + #ERR 2536,23 // IF ?CD?=1012 RETURN // IFF ?12?/ IFF ?12?/SVATTR #ERR 2404,23,,'12' // IF ?CD?=1012 RETURN // LOAD $MAINT // IFF ?3?/ FILE NAME-?3?, // ELSE FILE NAME-?1?, // IF ?4?/I1 PACK-?6?,LOCATION-?8'S1'?, // IF ?4?/F1 IFF ?5?/ADD BLOCKS-?6'8'?, // IFF ?5?/ADD RETAIN-?5?, // IFF ?4?/F1 IF ?9?/NOAUTO AUTO-NO, // IF ?4?/F1 IFF ?5?/ADD IFF ?5?/J DISP-NEW, // ELSE IF ?4?/F1 IF ?5?/ADD DISP-OLD, // IFF ?4?/F1 IFF ?4?/I1 VOLID-?6?,RECL-256,BLKL-4096,RECFM-FB,END-?10?, // UNIT-?4? // RUN // COPY NAME-?1?,LIBRARY-?2?,FROM-?7'?60?'?,FILE-?3'?1?'?, // IF ?5?/ADD ADD-YES, // IFF ?11?/ RECL-?11?, // IF ?12?/SVATTR IFF ?11?/ SVATTR-YES, // ELSE IF ?12?/SVATTR IF ?11?/ IF ?5?/ADD SVATTR-YES, // IF ?1?/ALL IF ?2?/ALL IF ?7?/#LIBRARY OMIT-SYSTEM, // IFF ?4?/I1 IFF ?4?/F1 TO-TAPE // ELSE TO-DISK // END