DataMuseum.dk

top - metrics - download

    Length: 7914 (0x1eea)
    Notes: pts_type(SC)
    Names: »RGSUB4.SC«

└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
    └─⟦this⟧ »NJREMIT/RGSUB4.SC« 
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »REMIT2/RGSUB4.SC« 

PTS(SC)

	IDENT RGSUB4 	03.01.XXX.1
 DDUM KMD08 
 PDIV 
 ENTRY SOPRD
 ENTRY LAMPOF 
 ENTRY LAMPON 
 ENTRY ASSG 
 ENTRY ASGVOL 
 ENTRY CLSVOL 
* 
 EXT SPERR
* 
 INCLUDE EQUATE 
* 
          EJECT 
* 
*               ASSG - ASSIGN  ROUTINE
*        THE ROUTINE ATTEMPTS TO CONNECT THE SPECIFIED
*        DATASETNAME TO A VOLUMENAME. 
*-*        IT TRIES ON ALL VOLUMES CONNECTED. 
*          ON SPECIFIED VOLUME
* 
*        ALTERED PARAMETERS: NONE 
* 
*        ALTERED FIELDS: SPBINW4 - OK - DATASETNR    NOK - 21 
*                        GSWBIN1 - OK - ATTEMPTNR    NOK - 5
*                        ASFNAME - DATASETNAME
*                        ASVOL   - OK - VOLUMENAME   NOK - X'00'
*                        GTWBCD1 - OK - N/A          NOK - ATTEMPT+1
*                        GTWBCD2 - OK - N/A          NOK - DATASETNR
* 
*       C/R: OK - 0, NOK - 4
* 
*-*       CALL :    PERF ASSG,<DAT4ASETNAME>,<DATASETNR>
*          CALL:     PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.>
* 
*********************************************************** 
* 
*-*ASSG PROC DK,DNR 
*-* MOVE SPBINW4,CBIN0 INITIATE 
*-* MOVE GSWBIN1,CBIN1
*-* DSC0 DK,CLOSE CLOSE FIRST 
* 
ASSG PROC VOL,DK,DNR
 MOVE SPBINW4,CBIN0 INITIATE
 MOVE GSWBIN1,VOL 
* 
ASSG10
 MOVE ASVOL,CVOL(GSWBIN1) 	MOVE VOLUMENAME
* 
 MOVE GSWBCD3,ASVOL 
 CBL GSWBCD3,=D'1',ASSGRET
 MOVE GTWBCD1,ASVOL GET VOLUME NAME 
 MOVE GTWBCD2,DNR GET DATASET NUMBER
 EDIT ASFNAME,FDFMT SET UP FILENAME 
 DSC0 DK,CLOSE CLOSE FIRST
* 
 ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL
 BOK ASSGRET 	 IF OK, RETURN
*-* ADD GSWBIN1,CBIN1 
*-* CBG GSWBIN1,CBIN4,ASSGERR 
*-* MOVE ASVOL,=X'00' 
*-* CBNE CVOL(GSWBIN1),ASVOL,ASSG10 TRY ON NEW VOLUME 
ASSGERR 
*                                    ASSIGNMENT IMPOSSIBLE
 MOVE GTWBCD1,SPBINW4 	(MORE THEN 3 RETRIES)
 MOVE SPBINW4,CBIN21
 MOVE GTWBCD2,DNR 
 MOVE GSWSTR9,=C'ASSIGN ' 
 PERF SPERR 	'ASSIGN ERROR' 
 CMP CBIN1,CBIN0
 RET
ASSGRET 
 CLEAR CDKOFF DISK SWITCHED ON AGAIN
 CMP CBIN0,CBIN0
 RET
 PEND 
* 
* 
FDFMT FRMT		SET UP FILENAME 
 FCOPY =C'FD' 
 FMEL '999PPP',GTWBCD1 VOLUME PART
 FMEL '999',GTWBCD2 DATASET NUMBER
 FMEND
