|
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: »RGZFILE «
└─⟦5475bb115⟧ Bits:30009795 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 001 of 002
└─⟦cd453c591⟧
└─⟦this⟧ ».RGZFILE «
// LIBRARY NAME-#VASPLIB 05/28/92
// IFF ?1?= GOTO $ML10
// IF JOBQ-NO IF EVOKED-NO GOTO $ML05
// IF ?CD?/2003 RETURN
// IF ?CD?/2007 RETURN
// TAG $ML05
// IF ?C10?=0 HELP RGZFILE,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,,?11?
// ELSE HELP RGZFILE,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,'?10?',?11?
// RETURN
// TAG $ML10
// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY
// IF ?1?= #ERR 2879,C,,' 1RGZFILE'
// IF ?C2?=000 GOTO $ML20
// IFF ?2?>000000 #ERR 1133,23,,?2?
// IFF ?2?>000000 IF ?CD?=1012 RETURN
// IFF DATAF1-'?1?,?2?' #ERR 1351,23,,?1?
// IFF DATAF1-'?1?,?2?' IF ?CD?/1012 RETURN
// IF ?2?=?DATE? GOTO $ML30
// IFF DATAF1-'?1?,?DATE?' GOTO $ML30
// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB
#ERR 1626,23,VSP,?1?
// IF ?CD?/1012 RETURN
// TAG $ML20
// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY
// IFF DATAF1-?1? #ERR 1148,23,,?1?
// IFF DATAF1-?1? IF ?CD?/1012 RETURN
// TAG $ML30
// IFF ?3?= IFF ?3?=BLOCKS IFF ?3?=RECORDS #ERR 2144,C,,' 3'
// IF ?3?= IFF ?4?= #ERR 2880,C
// IFF ?3?= IF ?4?= #ERR 2881,C,,'?3?'
// IFF ?3?=RECORDS GOTO $ML25
// IFF ?F'A,?1?'?>?4? GOTO $ML25
// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB
#ERR 1714,023,VSP,
// IF ?CD?=1012 RETURN
// TAG $ML25
// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB
// IFF ?6?= IFF ?6?=YES IFF ?6?=NO #ERR 1713,C,VSP,' 6'
// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY
// IFF ?7?= IFF ?7?=OMIT IFF ?7?=INCLUDE #ERR 1610,C,,' 7'
// IFF ?9?= IFF ?9?=EQ IFF ?9?=NE IFF ?9?=LT +
IFF ?9?=GT IFF ?9?=LE IFF ?9?=GE #ERR 1611,C,,' 9'
// IFF ?8?= IFF ?8?>0 #ERR 4120,3,,'POSITION'
// IFF ?8?= IFF 4097>?8? #ERR 4120,3,,'POSITION'
// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB
// IFF ?11?= IFF ?11?=YES IFF ?11?=NO #ERR 1713,C,VSP,'11?11?'
// IFF ?2?= EVALUATE P60='?1?'
// IFF ?2?= EVALUATE P1='?1?,DATE-?2?'
// FILE NAME-?1?,JOB-YES,DISP-OLD,WAIT-NO
// IFF ?CD?=2030 IFF ?CD?=2031 GOTO $ML40
// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY
#ERR 1172,123,,?1?
// IFF ?2?= EVALUATE P1=?60?
// IF ?CD?=1011 GOTO $ML10
// IF ?CD?=1012 RETURN
// TAG $ML40
// LOCAL AREA-SYSTEM
// EVALUATE P62='?L'440,31'?'
// LOCAL OFFSET-440,AREA-SYSTEM,BLANK-31
// LOAD $VARG
// RUN
// IF ?L'443,1'?/ GOTO ENDIT
// IF JOBQ-NO IF EVOKED-NO * 'RGZFILE procedure is running'
// REGION SIZE-64
// LOAD $COPY
// FILE NAME-COPYIN,LABEL-?1?,DBLOCK-10,DISP-OLD
// IF ?11?= FILE NAME-COPYO,DBLOCK-10,RETAIN-T,
// ELSE FILE NAME-COPYO,DBLOCK-10,DUPKEYS-?11?,RETAIN-T,
// IFF ?3?= ?3?-?4?,
// IFF ?5?= LOCATION-?5?,
// LABEL-?L'443,8'?
// RUN
// COPYFILE OUTPUT-SAME,
// IF ?7?= IF ?9?= GOTO $ML50
// ?7'INCLUDE'?-?9'EQ'?,
// TAG $ML50
// IF ?8?>0000 POSITION-?8?,
// IF ?C10?>0 CHAR-'?10?',
// REORG-?6'YES'?
// END
// IF ?CD?=3721 GOTO ENDIT
// LOAD $VARH
// FILE NAME-?1?
// FILE NAME-$TARGET,LABEL-?L'443,8'?
// RUN
// TAG ENDIT
// LOCAL OFFSET-440,DATA-'?62?',AREA-SYSTEM
// RETURN