|
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: 7596 (0x1dac)
Notes: pts_type(SC)
Names: »REORGS.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/REORGS.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/REORGS.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/REORGS.SC«
IDENT REORGS UPD 80-03-20/CHST UPD 80-03-17/CHST UPD 80-03-14/PEEN UPD 80-02-01/CHST ********************************** * * * REORGANISATION OF SYSTEMFILE * * * ********************************** DDUM DDINIT PDIV ENTRY REORGS * EXT DECLRN EXT DEPOOL EXT DECLRA EXT DEDISC EXT DERR EXT DSKERR EXT CLOFIL EXT OPCL EXT GETIND EXT NOFFRE EXT DISU EXT REFSP * EXT CHANFC EXT CHVOL EXT OPENF EXT CLOSEF * REORGS PROC **************** * OPEN FILES * **************** * MOVE FVOLNAME(W1),FVOLNAME(W2) PERF OPCL,W1 SYSVOL BERR ERROR MOVE FINDEXPO(W2),FINDEXPO(W1) MOVE FFSNR(W2),FFSNR(W1) MOVE FILECODE(W2),FILECODE(W1) MOVE FNOOFREC(W2),FNOOFREC(W1) MOVE FRINF(W2),FRINF(W1) MOVE F95PROC(W2),F95PROC(W1) MOVE STRG10A,=C'SYSFIL ' CALL OPENF,DISK,FILECODE(W3),RBUF,STRG10A,FVOLNAME(W3) BOK OPENSY02 OPENSY06 CALL CLOSEF,DISK,FILECODE(W3),SYSBUF,W0 CLEAR SWITSY MOVE DEBINW4,W20 SUB FCOUNTER(W1),W1 B ERROR OPENSY02 MOVE FILECODE(W1),FILECODE(W3) PERF NOFFRE,DEBIN1,W1 MOVE FNOOFREC(W1),DEBIN1 PERF DISU,W1,W1,SYSBUF XCOPY F95PROC(W1),W0,W2,SYSBUF,W5 XCOPY FRINF(W1),W0,W2,SYSBUF,W1 MOVE DKBIN1,W1 MOVE DKBIN2,W1 PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A BNOK OPENSY06 MOVE FINDEXPO(W1),DKBIN1 PERF REFSP,W2,W1 BNOK OPENSY06 OPENSY07 CLEAR BOOLA1 MOVE FINDEXPO(W3),FINDEXPO(W1) MOVE FFSNR(W3),FFSNR(W1) MOVE FNOOFREC(W3),FNOOFREC(W1) MOVE FRINF(W3),FRINF(W1) MOVE F95PROC(W3),F95PROC(W1) C05 CBE COPY,='Y',C06 ATTFMT SYSTEM SET DEPROMPT PERF DECLRA IB DEBINW2,C05,C90 CBE ANSW,='N',C09 IF NO COPY ************************** * COPY SYSTEMVARIABLES * ************************** C06 PERF DISKIO,W19,W2 GET BERR ERROR PERF DISKIO,W20,W3 ENTER BERR ERROR **************** * VALUE-SETS * **************** C09 MOVE TABLE,=X'5400' MOVE BIN1,W0 MOVE BIN2,=W'93' C12 MOVE ELMNO,W1 ADD BIN1,W1 CBG BIN1,BIN2,C20 MOVE BCD3A,BIN1 MOVE STR6A,BCD3A XCOPY TABLE,W1,W2,STR6A,W2 C14 PERF DISKIO,W24,W2 GET BNOK C12 BERR ERROR CBE COPY,='Y',C15 MOVE BCD3A,BIN1 MOVE ANSW,HEX00 ATTFMT VALUE SET DEPROMPT PERF DECLRN IB DEBINW2,C12,C90 CBE ANSW,='N',C12 C15 MOVE BIN3,=W'26' PERF DISKIO,BIN3,W3 ENTER BERR ERROR XCOPY BIN4,W0,W2,RPOOL(PINDTB),W13 LINK NEXT CBE BIN4,W0,C12 MOVE ELMNO,W0 XCOPY ELMNO,W1,W1,RPOOL(PINDTB),W18 ADD ELMNO,W1 NEXT ELEMENT NO. PERF DISKIO,W24,W2 BNOK C12 BERR ERROR B C15 C20 MOVE JOBNAME,=X'00' ************************* * COPY JOBDEFINITIONS * ************************* C30 MOVE BIN3,=W'29' PERF DISKIO,BIN3,W2 GET BNERR C32 CBE DEBINW4,W9,C60 B ERROR C32 CBE COPY,=C'Y',C36 MOVE ANSW,=X'00' ATTFMT JOB COPY JOB ? SET DEPROMPT C34 PERF DECLRN IB DEBINW2,C34,C90 CBE ANSW,=C'N',C30 C36 PERF DISKIO,W5,W3 DELETE BEFORE ENTRY PERF DISKIO,W1,W3 ENTER BERR ERROR B C30 ****************** * COPY FORMATS * ****************** C60 PERF DEPOOL,W6,PJOBCUR,PJOBCUR,STRG10A MOVE FORMAT,=X'00' C62 PERF DEPOOL,W6,PINDFR,PINDFR,STRG10A MOVE FRMTPNTR,W0 MOVE BIN3,=W'31' NEXFMT I DEDI02 PERF DISKIO,BIN3,W2 GET C63 BNERR C64 CBE DEBINW4,W9,C90 ATTFMT FORMT DISPLAY 0,W1,W0 THOME PERF DERR IB DEBINW2,C62,C90 CBE ANSW,='N',C62 PERF DISKIO,W10,W2 GET FORMAT AGAIN B C63 C64 CBE COPY,=C'Y',C68 MOVE ANSW,=X'00' ATTFMT FORMT COPY FORMAT ? SET DEPROMPT C66 PERF DECLRN IB DEBINW2,C66,C90 CBE ANSW,=C'N',C62 C68 PERF DISKIO,W13,W3 DELETE BEFORE ENTRY PERF DISKIO,W9,W3 ENTER - ENTFMT I DEDI02 BNERR C62 ATTFMT FORMT DISPLAY 0,W1,W0 THOME PERF DERR IB DEBINW2,C62,C90 CBE ANSW,='N',C62 B C68 ***************** * CLOSE FILES * ***************** C90 MOVE FVOLNAME(W1),FVOLNAME(W2) MOVE FILECODE(W1),FILECODE(W2) MOVE FINDEXPO(W1),FINDEXPO(W2) MOVE FFSNR(W1),FFSNR(W2) MOVE FNOOFREC(W1),FNOOFREC(W2) MOVE FRINF(W1),FRINF(W2) MOVE F95PROC(W1),F95PROC(W2) MOVE FCOUNTER(W1),W1 MOVE FILECODE(W1),FILECODE(W2) SET SWITSY PERF OPCL,W2 BERR ERROR MOVE FVOLNAME(W1),FVOLNAME(W3) MOVE FILECODE(W1),FILECODE(W3) MOVE FINDEXPO(W1),FINDEXPO(W3) MOVE FFSNR(W1),FFSNR(W3) MOVE FNOOFREC(W1),FNOOFREC(W3) MOVE FRINF(W1),FRINF(W3) MOVE F95PROC(W1),F95PROC(W3) MOVE FCOUNTER(W1),W1 MOVE FILECODE(W1),FILECODE(W3) SET SWITSY PERF OPCL,W2 BERR ERROR ************************************ * CHANGE VOLUME-NAME TO 'SYSVOL' * ************************************ C98 CALL CHANFC,DISK,FCOD2 CALL CHVOL,DISK,SYSBUF,SYSVOL C99 RET PEND EJECT DISKIO PROC FC,INDEX MOVE FILECODE(W1),FILECODE(INDEX) MOVE FINDEXPO(W1),FINDEXPO(INDEX) MOVE FFSNR(W1),FFSNR(INDEX) MOVE FNOOFREC(W1),FNOOFREC(INDEX) MOVE FRINF(W1),FRINF(INDEX) MOVE F95PROC(W1),F95PROC(INDEX) PERF DEDISC,FC RET PEND * * ERROR CBNE DEBINW4,W10,ERR90 MOVE DEBINW4,W17 'OUTPUT FILE TOO SMALL' ERR90 PERF DSKERR,DEBINW4 PERF CLOFIL B C98 EJECT JOB FRMT FSL FCOPY =C'COPY JOB:' FINP 11 FCOPY JOBNAME FLINK FANSW FMEND * FORMT FRMT FSL FCOPY =C'COPY FORMAT:' FINP 14 FCOPY FORMAT FLINK FANSW FMEND * FANSW FRMT FNL FCOPY =C'Y/N' FKI 5,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 FCOPY ANSW FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * SYSTEM FRMT FSL FTEXT 'COPY SYSTEMVARIABLES ?' FLINK FANSW FMEND * VALUE FRMT FSL FTEXT 'COPY VALUE-SET T' FINP 17 FMEL '99',BCD3A FLINK FANSW FMEND * * END