* 
* 
 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,ASG300,ASG400 
 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 PENGEKONTI 
 BNOK ASGRET
 TBF CGLREGFL,ASG150
 MOVE CGLRECNR,=D'0'
 PERF ASSG,CBIN1,DK05,CBIN5 OLD REGSET
 BNOK ASGRET
 MOVE CGLRECNR,TTGLREC
ASG150
 TBF CBUDGET,ASG160 
 PERF ASSG,CBIN1,DK12,CBIN12
 BNOK ASGRET
ASG160
 TBF CTEXTFLG,ASGRET
 PERF ASSG,CBIN1,DK06,CBIN6 TEXT REG
 BNOK ASGRET
 TBF CSTRKFLG,ASGRET
 PERF ASSG,CBIN1,DK07,CBIN7 INDEX FILE
 BNOK ASGRET
 PERF ASSG,CBIN1,DK08,CBIN8 STAM REG
 BNOK ASGRET
 PERF ASSG,CBIN1,DK09,CBIN9 VAR REG 
 BNOK ASGRET
 TBF CBUDTFLG,ASGRET
 PERF ASSG,CBIN1,DK11,CBIN11 POST REG 
 BNOK ASGRET
 B ASGRET 
* 
ASG200			ASSIGN ALL FILES - VOLUME 2
 PERF ASSG,CBIN2,DK02,CBIN2 REG DATASET 
 B ASGRET 
* 
ASG300			ASSIGN ALL FILES - VOLUME 3
 B ASGOK
* 
ASG400			ASSIGN ALL FILES - VOLUME 4
 B ASGOK
* 
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 DISK SWITCH OFF 
 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
 TBF CGLREGFL,CLS150
 DSC0 DK05,CLOSE
CLS150
 TBF CTEXTFLG,CLS190
 DSC0 DK06,CLOSE
 TBF CSTRKFLG,CLS190
 DSC0 DK07,CLOSE
 DSC0 DK08,CLOSE
 DSC0 DK09,CLOSE
 DSC0 DK10,CLOSE
 TBF CBUDTFLG,CLS190
 DSC0 DK11,CLOSE
CLS190
 TBF CBUDGET,CLS195 
 DSC0 DK12,CLOSE
CLS195
 DSC0 FD01,UNLOD
 B CLSRET 
* 
CLS200			CLOSE ALL FILES - VOLUME 2 
 DSC0 DK02,CLOSE
 DSC0 FD02,UNLOD
 B CLSRET 
* 
CLS300			CLOSE ALL FILES - VOLUME 3 
 B CLSRET 
* 
CLS400			CLOSE ALL FILES - VOLUME 4 
 B CLSRET 
* 
CLSRET
 RET
 PEND 
* 
 EJECT
* 
LAMPON PROC $NR 
 PLIT $NR 
**************************************
* 
* LAMPON - FIRE LAMPS ON OPR. PANEL.
* CALL - PERF LAMPON,<$NR>
* 
* THE LAMPS ARE FIRED CORRESPONDING TO 1-BITS IN PARAM
* 
***************************************** 
 MOVE GSWBIN2,$NR 
 DSC1 DSSOPO,ON,GSWBIN2 
 RET
 PEND 
* 
LAMPOF PROC $NR 
 PLIT $NR 
***************************************** 
* 
* LAMPOF - EXTINGUISH LAMPS ON OPR. PANEL 
* CALL - PERF LAMPOF,<$NR>
* 
* THE LAMPS ARE EXTINGHUISHED CORRESPONDING TO 1-BITS IN PARAM
* 
********************************************
 MOVE GSWBIN2,$NR 
 DSC1 DSSOPO,OFF,GSWBIN2
 RET
 PEND 
* 
SOPRD PROC
********************************************* 
* 
* SOPRD - READ SYSTEMS OPERATOR PANEL 
* 
********************************************* 
SOPR10
 MOVE GSWBIN1,CBIN1 
 KI DSSOPI,SOPINP,DUMTAB,GSWBIN1,GSWBIN2
 BNOK SOPR10
 RET
 PEND 
* 
* 
* 
************************************************* 
* 
*         FORMATS 
* 
************************************************* 
EORKY1 EQU X'90'
* 
DUMTAB KTAB EORKY1
* 
* 
 END