|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4430 (0x114e)
Notes: pts_type(SC)
Names: »RGSUB3.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/RGSUB3.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/RGSUB3.SC«
IDENT RGSUB3 830602 NJ DDUM KMD08 PDIV * ENTRY ASGVOL ENTRY CLSVOL EXT ASSG INCLUDE EQUATE EJECT ASGVOL PROC VOL ******************** * * ASSIGN ROUTINE - PER VOLUME * * ASSIGNS ALL FILES ON SPECIFIED VOLUME * * IF VOL=0, ONLY CONFIGURATION DATA SET * * * CALL: PERF ASGVOL,<VOLUME NUMBER> * ******************** * IB VOL, C ASG100,ASG200,ASGOK,ASGOK CBNE VOL,CBIN0,ASGNOK * ASG000 ASSIGN CONF DATASET PERF ASSG,CBIN1,DK01,CBIN1 B ASGRET * ASG100 ASSIGN ALL FILES - VOLUME 1 PERF ASSG,CBIN1,DK01,CBIN1 CONF DATASET BNOK ASGRET PERF ASSG,CBIN1,DK03,CBIN3 CYCLE DATASET BNOK ASGRET PERF ASSG,CBIN1,DK04,CBIN4 KT PLAN BNOK ASGRET PERF ASSG,CBIN1,DK10,CBIN10 BNOK ASGRET TBF CGLREGFL,ASGOK MOVE CGLRECNR,=D'0' PERF ASSG,CBIN1,DK05,CBIN5 OLD REGSET BNOK ASGRET MOVE CGLRECNR,TTGLREC B ASGRET * ASG200 ASSIGN ALL FILES - VOLUME 2 PERF ASSG,CBIN2,DK02,CBIN2 REG DATASET B ASGRET * ASGNOK CMP CBIN1,CBIN0 RET * ASGOK CMP CBIN0,CBIN0 ASGRET RET PEND EJECT CLSVOL PROC VOL ******************** * * CLOSE ROUTINE - PER VOLUME * * CLOSES ALL FILES ON SPECIFIED VOLUME * * CALL: PERF CLSVOL,<VOLUME NUMBER> * ******************** * SET CDKOFF TBF CWFLAG,CLS050 DELAY CBIN20 CLS050 IB VOL, C CLS100,CLS200,CLS300,CLS400 B CLSRET * CLS100 CLOSE ALL FILES - VOLUME 1 DSC0 DK01,CLOSE DSC0 DK03,CLOSE DSC0 DK04,CLOSE DSC0 DK10,CLOSE TBF CGLREGFL,CLS150 DSC0 DK05,CLOSE CLS150 DSC0 FD01,UNLOD B CLSRET * CLS200 CLOSE ALL FILES - VOLUME 2 DSC0 DK02,CLOSE DSC0 FD02,UNLOD B CLSRET * CLS300 CLS400 CLSRET RET PEND * END