|
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: 2048 (0x800)
Notes: MEMBER_P, Member_Text
Names: »BCPDILOD«
└─⟦c8ae05145⟧ Bits:30009820 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 5 Created 19950301 Level 01 Seq 001 of 011
└─⟦ac51fb3f2⟧
└─⟦this⟧ ».BCPDILOD«
// IFF DATAF1-PD3.COMM GOTO STEPA // LOAD $DELET // RUN // REMOVE LABEL-PD3.COMM,UNIT-F1 // END // TAG STEPA // IFF DATAF1-PD3.COM2 GOTO STEPB // LOAD $DELET // RUN // REMOVE LABEL-PD3.COM2,UNIT-F1 // END // TAG STEPB // IFF DATAF1-PD3.CCTL GOTO STEPC // LOAD $DELET // RUN // REMOVE LABEL-PD3.CCTL,UNIT-F1 // END // TAG STEPC // LOAD $COPY // FILE NAME-COPYIN,UNIT-I1,LABEL-PD3.COM2,PACK-PPOLPD, // LOCATION-?1'S1'? // FILE NAME-COPYO,UNIT-F1,LABEL-PD3.COM2,RECORDS-820,RETAIN-T // RUN // COPYFILE // END // LOAD $COPY // FILE NAME-COPYIN,UNIT-I1,LABEL-PD3.CCTL,PACK-PPOLPD, // LOCATION-?1'S1'? // FILE NAME-COPYO,UNIT-F1,LABEL-PD3.CCTL,RECORDS-1200,RETAIN-T // RUN // COPYFILE // END // LOAD $COPY // FILE NAME-COPYIN,UNIT-I1,LABEL-PD3.COMM,PACK-PPOLPD, // LOCATION-?1'S1'? // FILE NAME-COPYO,UNIT-F1,LABEL-PD3.COMM,RECORDS-3930,RETAIN-T // RUN // COPYFILE // END // IFF ?CD?/0000 RETURN LOGPLD LOAD,COMMPD,NONE,,'0050,##MSGPL2',,'PD3.COMM,PD3.COM2,PD3.CCTL' // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'BCPDILOD12' // LOAD $CNAD // RUN // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'BCPDMRI 12' // LOAD $CNAD // RUN // IF DATAF1-#PSPTITL IF DATAF1-PD1.SCRN IF DATAF1-PD1.SCR2 + IF DATAF1-PD1.CTRL IF DATAF1-#ONLPD GOTO STEPM // IFF ?L'61,1'?/1 GOTO SINGLE // IFF ?L'230,1'?/1 GOTO KANJI 1 // IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,02 // ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,02 // RETURN // TAG KANJI // IFF ?L'67,1'?/1 GOTO ENGLISH 1 // IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,05 // ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,05 // RETURN // TAG ENGLISH // IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,01 // ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,01 // RETURN // TAG SINGLE // IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,, // ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,, // RETURN // TAG STEPM // IFF ?CD?/0000 RETURN