1READY PROFILE PREFIX(IT04629) WTPMSG READY ISPSTART CMD(%TICGBTCH MODELID(368) SYSTEMID(865630817) TITECHID(865638659) GDM(Y) PCOMPAT(N) TIUDEBUG(C) LDMODNM(JOBALL) L DMODID(865708741) LDMODTP('BATCH') AUTOINST(Y) INSTNEW(N) GENRILNK(NO)) SET DEBUG = &STR(DEBUG=&TIUDEBUG) SET DEBUG = DEBUG=C END END SET &CLSTNAME = &STR(## STARTING TICGBTCH CLIST ##) SET &CLSTNAME = ## STARTING TICGBTCH CLIST ## %TIECEXIT TIELIBDF %TIECEXIT TIELIBDF SET RC = &LASTCC SET RC = 0 IF (&RC ¬= 0) THEN IF (0 ¬= 0) THEN ISPEXEC VPUT (TIUDEBUG) SHARED ISPEXEC VPUT (TIUDEBUG) SHARED SET BACKGRND = &STR(Y) SET BACKGRND = Y ISPEXEC VPUT (BACKGRND) SHARED ISPEXEC VPUT (BACKGRND) SHARED IF (&GDM = ) THEN IF (Y = ) THEN IF (&PCOMPAT = ) THEN IF (N = ) THEN IF (&AUTOINST = ) THEN IF (Y = ) THEN IF (&INSTNEW = ) THEN IF (N = ) THEN IF (&GENRILNK = ) THEN IF (NO = ) THEN ISPEXEC VPUT (MODELID SYSTEMID TITECHID GDM AUTOINST) SHARED ISPEXEC VPUT (MODELID SYSTEMID TITECHID GDM AUTOINST) SHARED ISPEXEC VPUT (LDMODNM LDMODID LDMODTP INSTNEW) SHARED ISPEXEC VPUT (LDMODNM LDMODID LDMODTP INSTNEW) SHARED ISPEXEC VPUT (PCOMPAT) SHARED /* 15314592 */ ISPEXEC VPUT (PCOMPAT) SHARED /* 15314592 */ ISPEXEC VPUT (GENRILNK) SHARED /* 99999999 */ ISPEXEC VPUT (GENRILNK) SHARED /* 99999999 */ IF (&ICMONLY = ) THEN IF ( = ) THEN SET ICMONLY = &STR(N) SET ICMONLY = N ISPEXEC VPUT (ICMONLY) SHARED ISPEXEC VPUT (ICMONLY) SHARED IF (&BCTLONLY = ) THEN IF ( = ) THEN SET BCTLONLY = &STR(N) SET BCTLONLY = N ISPEXEC VPUT (BCTLONLY) SHARED ISPEXEC VPUT (BCTLONLY) SHARED IF (&HASICM = ) THEN IF ( = ) THEN SET HASICM = &STR(N) 1SET HASICM = N ISPEXEC VPUT (HASICM) SHARED ISPEXEC VPUT (HASICM) SHARED ISPEXEC VGET (TIRDBATT) SHARED ISPEXEC VGET (TIRDBATT) SHARED IF (&DBATTACH = ) THEN IF ( = ) THEN SET DBATTACH = &TIRDBATT SET DBATTACH = ISPEXEC VPUT (DBATTACH) SHARED ISPEXEC VPUT (DBATTACH) SHARED SET ZCMD = &Z SET ZCMD = SET ZVERB = &Z SET ZVERB = ISPEXEC VPUT (ZCMD ZVERB) SHARED ISPEXEC VPUT (ZCMD ZVERB) SHARED SET &CLSTNAME = &STR(## STARTING TIRCFIGS CLIST ##) SET &CLSTNAME = ## STARTING TIRCFIGS CLIST ## %TIRCFIGS %TIRCFIGS CONTROL NOFLUSH NOMSG CONTROL NOFLUSH NOMSG ISPEXEC VGET (RCFGRUN) SHARED ISPEXEC VGET (RCFGRUN) SHARED IF &RCFGRUN = &STR(YES) THEN IF = YES THEN ISPEXEC VGET (TILPROD) PROFILE ISPEXEC VGET (TILPROD) PROFILE IF &TILPROD = IT THEN IF = IT THEN ELSE ELSE %TIUPARM MEM(TIRHE) %TIUPARM MEM(TIRHE) SET RC = 0 SET RC = 0 CONTROL NOMSG CONTROL NOMSG LISTDSI TIUPARML FILE LISTDSI TIUPARML FILE SET RC=&LASTCC SET RC=0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET TIUPARML=&SYSDSNAME SET TIUPARML=PV.TEST.CAGEN.PARMLIB CONTROL NOMSG CONTROL NOMSG FREE FI(TIULOAD) FREE FI(TIULOAD) CONTROL MSG CONTROL MSG IF &SYSDSN('&TIUPARML(&MEM)')=OK THEN IF OK=OK THEN DO 1DO ALLOC FI(TIULOAD) DA('&TIUPARML(&MEM)') SHR REUS ALLOC FI(TIULOAD) DA('PV.TEST.CAGEN.PARMLIB(TIRHE)') SHR REUS SET RC=&LASTCC SET RC=0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN END END OPENFILE TIULOAD INPUT OPENFILE TIULOAD INPUT ERROR ERROR GETFILE TIULOAD GETFILE TIULOAD SET READCC = &LASTCC SET READCC = 0 CONTROL ASIS CONTROL ASIS DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * CA Gen Host Encyclopedia Miscellaneous Construction Variables IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Generated for the Host Encyclopedia on 05/09/18 at 13:08:08 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Modification History IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Date Who Description IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * 05/09/18 CEINSTAL Initial IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) 1SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRSITEN Company or Site Name IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRSITEN=YOUR_COMPANY_NAME IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRSITEN SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=27 IF (&EQ+1 = &BL) THEN IF (9+1 = 27) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = YOUR_COMPANY_NAME SET &&NAME = &STR(&VALUE) SET &TIRSITEN = YOUR_COMPANY_NAME ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRSITEN) SHARED END 1END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Cobol Compiler Variables IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRC2NAM COBOL COMPILER NAME (IGYCRCTL) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRC2LPA COMPILER FLAG (Y/N) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END 1END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRC2LPR COBOL LIBRARY FLAG (Y/N) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRC2LIB COBOL COMPILER LIBRARY (..SIGYCOMP) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRC2VER COBOL COMPILER VERSION (V4R0M0) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRC2RUN Z/OS RUNTIME LIBRARY (..SCEERUN) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRC2LKD Z/OS LINKEDIT LIBRARY (..SCEELKED) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRCBLSZ COBOL SIZE PARAMETER IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRC2NAM=IGYCRCTL IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRC2NAM SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=18 IF (&EQ+1 = &BL) THEN IF (9+1 = 18) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = IGYCRCTL SET &&NAME = &STR(&VALUE) SET &TIRC2NAM = IGYCRCTL ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRC2NAM) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRC2LPA=N IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRC2LPA SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=11 IF (&EQ+1 = &BL) THEN IF (9+1 = 11) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = N SET &&NAME = &STR(&VALUE) SET &TIRC2LPA = N ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRC2LPA) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRC2LPR=Y IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRC2LPR SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=11 IF (&EQ+1 = &BL) THEN IF (9+1 = 11) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = Y SET &&NAME = &STR(&VALUE) 1SET &TIRC2LPR = Y ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRC2LPR) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRC2LIB=SYS1.SIGYCOMP IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRC2LIB SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=23 IF (&EQ+1 = &BL) THEN IF (9+1 = 23) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = SYS1.SIGYCOMP SET &&NAME = &STR(&VALUE) SET &TIRC2LIB = SYS1.SIGYCOMP ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRC2LIB) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRC2VER=V4R1M0 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) 1SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRC2VER SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=16 IF (&EQ+1 = &BL) THEN IF (9+1 = 16) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = V4R1M0 SET &&NAME = &STR(&VALUE) SET &TIRC2VER = V4R1M0 ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRC2VER) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRC2RUN=SYS1.SCEERUN IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRC2RUN SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=22 IF (&EQ+1 = &BL) THEN IF (9+1 = 22) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = SYS1.SCEERUN SET &&NAME = &STR(&VALUE) SET &TIRC2RUN = SYS1.SCEERUN ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRC2RUN) SHARED END 1END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRC2LKD=SYS1.SCEELKED IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRC2LKD SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=23 IF (&EQ+1 = &BL) THEN IF (9+1 = 23) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = SYS1.SCEELKED SET &&NAME = &STR(&VALUE) SET &TIRC2LKD = SYS1.SCEELKED ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRC2LKD) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRCBLSZ= IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO 1DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRCBLSZ SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=10 IF (&EQ+1 = &BL) THEN IF (9+1 = 10) THEN SET VALUE = &STR() SET VALUE = SET &&NAME = &STR(&VALUE) SET &TIRCBLSZ = ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRCBLSZ) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * DB2 Variables IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRD2LIB DB2 LINK LIB IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TILSDB2X DB2 TARGET ALLOWED (Y/N) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRDBATT DB2 ATTACHMENT TYPE (DB2_DSN (or DSN for short), IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IMS_BMP (or IMS), DLIBATCH (or DLI), defaults to DB2_DSN IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRD2LIB=SYS7.DB2ALNK.SDSNLINK IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRD2LIB SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=31 IF (&EQ+1 = &BL) THEN IF (9+1 = 31) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = SYS7.DB2ALNK.SDSNLINK SET &&NAME = &STR(&VALUE) SET &TIRD2LIB = SYS7.DB2ALNK.SDSNLINK ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRD2LIB) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TILSDB2X=Y IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TILSDB2X SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=11 IF (&EQ+1 = &BL) THEN IF (9+1 = 11) THEN ELSE 1ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = Y SET &&NAME = &STR(&VALUE) SET &TILSDB2X = Y ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TILSDB2X) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRDBATT=DSN IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRDBATT SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=13 IF (&EQ+1 = &BL) THEN IF (9+1 = 13) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = DSN SET &&NAME = &STR(&VALUE) SET &TIRDBATT = DSN ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRDBATT) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * CICS Variables IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRCSHAR CICS ON SAME CPU AS TSO FLAG IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRCLLIB CICS LOAD LIBRARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRCLCOB CICS COBOL LOAD LIBRARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRCLTCP CICS SOCKETS LOAD LIBRARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRCLDB2 CICS DB2 LOAD LIBRARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRCSHAR=N IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRCSHAR SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=11 IF (&EQ+1 = &BL) THEN IF (9+1 = 11) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = N SET &&NAME = &STR(&VALUE) SET &TIRCSHAR = N ISPEXEC VPUT (&NAME) SHARED 1ISPEXEC VPUT (TIRCSHAR) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRCLLIB=SYS9.CICT.SDFHLOAD IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRCLLIB SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=28 IF (&EQ+1 = &BL) THEN IF (9+1 = 28) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = SYS9.CICT.SDFHLOAD SET &&NAME = &STR(&VALUE) SET &TIRCLLIB = SYS9.CICT.SDFHLOAD ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRCLLIB) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRCLCOB=SYS1.SCEELKED IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN 1IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRCLCOB SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=23 IF (&EQ+1 = &BL) THEN IF (9+1 = 23) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = SYS1.SCEELKED SET &&NAME = &STR(&VALUE) SET &TIRCLCOB = SYS1.SCEELKED ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRCLCOB) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRCLTCP=TCPIP.SEZATCP IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRCLTCP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=23 IF (&EQ+1 = &BL) THEN IF (9+1 = 23) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = TCPIP.SEZATCP SET &&NAME = &STR(&VALUE) SET &TIRCLTCP = TCPIP.SEZATCP ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRCLTCP) SHARED END END END 1END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRCLDB2=SYS9.CICT.SDFHLOAD IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRCLDB2 SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=28 IF (&EQ+1 = &BL) THEN IF (9+1 = 28) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = SYS9.CICT.SDFHLOAD SET &&NAME = &STR(&VALUE) SET &TIRCLDB2 = SYS9.CICT.SDFHLOAD ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRCLDB2) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IMS Variables IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRISHAR IMS ON SAME CPU AS TSO FLAG IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRIRESL IMS RESIDENT LOAD LIBRARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRIMAXQ IMS MAXIMUM SEGMENT SIZE IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIRICPIC CPIC STUB LIBRARY DSNAME IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRISHAR=N IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRISHAR SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=11 IF (&EQ+1 = &BL) THEN IF (9+1 = 11) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = N SET &&NAME = &STR(&VALUE) SET &TIRISHAR = N ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRISHAR) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRIRESL=DB.TEST.IMSTST.RESLIB IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN 1IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRIRESL SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=31 IF (&EQ+1 = &BL) THEN IF (9+1 = 31) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = DB.TEST.IMSTST.RESLIB SET &&NAME = &STR(&VALUE) SET &TIRIRESL = DB.TEST.IMSTST.RESLIB ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRIRESL) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRIMAXQ=1280 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRIMAXQ SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=14 IF (&EQ+1 = &BL) THEN IF (9+1 = 14) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 1280 SET &&NAME = &STR(&VALUE) SET &TIRIMAXQ = 1280 ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRIMAXQ) SHARED END END END 1END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRICPIC=SYS1.CSSLIB IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRICPIC SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=21 IF (&EQ+1 = &BL) THEN IF (9+1 = 21) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = SYS1.CSSLIB SET &&NAME = &STR(&VALUE) SET &TIRICPIC = SYS1.CSSLIB ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRICPIC) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Map Generator Selection IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIMAPSEL=1 selects the Standard Map Generator IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIMAPSEL=2 selects the Enhanced Map Generator IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIMAPSEL=2 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIMAPSEL SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=11 IF (&EQ+1 = &BL) THEN IF (9+1 = 11) THEN ELSE 1ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 2 SET &&NAME = &STR(&VALUE) SET &TIMAPSEL = 2 ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIMAPSEL) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Compatibility Return Code from Generators=65537 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIRLGYRC=65537 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN 1IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIRLGYRC SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=15 IF (&EQ+1 = &BL) THEN IF (9+1 = 15) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 65537 SET &&NAME = &STR(&VALUE) SET &TIRLGYRC = 65537 ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIRLGYRC) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Application Runtime Collection ID IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIXERTCO=RTCOLLID IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIXERTCO SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=18 IF (&EQ+1 = &BL) THEN IF (9+1 = 18) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = RTCOLLID SET &&NAME = &STR(&VALUE) SET &TIXERTCO = RTCOLLID ISPEXEC VPUT (&NAME) SHARED ISPEXEC VPUT (TIXERTCO) SHARED END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * End of CA Gen Host Encyclopedia Miscellaneous Construction Variables IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD DO DO SET READCC = &LASTCC 1SET READCC = 400 IF &READCC = 400 THEN IF 400 = 400 THEN RETURN RETURN END END DO WHILE (&READCC = 0) DO WHILE (400 = 0) CONTROL CAPS CONTROL CAPS CLOSFILE TIULOAD CLOSFILE TIULOAD FREE FI(TIULOAD) /* 20828563 */ FREE FI(TIULOAD) /* 20828563 */ ERROR OFF ERROR OFF EXIT CODE(&RC) EXIT CODE(0) %TIRMFS %TIRMFS SET RC = 0 SET RC = 0 CONTROL NOMSG CONTROL NOMSG LISTDSI TIUPARML FILE LISTDSI TIUPARML FILE SET RC=&LASTCC SET RC=0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET TIUPARML=&SYSDSNAME SET TIUPARML=PV.TEST.CAGEN.PARMLIB SET MEM=&STR(TIRMFS) SET MEM=TIRMFS CONTROL NOMSG CONTROL NOMSG FREE FI(TIULOAD) FREE FI(TIULOAD) CONTROL MSG CONTROL MSG IF &SYSDSN('&TIUPARML(&MEM)')=OK THEN IF OK=OK THEN DO DO ALLOC FI(TIULOAD) DA('&TIUPARML(&MEM)') SHR REUS ALLOC FI(TIULOAD) DA('PV.TEST.CAGEN.PARMLIB(TIRMFS)') SHR REUS SET RC=&LASTCC SET RC=0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN END END OPENFILE TIULOAD INPUT OPENFILE TIULOAD INPUT ERROR 1ERROR GETFILE TIULOAD GETFILE TIULOAD SET READCC = &LASTCC SET READCC = 0 SET FIRSTONE = &STR(Y) SET FIRSTONE = Y CONTROL ASIS CONTROL ASIS DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * CA Gen Host Encyclopedia MFS Device Types Selection READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Generated for the Host Encyclopedia on 05/09/18 at 13:08:09 READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END 1END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Modification History READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Date Who Description READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * 05/09/18 CEINSTAL Initial READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN 1IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * This is a list of supported MFS devices by CA-Gen. The device types READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * marked with Y in Sel column are defined in your environment. READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * CA-Gen will generate MFS formats for them. You can delete definition READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * of device types in your environment by erasing Y in Sel column. READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) 1SET SYSDVAL = * READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * In order to define a device type, you must mark it with Y in Sel READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * column. READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END 1END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Sel Device Type Extended attribute Rows Cols READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * support READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * --- ----------- ------------------ ---- ---- READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (* = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270,1' 12 40 READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = Y '3270,2' Y 24 80 READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN 1IF (Y = Y) THEN DO DO IF (&COL = &STR( )) THEN IF (80 = ) THEN IF (&STR(&FIRSTONE) = &STR(Y)) THEN IF (Y = Y) THEN DO DO SET VALUE = &STR(&TYPE/&EATR&ROW&COL) SET VALUE = 3270,2/Y2480 SET VALUE2 = &STR(&VALUE) SET VALUE2 = 3270,2/Y2480 SET FIRSTONE = &STR(N) SET FIRSTONE = N END END SET TIRIMFSD = &STR(&VALUE2) SET TIRIMFSD = 3270,2/Y2480 ISPEXEC VPUT (TIRIMFSD) SHARED ISPEXEC VPUT (TIRIMFSD) SHARED END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270P' 55 120 READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = 'SCS1' 55 132 READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (S = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = 'SCS2' 55 80 READDVAL SEL TYPE EATR ROW COL 1READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (S = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A01' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A02' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A03' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A04' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A05' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A06' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A07' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A08' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A09' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A10' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A11' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A12' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A13' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A14' READDVAL SEL TYPE EATR ROW COL 1READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = '3270-A15' READDVAL SEL TYPE EATR ROW COL READDVAL SEL TYPE EATR ROW COL IF (&SUBSTR(1,&SEL) = &STR(Y)) THEN IF (3 = Y) THEN GETFILE TIULOAD GETFILE TIULOAD DO DO SET READCC = &LASTCC SET READCC = 400 IF &READCC = 400 THEN IF 400 = 400 THEN RETURN RETURN END END DO WHILE (&READCC = 0) DO WHILE (400 = 0) CONTROL CAPS CONTROL CAPS CLOSFILE TIULOAD CLOSFILE TIULOAD FREE FI(TIULOAD) /* 20828563 */ FREE FI(TIULOAD) /* 20828563 */ ERROR OFF ERROR OFF EXIT CODE(&RC) EXIT CODE(0) SET RCFGRUN=&STR(YES) SET RCFGRUN=YES ISPEXEC VPUT (RCFGRUN) SHARED ISPEXEC VPUT (RCFGRUN) SHARED EXIT CODE(0) EXIT CODE(0) SET RC = &LASTCC SET RC = 0 IF (&RC ¬= 0) THEN IF (0 ¬= 0) THEN ELSE ELSE SET RC = 0 SET RC = 0 SET &CLSTNAME = &STR(## STARTING TIUGLOB CLIST ##) SET &CLSTNAME = ## STARTING TIUGLOB CLIST ## %TIUGLOB 1%TIUGLOB SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF ( = YES) AND (= ) THEN END END IF &TIXPROD = &STR() THEN IF = THEN DO DO IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (TILPROD) PROFILE ISPEXEC VGET (TILPROD) PROFILE IF &TILPROD = &STR() THEN IF = THEN SET TILPROD = CE SET TILPROD = CE END END END END IF &TILPROD = IT THEN IF CE = IT THEN ELSE ELSE SET PARMMEM=&STR(TIUHE) SET PARMMEM=TIUHE CONTROL NOMSG CONTROL NOMSG LISTDSI TIUPARML FILE LISTDSI TIUPARML FILE SET RC=&LASTCC SET RC=0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET TIUPARML=&SYSDSNAME SET TIUPARML=PV.TEST.CAGEN.PARMLIB CONTROL NOMSG CONTROL NOMSG FREE FI(TIULOAD) FREE FI(TIULOAD) CONTROL MSG CONTROL MSG IF &SYSDSN('&TIUPARML(&PARMMEM)')=OK THEN 1IF OK=OK THEN DO DO ALLOC FI(TIULOAD) DA('&TIUPARML(&PARMMEM)') SHR REUS ALLOC FI(TIULOAD) DA('PV.TEST.CAGEN.PARMLIB(TIUHE)') SHR REUS SET RC=&LASTCC SET RC=0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN END END OPENFILE TIULOAD INPUT OPENFILE TIULOAD INPUT ERROR ERROR GETFILE TIULOAD GETFILE TIULOAD SET READCC = &LASTCC SET READCC = 0 CONTROL ASIS CONTROL ASIS DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * CA Gen Host Encyclopedia Parameters TIUHE IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Generated for the Host Encyclopedia on 05/09/18 at 13:08:07 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Modification History IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Date Who Description IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * 05/09/18 CEINSTAL Initial IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUGLOBV TIUGLOB TYPE (CE OR IT) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUGLOBV=CE IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUGLOBV SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = CE SET &&NAME = &STR(&VALUE) SET &TIUGLOBV = CE END 1END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * DB2 Subsystem, Encyclopedia Name, Plan Prefix, Schema Level IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUDB2S DB2 SUBSYSTEM NAME IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUPLPR PLAN PREFIX IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END 1END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUSCHM SCHEMA RELEASE IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUENCY ENCYCLOPEDIA NAME IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIURELX GEN VERSION IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUDB2S=DBTG IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) 1SET NAME = TIUDB2S SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=13 IF (&EQ+1 = &BL) THEN IF (8+1 = 13) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = DBTG SET &&NAME = &STR(&VALUE) SET &TIUDB2S = DBTG END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUPLPR=HEPL IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUPLPR SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=13 IF (&EQ+1 = &BL) THEN IF (8+1 = 13) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = HEPL SET &&NAME = &STR(&VALUE) SET &TIUPLPR = HEPL END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) 1SET SYSDVAL = TIUSCHM=9.2.A6 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUSCHM SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=15 IF (&EQ+1 = &BL) THEN IF (8+1 = 15) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 9.2.A6 SET &&NAME = &STR(&VALUE) SET &TIUSCHM = 9.2.A6 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUENCY=HOST002 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUENCY SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=16 IF (&EQ+1 = &BL) THEN IF (8+1 = 16) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = HOST002 SET &&NAME = &STR(&VALUE) 1SET &TIUENCY = HOST002 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIURELX=GEN-R8.6 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIURELX SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=17 IF (&EQ+1 = &BL) THEN IF (8+1 = 17) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = GEN-R8.6 SET &&NAME = &STR(&VALUE) SET &TIURELX = GEN-R8.6 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) 1SET SYSDVAL = * Application runtime collection ID IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIXERTCO RUNTIME COLLECTION ID IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIXERTCO=RTCOLLID IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIXERTCO SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=18 IF (&EQ+1 = &BL) THEN 1IF (9+1 = 18) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = RTCOLLID SET &&NAME = &STR(&VALUE) SET &TIXERTCO = RTCOLLID END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * System Datasets IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIULOADP SYSTEM SOFTWARE LOAD LIBRARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUDLLS SYSTEM SOFTWARE RUNTIME DLL IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUDBRML SYSTEM SOFTWARE DBRM LIBRARY, USED BY IEFBIND CLIST AND IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * CONSTRUCTION FUNCTIONS TO RETRIEVE SYSTEM SUPPLIED DBRMS IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUXLAT TRANSLATION TABLE LIBRARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIU3301 SYSTEM SOFTWARE CONFIGURATION LIBRARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUCODEP SYSTEM SOFWARE LIBRARAY WHERE CODEPAGE FILE IS STORED. IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIULOADP=PV.TEST.CAGEN.CEHBPLD0 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIULOADP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=32 IF (&EQ+1 = &BL) THEN IF (9+1 = 32) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = PV.TEST.CAGEN.CEHBPLD0 SET &&NAME = &STR(&VALUE) SET &TIULOADP = PV.TEST.CAGEN.CEHBPLD0 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUDLLS=PV.TEST.CAGEN.CEHBPLD1 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) 1SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUDLLS SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=31 IF (&EQ+1 = &BL) THEN IF (8+1 = 31) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = PV.TEST.CAGEN.CEHBPLD1 SET &&NAME = &STR(&VALUE) SET &TIUDLLS = PV.TEST.CAGEN.CEHBPLD1 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUDBRML=PV.TEST.CAGEN.CEHBDBRM IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUDBRML SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=32 IF (&EQ+1 = &BL) THEN IF (9+1 = 32) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = PV.TEST.CAGEN.CEHBDBRM SET &&NAME = &STR(&VALUE) SET &TIUDBRML = PV.TEST.CAGEN.CEHBDBRM END END END END GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUXLAT=PV.TEST.CAGEN.CEHBDATB IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUXLAT SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=31 IF (&EQ+1 = &BL) THEN IF (8+1 = 31) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = PV.TEST.CAGEN.CEHBDATB SET &&NAME = &STR(&VALUE) SET &TIUXLAT = PV.TEST.CAGEN.CEHBDATB END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIU3301=PV.TEST.CAGEN.CEHBSKL0(IEF3301) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIU3301 SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=40 IF (&EQ+1 = &BL) THEN 1IF (8+1 = 40) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = PV.TEST.CAGEN.CEHBSKL0(IEF3301) SET &&NAME = &STR(&VALUE) SET &TIU3301 = PV.TEST.CAGEN.CEHBSKL0(IEF3301) END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUCODEP=PV.TEST.CAGEN.CEHBSKL0(CODEPAGE) IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUCODEP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=42 IF (&EQ+1 = &BL) THEN IF (9+1 = 42) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = PV.TEST.CAGEN.CEHBSKL0(CODEPAGE) SET &&NAME = &STR(&VALUE) SET &TIUCODEP = PV.TEST.CAGEN.CEHBSKL0(CODEPAGE) END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Dataset Allocation parameters IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUDASD DASD DEVICE TYPE FOR USER FILE ALLOCATIONS. IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUTBLK BLOCK SIZE FOR TEMPORARY TABLE LIB USED IN CODEGEN. IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUDASZ DEFAULT FILE SIZE IN BLOCKS FOR ALLOCATING DUMP FILES IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) 1SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUDASD=SYSDA IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUDASD SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=14 IF (&EQ+1 = &BL) THEN IF (8+1 = 14) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = SYSDA SET &&NAME = &STR(&VALUE) SET &TIUDASD = SYSDA END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUTBLK=27920 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) 1SET NAME = TIUTBLK SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=14 IF (&EQ+1 = &BL) THEN IF (8+1 = 14) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 27920 SET &&NAME = &STR(&VALUE) SET &TIUTBLK = 27920 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUDASZ=750,375 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUDASZ SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=16 IF (&EQ+1 = &BL) THEN IF (8+1 = 16) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 750,375 SET &&NAME = &STR(&VALUE) SET &TIUDASZ = 750,375 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) 1SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Primary and Secondary Allocations for Construction Dialogs IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Variables of the form TICA___P AND TICA___S define the primary IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * and secondary allocation sizes, in tracks, for the files described IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * below IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END 1END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICATRMP SYSTERM, ALL FUNCTIONS: PRIMARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICATRMS SECONDARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICAPR2P SYSPRINT, COBOL II OUTPUT: PRIMARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICAPR2S SECONDARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICAPUNP SYSPUNCH, CICS PRECOMPILE: PRIMARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICAPUNS SECONDARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICACINP SYSCIN, DB2 PRECOMP OUTPUT: PRIMARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICACINS SECONDARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICALINP SYSLIN, COBOL II OUTPUT: PRIMARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICALINS SECONDARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICACICP SYSPRINT, CICS PRECOMPILE: PRIMARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICACICS SECONDARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICADB2P SYSPRINT, DB2 PRECOMPILE: PRIMARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICADB2S SECONDARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICALKDP SYSPRINT, LINK-EDIT: PRIMARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICALKDS SECONDARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICASUTP SYSUT1-7, ALL FUNCTIONS: PRIMARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICASUTS SECONDARY IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICATRMP=75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICATRMP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) 1SET VALUE = 75 SET &&NAME = &STR(&VALUE) SET &TICATRMP = 75 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICATRMS=75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICATRMS SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75 SET &&NAME = &STR(&VALUE) SET &TICATRMS = 75 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICAPR2P=75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN 1IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICAPR2P SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75 SET &&NAME = &STR(&VALUE) SET &TICAPR2P = 75 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICAPR2S=75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICAPR2S SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75 SET &&NAME = &STR(&VALUE) SET &TICAPR2S = 75 END END END END GETFILE TIULOAD GETFILE TIULOAD END 1END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICAPUNP=75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICAPUNP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75 SET &&NAME = &STR(&VALUE) SET &TICAPUNP = 75 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICAPUNS=75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICAPUNS SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE 1ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75 SET &&NAME = &STR(&VALUE) SET &TICAPUNS = 75 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICACINP=75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICACINP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75 SET &&NAME = &STR(&VALUE) SET &TICACINP = 75 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICACINS=75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) 1SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICACINS SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75 SET &&NAME = &STR(&VALUE) SET &TICACINS = 75 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICALINP=180 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICALINP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=13 IF (&EQ+1 = &BL) THEN IF (9+1 = 13) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 180 SET &&NAME = &STR(&VALUE) SET &TICALINP = 180 END END END END GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICALINS=60 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICALINS SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 60 SET &&NAME = &STR(&VALUE) SET &TICALINS = 60 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICACICP=105 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICACICP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=13 IF (&EQ+1 = &BL) THEN 1IF (9+1 = 13) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 105 SET &&NAME = &STR(&VALUE) SET &TICACICP = 105 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICACICS=35 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICACICS SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 35 SET &&NAME = &STR(&VALUE) SET &TICACICS = 35 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICADB2P=150 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO 1DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICADB2P SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=13 IF (&EQ+1 = &BL) THEN IF (9+1 = 13) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 150 SET &&NAME = &STR(&VALUE) SET &TICADB2P = 150 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICADB2S=75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICADB2S SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75 SET &&NAME = &STR(&VALUE) SET &TICADB2S = 75 END END END 1END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICALKDP=40 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICALKDP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 40 SET &&NAME = &STR(&VALUE) SET &TICALKDP = 40 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICALKDS=8 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICALKDS SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) 1SET BL=11 IF (&EQ+1 = &BL) THEN IF (9+1 = 11) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 8 SET &&NAME = &STR(&VALUE) SET &TICALKDS = 8 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICASUTP=150 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICASUTP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=13 IF (&EQ+1 = &BL) THEN IF (9+1 = 13) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 150 SET &&NAME = &STR(&VALUE) SET &TICASUTP = 150 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICASUTS=150 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICASUTS SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=13 IF (&EQ+1 = &BL) THEN IF (9+1 = 13) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 150 SET &&NAME = &STR(&VALUE) SET &TICASUTS = 150 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIURPSZ DEFAULT FILE SIZE IN BLOCKS FOR ALLOCATING REPORT FILES IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUTRSZ DEFAULT FILE SIZE IN BLOCKS FOR ALLOCATING TRAN FILE IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUDRSZ DEFAULT FILE SIZE IN BLOCKS FOR ALLOCATING DIAG FILE IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIURPMAX MAX NUMBER OF REPORT FILES TO CREATE. AFTER THIS NUMBER IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * OF FILES HAVE BEEN GENERATED THEY ARE REUSED. IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICLMRMT LOAD MODULE REMOTE FILE SIZE IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TICRIRMT RI TRIGGER REMOTE FILE SIZE IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) 1SET SYSDVAL = * TIUPREF PREFIX FOR USER DATASET NAMES, DEFAULTS TO SYSPREF IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TILE370R SET TO Y FOR LE/370 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUSUFX OPTIONAL USER DATASET SUFFIX, DEFAULTS TO NULL IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIURPSZ=75,300 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) 1SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIURPSZ SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=15 IF (&EQ+1 = &BL) THEN IF (8+1 = 15) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75,300 SET &&NAME = &STR(&VALUE) SET &TIURPSZ = 75,300 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUTRSZ=150,150 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUTRSZ SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=16 IF (&EQ+1 = &BL) THEN IF (8+1 = 16) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 150,150 SET &&NAME = &STR(&VALUE) SET &TIUTRSZ = 150,150 END END END END GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUDRSZ=75,75 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUDRSZ SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=14 IF (&EQ+1 = &BL) THEN IF (8+1 = 14) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 75,75 SET &&NAME = &STR(&VALUE) SET &TIUDRSZ = 75,75 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIURPMAX=10 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIURPMAX SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=12 IF (&EQ+1 = &BL) THEN 1IF (9+1 = 12) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 10 SET &&NAME = &STR(&VALUE) SET &TIURPMAX = 10 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICLMRMT=150,100 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICLMRMT SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=17 IF (&EQ+1 = &BL) THEN IF (9+1 = 17) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 150,100 SET &&NAME = &STR(&VALUE) SET &TICLMRMT = 150,100 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TICRIRMT=200,100 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO 1DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TICRIRMT SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=17 IF (&EQ+1 = &BL) THEN IF (9+1 = 17) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 200,100 SET &&NAME = &STR(&VALUE) SET &TICRIRMT = 200,100 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUPREF=&SYSPREF IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUPREF SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=16 IF (&EQ+1 = &BL) THEN IF (8+1 = 16) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = IT04629 SET &&NAME = &STR(&VALUE) SET &TIUPREF = IT04629 END END END 1END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TILE370R=Y IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TILE370R SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=11 IF (&EQ+1 = &BL) THEN IF (9+1 = 11) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = Y SET &&NAME = &STR(&VALUE) SET &TILE370R = Y END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUSUFX= IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=8 IF (&EQ > 0) THEN IF (8 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUSUFX SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) 1SET BL=9 IF (&EQ+1 = &BL) THEN IF (8+1 = 9) THEN SET VALUE = &STR() SET VALUE = SET &&NAME = &STR(&VALUE) SET &TIUSUFX = END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * Cross Copy Parameters IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF YOU CROSS-COPY MODELS FROM ANOTHER HOST ENCYCLOPEDIA TO THIS IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * HOST ENCYCLOPEDIA (I.E. I.1.3.12.1 THEN THE FOLLOWING IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * INFORMATION ABOUT THE OTHER HOST ENCYCLOPEDIA MUST BE FILLED IN: IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUR2PLP PLAN PREFIX OF OTHER HOST ENCYCLOPEDIA SW IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUR2LIB EXECUTABLE LOAD LIBRARY OF OTHER HOST ENCYCLOPEDIA SW IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * TIUR2SCM SCHEMA LEVEL OF OTHER HOST ENCYCLOPEDIA SW IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD 1GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * SCHEMA LEVEL FOR GEN 6.X: 9.0.A2 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * SCHEMA LEVEL FOR GEN 7.X: 9.1.A5 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * SCHEMA LEVEL FOR GEN 8.X: 9.2.A6 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) 1SET SYSDVAL = TIUR2PLP=PL00 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUR2PLP SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=14 IF (&EQ+1 = &BL) THEN IF (9+1 = 14) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = PL00 SET &&NAME = &STR(&VALUE) SET &TIUR2PLP = PL00 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUR2LIB= IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUR2LIB SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=10 IF (&EQ+1 = &BL) THEN IF (9+1 = 10) THEN SET VALUE = &STR() SET VALUE = SET &&NAME = &STR(&VALUE) SET &TIUR2LIB = END 1END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = TIUR2SCM=9.1.A5 IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (T ¬= ) AND (T ¬= *) THEN DO DO SET EQ=&SYSINDEX(&STR(=),&STR(&SYSDVAL)) SET EQ=9 IF (&EQ > 0) THEN IF (9 > 0) THEN DO DO SET NAME = &STR(&SUBSTR(1:&EQ-1,&STR(&SYSDVAL))) SET NAME = TIUR2SCM SET BL=&SYSINDEX(&STR( ),&STR(&SYSDVAL)) SET BL=16 IF (&EQ+1 = &BL) THEN IF (9+1 = 16) THEN ELSE ELSE SET VALUE = &STR(&SUBSTR(&EQ+1:&BL-1,&STR(&SYSDVAL))) SET VALUE = 9.1.A5 SET &&NAME = &STR(&VALUE) SET &TIUR2SCM = 9.1.A5 END END END END GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD END END DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &STR(&TIULOAD) SET SYSDVAL = * End of CA Gen Host Encyclopedia Parameters TIUHE IF (&SUBSTR(1,&SYSDVAL) ¬= &STR()) AND (&SUBSTR(1,&SYSDVAL) ¬= &STR(*)) THEN 1IF (* ¬= ) AND (* ¬= *) THEN GETFILE TIULOAD GETFILE TIULOAD DO DO SET READCC = &LASTCC SET READCC = 400 IF &READCC = 400 THEN IF 400 = 400 THEN RETURN RETURN END END DO WHILE (&READCC = 0) DO WHILE (400 = 0) CONTROL CAPS CONTROL CAPS CLOSFILE TIULOAD CLOSFILE TIULOAD FREE FI(TIULOAD) /* 20828563 */ FREE FI(TIULOAD) /* 20828563 */ ERROR OFF ERROR OFF SET GLOBRUN=&STR(YES) SET GLOBRUN=YES SET TIUPREFT = &STR(&TIUPREF) /* SAVE ORIGINAL TIUPREF, BATCH MAY */ SET TIUPREFT = IT04629 /* SAVE ORIGINAL TIUPREF, BATCH MAY */ SET BATCH = NO /* TO THE END OF IT. SLA90025 */ SET BATCH = NO /* TO THE END OF IT. SLA90025 */ IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (ZENVIR) SHARED ISPEXEC VGET (ZENVIR) SHARED ISPEXEC VGET (TIUDSNTM) SHARED ISPEXEC VGET (TIUDSNTM) SHARED IF &SUBSTR(17:21,&STR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN DO DO SET BATCH = YES /*LKA87351 */ SET BATCH = YES /*LKA87351 */ IF (&NRSTR(&TIUDSNTM) = ) THEN IF ( = ) THEN DO DO SET STIME = &SYSTIME SET STIME = 23:40:45 SET TIUDSNTM = D&SUBSTR(6:6,&SYSJDATE)&SUBSTR(1:2,&STIME)&SUBSTR(4:5,&STIME)&SUBSTR(7:8,&STIME) SET TIUDSNTM = D6234045 ISPEXEC VPUT (TIUDSNTM) SHARED ISPEXEC VPUT (TIUDSNTM) SHARED END END SET TIUPREF = &TIUPREF..BAT.&TIUDSNTM 1SET TIUPREF = IT04629.BAT.D6234045 END END ISPEXEC VPUT (TIUDB2S TIULOADP TIUPLPR TIUDBRML TIUENCY TIUDASD TIUTBLK TIUDASZ TIURPMAX TIURPSZ TIUTRSZ TI UDRSZ TIU3301 TIURELX TIUR2PLP TIUR2LIB TIUR2SCM TIUXLAT TIUPREF TIUSUFX TIUPREFT TIUGLOBV TICLMRMT TICRIRMT TIUDLLS TILE370R TIUSCHM TIUCODEP TIXERTCO ) SHARED ISPEXEC VPUT (TIUDB2S TIULOADP TIUPLPR TIUDBRML TIUENCY TIUDASD TIUTBLK TIUDASZ TIURPMAX TIURPSZ TIUTRSZ TI UDRSZ TIU3301 TIURELX TIUR2PLP TIUR2LIB TIUR2SCM TIUXLAT TIUPREF TIUSUFX TIUPREFT TIUGLOBV TICLMRMT TICRIRMT TIUDLLS TILE370R TIUSCHM TIUCODEP TIXERTCO ) SHARED ISPEXEC VPUT (TICATRMP TICATRMS TICAPR2P TICAPR2S TICAPUNP TICAPUNS TICACINP TICACINS TICALINP TICALINS TICACICP TICACICS TI CADB2P TICADB2S TICALKDP TICALKDS TICASUTP TICASUTS ) SHARED ISPEXEC VPUT (TICATRMP TICATRMS TICAPR2P TICAPR2S TICAPUNP TICAPUNS TICACINP TICACINS TICALINP TICALINS TICACICP TICACICS TI CADB2P TICADB2S TICALKDP TICALKDS TICASUTP TICASUTS ) SHARED ISPEXEC VPUT (GLOBRUN) SHARED ISPEXEC VPUT (GLOBRUN) SHARED ISPEXEC VPUT (TIXDB2ID TIXPLPR TIXLOAD ) SHARED ISPEXEC VPUT (TIXDB2ID TIXPLPR TIXLOAD ) SHARED END END IF (&GLOBAL= GLOBAL) THEN IF (= GLOBAL) THEN SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) SET RC = &LASTCC SET RC = 0 IF (&RC ¬= 0) THEN IF (0 ¬= 0) THEN ELSE ELSE SET RC = 0 SET RC = 0 ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) SET BTCHRCDS = &STR('&TIUPREF..IEF.BATCHRC&TIUSUFX') SET BTCHRCDS = 'IT04629.BAT.D6234045.IEF.BATCHRC' CONTROL NOFLUSH NOMSG CONTROL NOFLUSH NOMSG FREE F(TIBTCHRC) FREE F(TIBTCHRC) ALLOC FI(TIBTCHRC) SHR REUSE DA(&BTCHRCDS) ALLOC FI(TIBTCHRC) SHR REUSE DA('IT04629.BAT.D6234045.IEF.BATCHRC') IF &LASTCC ¬= 0 THEN IF 12 ¬= 0 THEN DO DO CONTROL MSG CONTROL MSG ALLOC F(TIBTCHRC) NEW REUSE &UNIT SPACE(10,10) RECFM(F) LRECL(80) BLKSIZE(80) BLOCK(1) DA(&BTCHRCDS) 1ALLOC F(TIBTCHRC) NEW REUSE UNIT(SYSDA) SPACE(10,10) RECFM(F) LRECL(80) BLKSIZE(80) BLOCK(1) DA('IT04629.BAT.D6234045.IEF.BA TCHRC') IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN END END CONTROL MSG CONTROL MSG SET &CLSTNAME = &STR(## STARTING TICEXTR CLIST ##) SET &CLSTNAME = ## STARTING TICEXTR CLIST ## IF &SUBSTR(1,&TIUDEBUG ) = C THEN IF C = C THEN %TICGEXTR T %TICGEXTR T ISPEXEC CONTROL ERRORS RETURN /* 17414197 */ ISPEXEC CONTROL ERRORS RETURN /* 17414197 */ SET PSEL = &STR( ) SET PSEL = SET PSABNAME = &STR( ) SET PSABNAME = SET PSABSCRN = &STR( ) SET PSABSCRN = SET PSABSNM = &STR( ) SET PSABSNM = SET PSABMNM = &STR( ) SET PSABMNM = SET PSABID = 0 SET PSABID = 0 SET PSABSCID = 0 SET PSABSCID = 0 ISPEXEC TBCREATE TICSTPL NOWRITE REPLACE KEYS(PSABID) NAMES(PSEL PSABNAME PSABSCRN PSABSCID PSABSNM PSABMNM) ISPEXEC TBCREATE TICSTPL NOWRITE REPLACE KEYS(PSABID) NAMES(PSEL PSABNAME PSABSCRN PSABSCID PSABSNM PSABMNM) SET RC = &LASTCC SET RC = 0 IF (&RC < 8) THEN IF (0 < 8) THEN SET RC = 0 SET RC = 0 OPENFILE TBLIN INPUT OPENFILE TBLIN INPUT SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630581 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ACCT_PRODUCT_CODE_SWAP_CMO131PA 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO131PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630760 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ACCT_PRODUCT_CODE_SWAP_CMO131WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO131WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630731 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ACCT_REQ_CRT_BAD_DEBT_CMO054PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO054PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630733 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ACCT_REQ_CRT_BAD_DEBT_CMO054WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO054WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N 1SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630594 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ARCB_SECURITY_CHECK_CMO160CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO160CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865729513 1SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = AVAIL_CRD_NUM_CMO200EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO200EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630622 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = BRANCH_REF_READ_CMA083EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA083EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865713127 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CAB_BUILD_PARAMETER_SET ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA802CB SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630722 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CALCULATE_CHKDIGIT_CMA157CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA157CA 1SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630721 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CALCULATE_PAN_CMA156CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA156CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = 1SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865713234 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CER0001_ERROR_GET_CMA801ER ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA801ER SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630570 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CHNL_LMT_LST_DEL_CHNLCD_CMA064CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA064CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630686 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CIF_LIST_NAME_CMA162CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA162CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630550 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CIFC_BUILD_CIF_HEADER_CMO016CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO016CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630552 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CIFC_INITIALISE_HEADERS_CMO071CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO071CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) 1SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630553 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CIFC_INTERPET_RETN_CODE_CMO003CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO003CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630551 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CIFC_MQ_MESSAGE_PARSE_CMO013EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO013EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL 1SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630555 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CIFC_007_CUST_ACCT_LIST_CMO027PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO027PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630593 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CONVERT_ACTION_CODES_CMA056CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA056CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630575 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_ACT_HST_CRT_CMA090CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA090CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END 1DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630574 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_ACT_HST_LST_CARD_ID_CMO067PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO067PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630598 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_ACT_HST_LST_CARD_ID_CMO067WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO067WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = 1ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630578 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_ACT_HST_RD_PEND_CMA115CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA115CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630585 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_CHNL_LMT_LST_CRD_ID_CMA151CA ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA151CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630579 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_CHNL_LMT_PREFILL_CMO037PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO037PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630612 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_CHNL_LMT_PREFILL_CMO037WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO037WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630572 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_CHNL_LMT_RD_CRD_ID_CMA065CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA065CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 1SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630586 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_CHNL_LMT_RD_DEFAULT_CMA152CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA152CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630569 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_DEL_CHNL_LST_TYPFTR_CMA063CA 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA063CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630621 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_EMB_PIN_CRT_CMA075CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA075CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630714 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_JRNL_CAF_CREATE_CMA150CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA150CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630717 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_JRNL_CAF_SPLIT_CMA006EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA006EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N 1SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630687 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_JRNL_DAR_REVRJ_CMA171CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA171CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630685 1SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_JRNL_DAR_SPLIT_CMA148EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA148EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630709 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_JRNL_DEL_DAMDR_CMA187CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA187CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630527 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_NEW_CNT_VAL_CMA022CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA022CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630535 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CRD_TYPE_RD_CMA021CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA021CA 1SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630560 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CUS_ACC_SRV_LST_DEL_CMA070CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA070CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = 1SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630616 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CUST_LST_CARD_NO_TYPE_CMO179PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO179PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630618 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CUST_LST_CARD_NO_TYPE_CMO179WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO179WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630558 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = CUSTYPE_RD_CUST_TYPE_CMO042EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO042EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630571 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = DEL_CHNL_RD_DEL_CHNL_CD_CMA062CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA062CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630520 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = DISESTABLISH_CARD_REL_CMO041PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO041PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) 1SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630522 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = DISESTABLISH_CARD_REL_CMO041WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO041WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630565 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = DISPLAY_DEBUG_MSG_CMB143EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMB143EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL 1SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630683 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = DLY_AMD_RPT_REP_CMA106CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA106CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630580 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ESTABLISH_CARD_REL_CMO058PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO058PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630605 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ESTABLISH_CARD_REL_CMO058WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO058WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END 1DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630694 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = EXPIRY_DATE_CALCULATION_CMA119CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA119CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630716 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = FHM_MESSAGE_CREATE_CMO153CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO153CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = 1ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630715 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = FHM_MESSAGE_EAB_CMO154EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO154EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630623 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = IDENTIFY_MAIN_ACCT_CMA084CA ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA084CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630737 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = LOCATE_VALID_ACCOUNTS_CMA018PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA018PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630738 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = LOCATE_VALID_ACCOUNTS_CMO018WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO018WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630701 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = LOG_SYSTEM_ERROR_CMB028EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMB028EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 1SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630561 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = MAIL_LABEL_RD_MAIN_ACT_CMA034CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA034CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630556 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = MANIPULATE_ACT_NUMBER_CMA032CA 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA032CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630713 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = NOTIFY_TANDEM_CMA132CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA132CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630740 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = NSC_ACT_VAL_STATUS_CMA069CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA069CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630707 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ONL_ACT_BAL_ENQ_MQ_CMA012EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA012EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N 1SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630619 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ONL_ACT_BALANCE_ENQUIRY_CMA068CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA068CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865665183 1SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = ONLINE_PROC ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = ONLINEPR SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630557 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = OPTERMS_RD_PROD_CODE_CMA038EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA038EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630706 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PIN_OFFSET_CALCULATION_CMO073EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO073EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630540 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_CANCEL_CMA009PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA009PA 1SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630604 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_CANCEL_CMO009WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO009WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = 1SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630573 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_CHG_WTHDRL_LMT_CMO043PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO043PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630615 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_CHG_WTHDRL_LMT_CMO043WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO043WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630691 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_CRT_CMO050CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO050CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865723034 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_CRT_LDG_CMO304PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO304PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865723631 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_CRT_LDG_CMO304WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO304WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) 1SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = C SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630690 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_CRT_NEW_CMO004PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO004PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630696 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_CRT_NEW_CMO004WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO004WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL 1SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865727744 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_GET_PIN_CMO300PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO300PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865728013 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_GET_PIN_CMO300WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO300WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630628 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_INBR_SWIPE_CMO078PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO078PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END 1DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630763 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_INBR_SWIPE_CMO078WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO078WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630588 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_LST_CARD_NO_CMO026PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO026PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = 1ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630589 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_LST_CARD_NO_CMO026WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO026WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630534 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_LST_CUST_CMO001PA ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO001PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630591 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_LST_CUST_CMO001WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO001WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865722697 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_LST_LDG_CMO301PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO301PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865722955 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_LST_LDG_CMO301WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO301WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 1SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630583 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_LST_NSC_ACC_CMO074PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO074PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630599 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_LST_NSC_ACC_CMO074WA 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO074WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630566 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_PIN_REISSUE_CMO025PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO025PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630774 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_PIN_REISSUE_CMO025WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO025WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630567 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_PIN_RESET_CMO033PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO033PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N 1SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630688 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_PIN_RESET_CMO033WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO033WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630584 1SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_RD_CRD_NO_TYPE_CMO088PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO088PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630595 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_RD_CRD_NO_TYPE_CMO088WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO088WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630627 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_READ_DETAILS_CMO066PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO066PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630601 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_READ_DETAILS_CMO066WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO066WA 1SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865713513 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_READ_IB_DETAIL_CMO330PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO330PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = 1SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865713740 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_READ_IB_DETAIL_CMO330WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO330WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630532 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_READ_ID_CMA002AA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA002AA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865724265 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_READ_NEW_CMO366PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO366PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865724645 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_READ_NEW_CMO366WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO366WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630568 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_REPLACE_CMO005PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO005PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) 1SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630758 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_REPLACE_CMO005WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO005WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630692 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_REVSL_CMO112PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO112PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL 1SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630766 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_REVSL_CMO112WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO112WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630563 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_UPD_ASIGN_ACT_CMO052PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO052PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630744 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_UPD_ASIGN_ACT_CMO052WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO052WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END 1DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630538 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_UPD_LSTLN_CMO015PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO015PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630607 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_UPD_LSTLN_CMO015WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO015WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = 1ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630549 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_UPD_MAIL_CHARG_CMO045PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO045PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630611 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_UPD_MAIL_CHARG_CMO045WA ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO045WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630779 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_UPD_PIN_CMO176PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO176PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630780 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PLST_CRD_UPD_PIN_CMO176WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO176WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865717343 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PREFILL_CARDS_SERVICES_CMO318PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO318PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 1SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865717841 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = PREFILL_CARDS_SERVICES_CMO318WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO318WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630660 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = RANDOM_NUMBER_GENERATOR_CMA094CA 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA094CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630661 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = RANDOM_NUMBER_GENERATOR_CMA095EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA095EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630643 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = READ_CARD_DETAILS_CMB169CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMB169CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630807 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = READ_CRD_TYP_EXPIRY_DTE_CMA230EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA230EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N 1SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630745 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = REF_BUS_RULE_DOWNLOAD_CMO072PA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO072PA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630746 1SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = REF_BUS_RULE_DOWNLOAD_CMO072WA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO072WA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630536 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = REF_VALUE_VAL_CMA020CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA020CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630727 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = REFORMAT_DATE_AND_TIME_CMA161CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA161CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630698 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = RETRIEVE_STANDARD_INPUT_CMA059EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA059EA 1SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630638 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = RETRIEVE_WRITE_CRD_JRNL_CMA055EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA055EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = 1SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630541 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_ACC_SRV_DEL_DEL_SCA019IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA019IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630542 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_ACC_SRV_DEL_LST_ACC_SCA027IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA027IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865724357 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_ACC_SRV_DETLS_SCA366IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA366IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865723735 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_CUS_ACC_SRV_CIF_LDG_SCA301IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA301IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630545 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_CUS_ACC_SRV_LST_CIF_SCA032IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA032IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) 1SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630559 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_CUS_ACC_SRV_LST_DEL_SCA021IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA021IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630546 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_CUS_SRV_DEL_EST_REL_SCA041IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA041IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL 1SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630521 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_CUS_SRV_UNESTABLISH_SCA049IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA049IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630547 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_DEL_MECH_REM_SCA029IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA029IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630704 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_LST_SRV_TYP_SCA044IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA044IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END 1DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630548 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SC_SRV_CRT_DEL_ID_SCA018IA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = SCA018IA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630705 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SERV_INTERPET_RESN_CDE_CMA120CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA120CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = 1ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630718 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SRM_CALL_EAB_CMO163EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO163EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865728099 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SRM_RETURN_PIN_CMO165EA ERROR ERROR 1GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO165EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865727770 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SRM_VAL_CVV2_CMO164EA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO164EA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF 1END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630582 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = STANDARD_INPUT_VALIDATN_CMA145CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA145CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630531 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = SYS_PARAM_READ_CMA036CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA036CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 1SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630529 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = 2D_BUS_RULE_LST_VALUE_CMA040CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA040CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630530 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = 2D_BUS_RULE_VAL_CMA039CA 1ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA039CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630609 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = 3D_ACTN_STAT_TYPE_FAIL_CMA167CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMA167CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN 1ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET PSEL = &SUBSTR(1:1,&NRSTR(&TBLIN)) SET PSEL = SET PSABID = &SUBSTR(3:12,&NRSTR(&TBLIN)) SET PSABID = 865630539 SET PSABNAME = &SUBSTR(14:45,&NRSTR(&TBLIN)) SET PSABNAME = 3D_BUS_RULE_VAL_CMO008CA ERROR ERROR GETFILE TBLIN GETFILE TBLIN ERROR OFF ERROR OFF SET PSABSNM = &SUBSTR(1:8,&NRSTR(&TBLIN)) SET PSABSNM = CMO008CA SET PSABSCRN = &SUBSTR(10:10,&NRSTR(&TBLIN)) SET PSABSCRN = N SET PSABSCID = &SUBSTR(12:21,&NRSTR(&TBLIN)) SET PSABSCID = 0 SET PSABMNM = &SUBSTR(23:30,&NRSTR(&TBLIN)) SET PSABMNM = ISPEXEC TBADD TICSTPL ISPEXEC TBADD TICSTPL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE TBLIN GETFILE TBLIN DO DO SET RC = &LASTCC SET RC = 400 RETURN RETURN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(400 = 0) CLOSFILE TBLIN CLOSFILE TBLIN SET TICLDMNM = &STR( ) SET TICLDMNM = SET TICLDATT = &STR( ) SET TICLDATT = SET TICLDPSB = &STR( ) SET TICLDPSB = SET TICLDSTN = &STR( ) SET TICLDSTN = 1SET TICLDTYP = &STR( ) SET TICLDTYP = SET TICLDSEQ = 0 SET TICLDSEQ = 0 SET TICLDMID = 0 SET TICLDMID = 0 ISPEXEC TBCREATE TICLDMOD NOWRITE REPLACE KEYS(TICLDMNM) NAMES(TICLDTYP TICLDSEQ TICLDMID TICLDSTN TICLDATT TICLDPSB) ISPEXEC TBCREATE TICLDMOD NOWRITE REPLACE KEYS(TICLDMNM) NAMES(TICLDTYP TICLDSEQ TICLDMID TICLDSTN TICLDATT TICLDPSB) SET RC = &LASTCC SET RC = 0 IF (&RC < 8) THEN IF (0 < 8) THEN SET RC = 0 SET RC = 0 OPENFILE LDMODIN INPUT OPENFILE LDMODIN INPUT SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE LDMODIN GETFILE LDMODIN ERROR OFF ERROR OFF DO WHILE(&RC = 0) DO WHILE(0 = 0) SET TICLDMNM = &SUBSTR(1:8,&NRSTR(&LDMODIN)) SET TICLDMNM = JOBALL SET TICLDSEQ = &SUBSTR(10:19,&NRSTR(&LDMODIN)) SET TICLDSEQ = 16319 SET TICLDMID = &SUBSTR(21:30,&NRSTR(&LDMODIN)) SET TICLDMID = 865708741 SET TICLDATT = &SUBSTR(32:39,&NRSTR(&LDMODIN)) SET TICLDATT = DB2_DSN SET TICLDPSB = &SUBSTR(41:48,&NRSTR(&LDMODIN)) SET TICLDPSB = SET TICLDSTN = &SUBSTR(50:57,&NRSTR(&LDMODIN)) SET TICLDSTN = JOBALL SET TICLDTYP = &SUBSTR(59:70,&NRSTR(&LDMODIN)) /* 17026110 */ SET TICLDTYP = BATCH /* 17026110 */ ISPEXEC TBADD TICLDMOD ISPEXEC TBADD TICLDMOD SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE LDMODIN GETFILE LDMODIN DO DO SET RC = &LASTCC SET RC = 400 RETURN RETURN ERROR OFF ERROR OFF 1END END DO WHILE(&RC = 0) DO WHILE(400 = 0) CLOSFILE LDMODIN CLOSFILE LDMODIN SET LINECMD = &STR( ) SET LINECMD = SET ORDER = &STR( ) SET ORDER = SET LIBNAME = &STR( ) SET LIBNAME = ISPEXEC TBCREATE TICENVL WRITE REPLACE NAMES(LINECMD ORDER LIBNAME) ISPEXEC TBCREATE TICENVL WRITE REPLACE NAMES(LINECMD ORDER LIBNAME) SET RC = &LASTCC SET RC = 0 IF (&RC < 8) THEN IF (0 < 8) THEN SET RC = 0 SET RC = 0 OPENFILE ENVLIN INPUT OPENFILE ENVLIN INPUT SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ENVLIN GETFILE ENVLIN ERROR OFF ERROR OFF DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ENVLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ENVLIN)) SET ORDER = 1 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ENVLIN)) SET LIBNAME = 'SYS1.AIB.LINKLIB' ISPEXEC TBADD TICENVL ISPEXEC TBADD TICENVL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ENVLIN GETFILE ENVLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ENVLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ENVLIN)) SET ORDER = 2 1SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ENVLIN)) SET LIBNAME = 'SYS1.SCEELKED' ISPEXEC TBADD TICENVL ISPEXEC TBADD TICENVL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ENVLIN GETFILE ENVLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ENVLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ENVLIN)) SET ORDER = 3 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ENVLIN)) SET LIBNAME = 'SYS7.DB2T.SDSNLOAD' ISPEXEC TBADD TICENVL ISPEXEC TBADD TICENVL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ENVLIN GETFILE ENVLIN DO DO SET RC = &LASTCC SET RC = 400 RETURN RETURN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(400 = 0) CLOSFILE ENVLIN CLOSFILE ENVLIN ISPEXEC TBCLOSE TICENVL REPLCOPY LIBRARY(ISPPROF) ISPEXEC TBCLOSE TICENVL REPLCOPY LIBRARY(ISPPROF) ISPEXEC TBCREATE TICABLL WRITE REPLACE NAMES(LINECMD ORDER LIBNAME) ISPEXEC TBCREATE TICABLL WRITE REPLACE NAMES(LINECMD ORDER LIBNAME) SET RC = &LASTCC SET RC = 0 IF (&RC < 8) THEN IF (0 < 8) THEN SET RC = 0 SET RC = 0 OPENFILE ABLLIN INPUT OPENFILE ABLLIN INPUT 1SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABLLIN GETFILE ABLLIN ERROR OFF ERROR OFF DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ABLLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ABLLIN)) SET ORDER = 1 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ABLLIN)) SET LIBNAME = 'CJ.EXTERN.LE.NCALLIB' ISPEXEC TBADD TICABLL ISPEXEC TBADD TICABLL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABLLIN GETFILE ABLLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ABLLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ABLLIN)) SET ORDER = 2 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ABLLIN)) SET LIBNAME = 'SGS.SERV.NCALLIB.CG86' ISPEXEC TBADD TICABLL ISPEXEC TBADD TICABLL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABLLIN GETFILE ABLLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ABLLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ABLLIN)) SET ORDER = 3 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ABLLIN)) SET LIBNAME = 'SGS.SERV.LOADLIB.CG86' 1ISPEXEC TBADD TICABLL ISPEXEC TBADD TICABLL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABLLIN GETFILE ABLLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ABLLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ABLLIN)) SET ORDER = 4 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ABLLIN)) SET LIBNAME = 'TA.LE.LOADLIB' ISPEXEC TBADD TICABLL ISPEXEC TBADD TICABLL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABLLIN GETFILE ABLLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ABLLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ABLLIN)) SET ORDER = 5 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ABLLIN)) SET LIBNAME = 'TA.LOADLIB' ISPEXEC TBADD TICABLL ISPEXEC TBADD TICABLL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABLLIN GETFILE ABLLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ABLLIN)) SET LINECMD = 1SET ORDER = &SUBSTR(5:6,&NRSTR(&ABLLIN)) SET ORDER = 6 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ABLLIN)) SET LIBNAME = 'CI.TEST.SRM.HSSLOAD' ISPEXEC TBADD TICABLL ISPEXEC TBADD TICABLL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABLLIN GETFILE ABLLIN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ABLLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ABLLIN)) SET ORDER = 7 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ABLLIN)) SET LIBNAME = 'PV.TEST.TBASE.LOAD' ISPEXEC TBADD TICABLL ISPEXEC TBADD TICABLL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABLLIN GETFILE ABLLIN DO DO SET RC = &LASTCC SET RC = 400 RETURN RETURN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(400 = 0) CLOSFILE ABLLIN CLOSFILE ABLLIN ISPEXEC TBCLOSE TICABLL REPLCOPY LIBRARY(ISPPROF) ISPEXEC TBCLOSE TICABLL REPLCOPY LIBRARY(ISPPROF) ISPEXEC TBCREATE TICABDL WRITE REPLACE NAMES(LINECMD ORDER LIBNAME) ISPEXEC TBCREATE TICABDL WRITE REPLACE NAMES(LINECMD ORDER LIBNAME) SET RC = &LASTCC SET RC = 0 IF (&RC < 8) THEN IF (0 < 8) THEN SET RC = 0 SET RC = 0 1OPENFILE ABDLIN INPUT OPENFILE ABDLIN INPUT SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABDLIN GETFILE ABDLIN ERROR OFF ERROR OFF DO WHILE(&RC = 0) DO WHILE(0 = 0) SET LINECMD = &SUBSTR(1:3,&NRSTR(&ABDLIN)) SET LINECMD = SET ORDER = &SUBSTR(5:6,&NRSTR(&ABDLIN)) SET ORDER = 1 SET LIBNAME = &SUBSTR(8:53,&NRSTR(&ABDLIN)) SET LIBNAME = 'CJS.CARDS.DBRMLIB.CG86' ISPEXEC TBADD TICABDL ISPEXEC TBADD TICABDL SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE ABDLIN GETFILE ABDLIN DO DO SET RC = &LASTCC SET RC = 400 RETURN RETURN ERROR OFF ERROR OFF END END DO WHILE(&RC = 0) DO WHILE(400 = 0) CLOSFILE ABDLIN CLOSFILE ABDLIN ISPEXEC TBCLOSE TICABDL REPLCOPY LIBRARY(ISPPROF) ISPEXEC TBCLOSE TICABDL REPLCOPY LIBRARY(ISPPROF) ISPEXEC TBCREATE TICABLC WRITE REPLACE NAMES(LINECMD ORDER LIBNAME) ISPEXEC TBCREATE TICABLC WRITE REPLACE NAMES(LINECMD ORDER LIBNAME) SET RC = &LASTCC SET RC = 0 IF (&RC < 8) THEN IF (0 < 8) THEN SET RC = 0 SET RC = 0 OPENFILE ABLCIN INPUT OPENFILE ABLCIN INPUT SET RC = &LASTCC SET RC = 0 ERROR ERROR 1GETFILE ABLCIN GETFILE ABLCIN DO DO SET RC = &LASTCC SET RC = 400 RETURN RETURN ERROR OFF ERROR OFF DO WHILE(&RC = 0) DO WHILE(400 = 0) CLOSFILE ABLCIN CLOSFILE ABLCIN ISPEXEC TBCLOSE TICABLC REPLCOPY LIBRARY(ISPPROF) ISPEXEC TBCLOSE TICABLC REPLCOPY LIBRARY(ISPPROF) OPENFILE DATAIN INPUT OPENFILE DATAIN INPUT SET RC = &LASTCC SET RC = 0 ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(MODLNAME SHR SCRDDM86 CARDS MGT )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SCRDDM86 CARDS MGT SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(SCRDDM86 CARDS MGT )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(SCRDDM86 CARDS MGT )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(SCRDDM86 CARDS MGT )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(SCRDDM86 CARDS MGT )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(SCRDDM86 CARDS MGT )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(SCRDDM86 CARDS MGT )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(SCRDDM86 CARDS MGT )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(SCRDDM86 CARDS MGT )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(SCRDDM86 CARDS MGT )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF T = AND 18 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) 1SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:18,SCRDDM86 CARDS MGT ) SET &&VARNAME = &STR(&VARVAL) SET &MODLNAME = SCRDDM86 CARDS MGT IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT MODLNAME SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TISNAME SHR CARDS )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = CARDS SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF S = AND 5 > 1 THEN ELSE ELSE DO DO 1SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:5,CARDS ) SET &&VARNAME = &STR(&VARVAL) SET &TISNAME = CARDS IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TISNAME SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICSLIB1 SHR 'CJS.CARDS.SOURCE.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.SOURCE.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 23 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:23,'CJS.CARDS.SOURCE.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICSLIB1 = 'CJS.CARDS.SOURCE.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICSLIB1 SHARED END END 1ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLLIBC SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICLLIBC = 1IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLLIBC SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLLIB1 SHR 'CJS.CARDS.LOADLIB.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.LOADLIB.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 24 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:24,'CJS.CARDS.LOADLIB.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICLLIB1 = 'CJS.CARDS.LOADLIB.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLLIB1 SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLLIB2 SHR 'CJS.CARDS.NCALLIB.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.NCALLIB.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.NCALLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 24 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:24,'CJS.CARDS.NCALLIB.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICLLIB2 = 'CJS.CARDS.NCALLIB.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLLIB2 SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN 1ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLLIB3 SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICLLIB3 = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO 1ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLLIB3 SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICMLIB2 SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) 1SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICMLIB2 = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICMLIB2 SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICRLIB1 SHR 'CJS.CARDS.DBRMLIB.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.DBRMLIB.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 24 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:24,'CJS.CARDS.DBRMLIB.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICRLIB1 = 'CJS.CARDS.DBRMLIB.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICRLIB1 SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICRLIB2 SHR 'CJS.CARDS.CONTROL.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.CONTROL.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 24 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:24,'CJS.CARDS.CONTROL.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICRLIB2 = 'CJS.CARDS.CONTROL.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICRLIB2 SHARED END END 1ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICRLIB3 SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICRLIB3 = 1IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICRLIB3 SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICRLIB4 SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICRLIB4 = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICRLIB4 SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICRCDIC SHR 'CJS.CARDS.CONTROL.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.CONTROL.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.CONTROL.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 24 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:24,'CJS.CARDS.CONTROL.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICRCDIC = 'CJS.CARDS.CONTROL.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICRCDIC SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICGCDCL SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 1SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICGCDCL = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICGCDCL SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) 1SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICGCDCC SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICGCDCC = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICGCDCC SHARED END END ERROR ERROR 1GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICRCDLB SHR 'CJS.CARDS.DBRMLIB.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.DBRMLIB.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.DBRMLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 24 > 1 THEN ELSE ELSE DO DO 1SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:24,'CJS.CARDS.DBRMLIB.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICRCDLB = 'CJS.CARDS.DBRMLIB.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICRCDLB SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLCDLA SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICLCDLA = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLCDLA SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLCDLB SHR 'CJS.CARDS.LOADLIB.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.LOADLIB.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.LOADLIB.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 24 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:24,'CJS.CARDS.LOADLIB.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICLCDLB = 'CJS.CARDS.LOADLIB.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLCDLB SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF 1END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLCDLC SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICLCDLC = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLCDLC SHARED 1END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLCDLD SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) 1SET &&VARNAME = &STR(&VARVAL) SET &TICLCDLD = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLCDLD SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLCDLK SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICLCDLK = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLCDLK SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLCDBT SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICLCDBT = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLCDBT SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICRINM SHR CASCADE )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = CASCADE SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(CASCADE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF E = AND 7 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:7,CASCADE ) SET &&VARNAME = &STR(&VARVAL) SET &TICRINM = CASCADE IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN 1DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICRINM SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICDJCL SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICDJCL = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICDJCL SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICGLIB1 SHR 'CJS.CARDS.COMPILE.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.COMPILE.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.COMPILE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 24 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:24,'CJS.CARDS.COMPILE.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICGLIB1 = 'CJS.CARDS.COMPILE.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICGLIB1 SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICGLIBC SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICGLIBC = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICGLIBC SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICBUSN SHR CARDS )) 1SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = CARDS SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF S = AND 5 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:5,CARDS ) SET &&VARNAME = &STR(&VARVAL) SET &TICBUSN = CARDS IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICBUSN SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN 1ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICHKOUT SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &TICHKOUT = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO 1ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICHKOUT SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(GDS SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) 1SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &GDS = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT GDS SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICMFMT SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO 1SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TICMFMT = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICMFMT SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICEXTND SHR Y )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = Y SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF Y = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,Y ) SET &&VARNAME = &STR(&VARVAL) SET &TICEXTND = Y IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICEXTND SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(GDM SHR Y )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = Y SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF Y = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,Y ) SET &&VARNAME = &STR(&VARVAL) SET &GDM = Y IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT GDM SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICDSID1 SHR DB2T )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = DB2T SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(DB2T )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF T = AND 4 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:4,DB2T ) SET &&VARNAME = &STR(&VARVAL) SET &TICDSID1 = DB2T IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICDSID1 SHARED 1END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TIULOADL PRO )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = PRO SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) 1SET &&VARNAME = &STR(&VARVAL) SET &TIULOADL = IF &NRSTR(&POOLTYP) = SHR THEN IF PRO = SHR THEN ELSE ELSE IF &NRSTR(&POOLTYP) = PRO THEN IF PRO = PRO THEN DO DO ISPEXEC VPUT &VARNAME PROFILE ISPEXEC VPUT TIULOADL PROFILE END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICTPMON SHR IEFAE )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = IEFAE SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(IEFAE )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF E = AND 5 > 1 THEN ELSE ELSE 1DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:5,IEFAE ) SET &&VARNAME = &STR(&VARVAL) SET &TICTPMON = IEFAE IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICTPMON SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICMPTYP SHR BYPASS )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = BYPASS SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(BYPASS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF S = AND 6 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:6,BYPASS ) SET &&VARNAME = &STR(&VARVAL) SET &TICMPTYP = BYPASS IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICMPTYP SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TIUPLPRT PRO )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = PRO SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN 1ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &TIUPLPRT = IF &NRSTR(&POOLTYP) = SHR THEN IF PRO = SHR THEN ELSE ELSE IF &NRSTR(&POOLTYP) = PRO THEN IF PRO = PRO THEN DO DO ISPEXEC VPUT &VARNAME PROFILE ISPEXEC VPUT TIUPLPRT PROFILE END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICPMTYP SHR DB2 )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = DB2 SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF 2 = AND 3 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:3,DB2 ) SET &&VARNAME = &STR(&VARVAL) SET &TICPMTYP = DB2 1IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICPMTYP SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(OS SHR MVS )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = MVS SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(MVS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF S = AND 3 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:3,MVS ) SET &&VARNAME = &STR(&VARVAL) SET &OS = MVS IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT OS SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(GENCOMP SHR VSCOB )) 1SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = VSCOB SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(VSCOB )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF B = AND 5 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:5,VSCOB ) SET &&VARNAME = &STR(&VARVAL) SET &GENCOMP = VSCOB IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT GENCOMP SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN 1ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(DBM SHR DB2 )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = DB2 SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(DB2 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF 2 = AND 3 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:3,DB2 ) SET &&VARNAME = &STR(&VARVAL) SET &DBM = DB2 IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT DBM SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(GENLANG SHR COBOL )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = COBOL SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(COBOL )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(COBOL )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF L = AND 5 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:5,COBOL ) SET &&VARNAME = &STR(&VARVAL) SET &GENLANG = COBOL IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT GENLANG SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(RESTAPPL SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N 1SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &RESTAPPL = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT RESTAPPL SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ 1DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICRESET SHR RESET )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = RESET SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(RESET )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF T = AND 5 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:5,RESET ) SET &&VARNAME = &STR(&VARVAL) SET &TICRESET = RESET IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICRESET SHARED END END 1ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICXCTL SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &TICXCTL = N 1IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICXCTL SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICTRAPC SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &TICTRAPC = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICTRAPC SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICTRAPA SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN 1ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &TICTRAPA = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICTRAPA SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(REMINST SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &REMINST = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT REMINST SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLCDSR SHR 'CJS.CARDS.SOURCE.CG86' )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 'CJS.CARDS.SOURCE.CG86' SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR('CJS.CARDS.SOURCE.CG86' )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR('CJS.CARDS.SOURCE.CG86' )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR('CJS.CARDS.SOURCE.CG86' )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR('CJS.CARDS.SOURCE.CG86' )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR('CJS.CARDS.SOURCE.CG86' )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR('CJS.CARDS.SOURCE.CG86' )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR('CJS.CARDS.SOURCE.CG86' )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR('CJS.CARDS.SOURCE.CG86' )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF ' = AND 23 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) 1SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:23,'CJS.CARDS.SOURCE.CG86' ) SET &&VARNAME = &STR(&VARVAL) SET &TICLCDSR = 'CJS.CARDS.SOURCE.CG86' IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLCDSR SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICLMALL SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO 1SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &TICLMALL = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICLMALL SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(OPTIMPVW SHR Y )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = Y SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF Y = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,Y ) SET &&VARNAME = &STR(&VARVAL) SET &OPTIMPVW = Y IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT OPTIMPVW SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(ENFCNST SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &ENFCNST = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT ENFCNST SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TIAPPLID SHR 0027832465 )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 0027832465 SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(0027832465 )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF 5 = AND 10 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:10,0027832465 ) SET &&VARNAME = &STR(&VARVAL) SET &TIAPPLID = 0027832465 IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TIAPPLID SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TIAPPLNM SHR CARDS )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = CARDS SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(CARDS )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF S = AND 5 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:5,CARDS ) SET &&VARNAME = &STR(&VARVAL) SET &TIAPPLNM = CARDS IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TIAPPLNM SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICDYNPR SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 1SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &TICDYNPR = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICDYNPR SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) 1SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICDYNAB SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &TICDYNAB = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICDYNAB SHARED END END ERROR ERROR 1GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TICDYNSM SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &TICDYNSM = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN 1DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TICDYNSM SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(LINKFLAG SHR Y )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = Y SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF Y = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,Y ) SET &&VARNAME = &STR(&VARVAL) SET &LINKFLAG = Y IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT LINKFLAG SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(BINDFLAG SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE 1DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &BINDFLAG = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT BINDFLAG SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(LINKDYNM SHR Y )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = Y SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(Y )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF Y = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,Y ) SET &&VARNAME = &STR(&VARVAL) SET &LINKDYNM = Y IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT LINKDYNM SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(HASZLIB SHR NO )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = NO SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(NO )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF O = AND 2 > 1 THEN 1ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:2,NO ) SET &&VARNAME = &STR(&VARVAL) SET &HASZLIB = NO IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT HASZLIB SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(ETFAUX SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &ETFAUX = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT ETFAUX SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(ETFTRACE SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) 1IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &ETFTRACE = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT ETFTRACE SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(ETFEXCL SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = 1SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 1END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &ETFEXCL = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT ETFEXCL SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ 1DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(ETFINCL SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) 1SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &ETFINCL = IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT ETFINCL SHARED END END 1ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(ETFOPTS SHR )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO 1SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR( )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1, ) SET &&VARNAME = &STR(&VARVAL) SET &ETFOPTS = 1IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT ETFOPTS SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(MAPGENV SHR N )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = N SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 7 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 7 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(6:6,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 6 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 6 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(5:5,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 5 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 5 - 1 END END END END 1DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(4:4,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 4 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 4 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(3:3,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 3 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 3 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(2:2,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 2 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 2 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(1:1,&STR(N )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF N = AND 1 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END 1END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:1,N ) SET &&VARNAME = &STR(&VARVAL) SET &MAPGENV = N IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT MAPGENV SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(0 = 0) SET VARNAME = &NRSTR(&SUBSTR(1:8,&NRSTR(&DATAIN))) SET VARNAME = &SUBSTR(1:8,&NRSTR(TYPEICM SHR TYPEICM )) SET POOLTYP = &SUBSTR(10:12,&NRSTR(&DATAIN)) SET POOLTYP = SHR SET VARVAL = &STR(&SUBSTR(14:63,&NRSTR(&DATAIN))) SET VARVAL = TYPEICM SET LASTCHAR = &LENGTH(&STR(&VARVAL)) SET LASTCHAR = 50 SET ENDLOOP = N SET ENDLOOP = N DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(50:50,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 50 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 50 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(49:49,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 49 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 49 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(48:48,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 48 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 48 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(47:47,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 47 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 47 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(46:46,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 46 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 46 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(45:45,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 45 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 45 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(44:44,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 44 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 44 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(43:43,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 43 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 43 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(42:42,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 42 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 42 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(41:41,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 41 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 41 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(40:40,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 40 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 40 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(39:39,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 39 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 39 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(38:38,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 38 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 38 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(37:37,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 37 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 37 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(36:36,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 36 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 36 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(35:35,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 35 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 35 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(34:34,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 34 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 34 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(33:33,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 33 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 33 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(32:32,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 32 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 32 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(31:31,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 31 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 31 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(30:30,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 30 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 30 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(29:29,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 29 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 29 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(28:28,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 28 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 28 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(27:27,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 27 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 27 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(26:26,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 26 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 26 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(25:25,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 25 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 25 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(24:24,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 24 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 24 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(23:23,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 23 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 23 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(22:22,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 22 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 22 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(21:21,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 21 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 21 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(20:20,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 20 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 20 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(19:19,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 19 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 19 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(18:18,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 18 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 18 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(17:17,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 17 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 17 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(16:16,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 16 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 16 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(15:15,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 15 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 15 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(14:14,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 14 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 14 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(13:13,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 13 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 13 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(12:12,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 12 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 12 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(11:11,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 11 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 11 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(10:10,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 10 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 10 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(9:9,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 9 > 1 THEN 1DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 9 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(8:8,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF = AND 8 > 1 THEN DO DO SET LASTCHAR = &LASTCHAR - 1 SET LASTCHAR = 8 - 1 END END END END DO WHILE(&ENDLOOP = N) DO WHILE(N = N) SET CHAR1 = &NRSTR(&SUBSTR(&LASTCHAR:&LASTCHAR,&STR(&VARVAL))) SET CHAR1 = &SUBSTR(7:7,&STR(TYPEICM )) IF &CHAR1 = AND &LASTCHAR > 1 THEN IF M = AND 7 > 1 THEN ELSE ELSE DO DO SET ENDLOOP = Y SET ENDLOOP = Y END END END END DO WHILE(&ENDLOOP = N) DO WHILE(Y = N) SET &VARVAL = &NRSTR(&SUBSTR(1:&LASTCHAR,&VARVAL)) SET &VARVAL = &SUBSTR(1:7,TYPEICM ) SET &&VARNAME = &STR(&VARVAL) SET &TYPEICM = TYPEICM IF &NRSTR(&POOLTYP) = SHR THEN IF SHR = SHR THEN DO DO ISPEXEC VPUT &VARNAME SHARED ISPEXEC VPUT TYPEICM SHARED END END ERROR ERROR GETFILE DATAIN GETFILE DATAIN 1DO DO SET RC = &LASTCC SET RC = 400 RETURN RETURN ERROR OFF ERROR OFF END /* END DO-WHILE PROCESSING */ END /* END DO-WHILE PROCESSING */ DO WHILE(&RC = 0) DO WHILE(400 = 0) CLOSFILE DATAIN CLOSFILE DATAIN EXIT CODE(0) EXIT CODE(0) SET RC = &LASTCC SET RC = 0 IF (&RC = 16) THEN IF (0 = 16) THEN ELSE ELSE SET RC = 0 SET RC = 0 SET MNAME = &NRSTR(&MODLNAME) SET MNAME = SET BSNAME = &NRSTR(&TISNAME) SET BSNAME = %TICGETPR %TICGETPR END END SET CLSTNAME = &STR(#### STARTING TICGETPR CLIST ####) SET CLSTNAME = #### STARTING TICGETPR CLIST #### CONTROL MSG NOFLUSH CONTROL MSG NOFLUSH ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL ERRORS RETURN ISPEXEC VGET TIUDB2S ASIS ISPEXEC VGET TIUDB2S ASIS IF &TIUDB2S = THEN IF DBTG = THEN ISPEXEC VGET (TIUDASD) ASIS ISPEXEC VGET (TIUDASD) ASIS IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) CONTROL NOMSG CONTROL NOMSG FREE F(GENCTL) FREE F(GENCTL) CONTROL MSG CONTROL MSG 1ALLOC F(GENCTL) NEW REUSE SPACE(60,60) RECFM(F B) &UNIT LRECL(80) BLKSIZE(15440) BLOCK(100) ALLOC F(GENCTL) NEW REUSE SPACE(60,60) RECFM(F B) UNIT(SYSDA) LRECL(80) BLKSIZE(15440) BLOCK(100) SET RC = &LASTCC SET RC = 0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN %TIUDFILE %TIUDFILE SET CLSTNAME = &STR(### STARTING TIUDFILE CLIST ###)/*NBG88049*/ SET CLSTNAME = ### STARTING TIUDFILE CLIST ###/*NBG88049*/ END END SET BATCH = NO SET BATCH = NO IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (TIUDASD TIUDASZ TIUDBGDT TIUDBGAB) SHARED ISPEXEC VGET (TIUDASD TIUDASZ TIUDBGDT TIUDBGAB) SHARED ISPEXEC VGET (TIURPSZ TIUTRSZ TIUDRSZ) SHARED ISPEXEC VGET (TIURPSZ TIUTRSZ TIUDRSZ) SHARED ISPEXEC VGET (TIUPREF TIUSUFX) SHARED /*NBG88049*/ ISPEXEC VGET (TIUPREF TIUSUFX) SHARED /*NBG88049*/ ISPEXEC VGET (ZENVIR) SHARED ISPEXEC VGET (ZENVIR) SHARED IF &SUBSTR(17:21,&STR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN DO DO SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ END END END END IF (&DOWNLOAD = DOWNLOAD) OR (&UPLOAD = UPLOAD) THEN IF ( = DOWNLOAD) OR ( = UPLOAD) THEN IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) SET SYSPFILE = &STR(SYSPRINT) /*DLL91108*/ SET SYSPFILE = SYSPRINT /*DLL91108*/ CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH IF &BATCH = YES THEN IF YES = YES THEN DO DO ALLOC F(&SYSPFILE) DA(*) REUSE ALLOC F(SYSPRINT) DA(*) REUSE GOTO SYSPEND GOTO SYSPEND 1IF &ALTSYSP ¬= &Z THEN IF ¬= THEN CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH IF &BATCH = YES THEN IF YES = YES THEN DO DO ALLOC F(LOGFILE) DA(*) REUSE ALLOC F(LOGFILE) DA(*) REUSE GOTO SKIPLOG GOTO SKIPLOG CONTROL MSG CONTROL MSG IF &TIUDBGDT ¬= THEN IF ¬= THEN IF &TIUDBGAB ¬= THEN IF ¬= THEN IF &TIUDBGAB ¬= THEN IF ¬= THEN SET COMFILES = &STR() SET COMFILES = IF (&UPLOAD = UPLOAD) THEN IF ( = UPLOAD) THEN IF (&DOWNLOAD = DOWNLOAD) THEN IF ( = DOWNLOAD) THEN IF (&DIAG = DIAG) THEN IF ( = DIAG) THEN IF (&COMFILES = YES) THEN IF ( = YES) THEN SET CLSTNAME = &STR(#### LEAVING TIUDFILE CLIST ####) /*NBG88049*/ SET CLSTNAME = #### LEAVING TIUDFILE CLIST #### /*NBG88049*/ EXIT CODE(0) EXIT CODE(0) ISPEXEC SELECT PGM(TICGETPX) ISPEXEC SELECT PGM(TICGETPX) SET RC = &LASTCC SET RC = 0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN IF (&TIUDEBUG ¬= ) THEN IF (C ¬= ) THEN IF (&SUBSTR(1,&TIUDEBUG )=C) OR (&SUBSTR(1,&TIUDEBUG )=T) THEN IF (C=C) OR (C=T) THEN %TPTBROWS DD(GENCTL) %TPTBROWS DD(GENCTL) EXIT CODE(0) EXIT CODE(0) SET RC = &LASTCC SET RC = 0 IF (&RC > 0) THEN IF (0 > 0) THEN IF (&INSTNEW = &STR(Y) THEN IF (N = Y THEN SET &CLSTNAME = &STR(## STARTING TICPREGN CLIST ##) SET &CLSTNAME = ## STARTING TICPREGN CLIST ## 1%TICPREGN %TICPREGN SET CLSTNAME = &STR(#### STARTING TICPREGN CLIST ####) SET CLSTNAME = #### STARTING TICPREGN CLIST #### SET &STATUS=SOURCE CODE GENERATION PHASE IN PROGRESS SET &STATUS=SOURCE CODE GENERATION PHASE IN PROGRESS ISPEXEC VPUT STATUS SHARED ISPEXEC VPUT STATUS SHARED %TICSDIS CMD(OPEN) ALARM(YES) %TICSDIS CMD(OPEN) ALARM(YES) IF &ALARM ¬= YES THEN IF YES ¬= YES THEN ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF OPEN = OPEN THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ SET TIT1 = &NRSTR( ITEM ) SET TIT1 = ITEM SET TIT2 = &NRSTR( STATUS) SET TIT2 = STATUS SET TITLE = &NRSTR(&TIT1)&NRSTR(&TIT2) SET TITLE = ITEM STATUS SET LINE1 = &NRSTR(============================== ) SET LINE1 = ============================== SET LINE2 = &STR(==============================================) SET LINE2 = ============================================== SET UNDERBAR = &NRSTR(&LINE1)&NRSTR(&LINE2) SET UNDERBAR = ============================== ============================================== IF &LENGTH(&NRSTR(&MODLNAME)) >= 32 THEN IF 18 >= 32 THEN ELSE ELSE DO DO SET MODNAME = &NRSTR(&MODLNAME) SET MODNAME = SCRDDM86 CARDS MGT DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 18 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 19 < 32 1SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 20 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 21 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 22 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 23 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 24 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 25 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 26 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 27 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 28 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT 1END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 29 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 30 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 31 < 32 SET MODNAME = &NRSTR(&MODNAME)&NRSTR( ) SET MODNAME = SCRDDM86 CARDS MGT END END DO WHILE &LENGTH(&NRSTR(&MODNAME)) < 32 DO WHILE 32 < 32 END END IF &LENGTH(&NRSTR(&TISNAME)) >= 32 THEN IF 5 >= 32 THEN ELSE ELSE DO DO SET SYSTNAME = &NRSTR(&TISNAME) SET SYSTNAME = CARDS DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 5 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 6 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 7 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 8 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END 1DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 9 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 10 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 11 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 12 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 13 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 14 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 15 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 16 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 17 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 18 < 32 1SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 19 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 20 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 21 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 22 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 23 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 24 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 25 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 26 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 27 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS 1END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 28 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 29 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 30 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 31 < 32 SET SYSTNAME = &NRSTR(&SYSTNAME)&NRSTR( ) SET SYSTNAME = CARDS END END DO WHILE &LENGTH(&NRSTR(&SYSTNAME)) < 32 DO WHILE 32 < 32 END END IF &LENGTH(&NRSTR(&LDMODNM)) >= 8 THEN IF 6 >= 8 THEN ELSE ELSE DO DO SET LOADNME = &NRSTR(&LDMODNM) SET LOADNME = JOBALL DO WHILE &LENGTH(&NRSTR(&LOADNME)) < 8 DO WHILE 6 < 8 SET LOADNME = &NRSTR(&LOADNME)&NRSTR( ) SET LOADNME = JOBALL END END DO WHILE &LENGTH(&NRSTR(&LOADNME)) < 8 DO WHILE 7 < 8 SET LOADNME = &NRSTR(&LOADNME)&NRSTR( ) SET LOADNME = JOBALL END END DO WHILE &LENGTH(&NRSTR(&LOADNME)) < 8 DO WHILE 8 < 8 END END WRITE WRITE 1 WRITE &STR(****************************************************) WRITE **************************************************** **************************************************** WRITE &STR(** ---------- BACKGROUND UTILITY BEGIN ---------- **) WRITE ** ---------- BACKGROUND UTILITY BEGIN ---------- ** ** ---------- BACKGROUND UTILITY BEGIN ---------- ** WRITE &STR(** **) WRITE ** ** ** ** WRITE &STR(** MODEL: &MODNAME **) WRITE ** MODEL: SCRDDM86 CARDS MGT ** ** MODEL: SCRDDM86 CARDS MGT ** WRITE &STR(** SYSTEM: &SYSTNAME **) WRITE ** SYSTEM: CARDS ** ** SYSTEM: CARDS ** WRITE &STR(** LOAD MODULE: &LOADNME **) WRITE ** LOAD MODULE: JOBALL ** ** LOAD MODULE: JOBALL ** WRITE &STR(** **) WRITE ** ** ** ** WRITE &STR(****************************************************) WRITE **************************************************** **************************************************** WRITE &STR(** DATE: &SYSDATE TIME: &SYSTIME **) WRITE ** DATE: 04/26/23 TIME: 23:40:46 ** ** DATE: 04/26/23 TIME: 23:40:46 ** WRITE &STR(****************************************************) WRITE **************************************************** **************************************************** WRITE WRITE WRITE &NRSTR(&TITLE) WRITE ITEM STATUS ITEM STATUS WRITE &NRSTR(&UNDERBAR) WRITE ============================== ============================================== ============================== ============================================== WRITE WRITE EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ SET &RC = 0 SET &RC = 0 ISPEXEC VGET (GDMCOUNT) SHARED ISPEXEC VGET (GDMCOUNT) SHARED IF &GDMCOUNT > 0 THEN IF 1 > 0 THEN DO DO %TICDMG %TICDMG SET CLSTNAME = &STR(#### STARTING TICDMG CLIST ####) /*NBG88048*/ 1SET CLSTNAME = #### STARTING TICDMG CLIST #### /*NBG88048*/ END /*NGG88050*/ END /*NGG88050*/ IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) /*NBG88048*/ SET UNIT = UNIT(SYSDA) /*NBG88048*/ %TICGFILE DMG %TICGFILE DMG SET CLSTNAME = &STR(#### STARTING TICGFILE CLIST ####)/*NBG88046*/ SET CLSTNAME = #### STARTING TICGFILE CLIST ####/*NBG88046*/ END END CONTROL MSG NOFLUSH CONTROL MSG NOFLUSH ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL ERRORS RETURN %TIU3301 %TIU3301 SET RC = 0 SET RC = 0 %TIUGLOB %TIUGLOB SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) ISPEXEC VGET (TIU3301) SHARED ISPEXEC VGET (TIU3301) SHARED ALLOC FI(&DD3301) DA('&STR(&TIU3301)') SHR REUSE ALLOC FI(IEF3301) DA('PV.TEST.CAGEN.CEHBSKL0(IEF3301)') SHR REUSE SET RC = &LASTCC SET RC = 0 EXIT CODE(&RC) EXIT CODE(0) %ETFAUXF %ETFAUXF SET CLSTNAME = &STR(#### STARTING ETFALLOC CLIST ####) SET CLSTNAME = #### STARTING ETFALLOC CLIST #### END 1END CONTROL MSG NOFLUSH CONTROL MSG NOFLUSH ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL ERRORS RETURN ISPEXEC VGET (ETFAUX) SHARED ISPEXEC VGET (ETFAUX) SHARED IF (&STR(&ETFAUX) = Y) THEN IF ( = Y) THEN EXIT CODE(0) EXIT CODE(0) %TIUCODE /*TYE95164*/ %TIUCODE /*TYE95164*/ SET RC = 0 SET RC = 0 %TIUGLOB %TIUGLOB SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) ISPEXEC VGET (TIUCODEP) SHARED ISPEXEC VGET (TIUCODEP) SHARED ALLOC FI(&DDCODEP) DA('&STR(&TIUCODEP)') SHR REUSE ALLOC FI(TICDPG) DA('PV.TEST.CAGEN.CEHBSKL0(CODEPAGE)') SHR REUSE SET RC = &LASTCC SET RC = 0 EXIT CODE(&RC) EXIT CODE(0) SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET LRECLX = 255 /*JRV91232*/ SET LRECLX = 255 /*JRV91232*/ SET BLOCKX = 9440 /*DLL91108*/ SET BLOCKX = 9440 /*DLL91108*/ SET PRIMX = 60 /*DLL91108*/ SET PRIMX = 60 /*DLL91108*/ SET SECX = 60 /*DLL91108*/ SET SECX = 60 /*DLL91108*/ SET TICLRECL = &LRECLX /*DLL91108*/ 1SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ ISPEXEC VGET ZSCREEN SHARED ISPEXEC VGET ZSCREEN SHARED ISPEXEC VGET TIUDB2S ASIS ISPEXEC VGET TIUDB2S ASIS IF &TIUDB2S = THEN IF DBTG = THEN ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS /*YJL */ ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS /*YJL */ IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) /*NBG88046*/ SET UNIT = UNIT(SYSDA) /*NBG88046*/ IF &GENTYPE = &STR(ICG) THEN IF DMG = ICG THEN SET TICSTP = ADLIST SET TICSTP = ADLIST SET TICSDD = PADTEMP SET TICSDD = PADTEMP SET SFILERET = FILE2 SET SFILERET = FILE2 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF ADLIST = THEN IF &TICSDD = THEN IF PADTEMP = THEN SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.ADLIST /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(PADTEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(PADTEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ 1SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE2 SET TICSTP = WSTEMP SET TICSTP = WSTEMP IF &GENTYPE = &STR(ICG) THEN IF DMG = ICG THEN ELSE ELSE SET SFILERET = FILE3 SET SFILERET = FILE3 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF WSTEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = WSTEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.WSTEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(WSTEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(WSTEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE3 SET TICSTP = LSTEMP SET TICSTP = LSTEMP SET SFILERET = FILE4 SET SFILERET = FILE4 GOTO SFILE 1GOTO SFILE IF &TICSTP = THEN IF LSTEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = LSTEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.LSTEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(LSTEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(LSTEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE4 SET TICSTP = P1TEMP SET TICSTP = P1TEMP SET SFILERET = FILE5 SET SFILERET = FILE5 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF P1TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = P1TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.P1TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(P1TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) 1 /*NBG88046*/ ALLOC F(P1TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE5 SET TICSTP = P2TEMP SET TICSTP = P2TEMP SET SFILERET = FILE6 SET SFILERET = FILE6 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF P2TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = P2TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.P2TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(P2TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(P2TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ 1SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE6 SET TICSTP = W1TEMP SET TICSTP = W1TEMP SET SFILERET = FILE7 SET SFILERET = FILE7 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF W1TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = W1TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.W1TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(W1TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(W1TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE7 SET TICSTP = S1TEMP SET TICSTP = S1TEMP SET SFILERET = FILE8 SET SFILERET = FILE8 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF S1TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = S1TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ 1SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.S1TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(S1TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(S1TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE8 SET TICSTP = S2TEMP SET TICSTP = S2TEMP SET SFILERET = FILE9 SET SFILERET = FILE9 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF S2TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = S2TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.S2TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(S2TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(S2TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = 1SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE9 SET TICSTP = S3TEMP SET TICSTP = S3TEMP SET SFILERET = FILE10 SET SFILERET = FILE10 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF S3TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = S3TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.S3TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(S3TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(S3TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE10 SET TICSTP = S4TEMP SET TICSTP = S4TEMP SET SFILERET = FILE11 SET SFILERET = FILE11 GOTO SFILE 1GOTO SFILE IF &TICSTP = THEN IF S4TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = S4TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.S4TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(S4TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(S4TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE11 SET TICSTP = WS2TEMP SET TICSTP = WS2TEMP SET SFILERET = FILE12 SET SFILERET = FILE12 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF WS2TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = WS2TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.WS2TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(WS2TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) 1 /*NBG88046*/ ALLOC F(WS2TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE12 SET TICSTP = P3TEMP SET TICSTP = P3TEMP SET SFILERET = FILE13 SET SFILERET = FILE13 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF P3TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = P3TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.P3TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(P3TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(P3TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ 1SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE13 SET TICSTP = LS2TEMP SET TICSTP = LS2TEMP SET SFILERET = DONE SET SFILERET = DONE GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF LS2TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = LS2TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.LS2TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(LS2TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(LS2TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO DONE SET CLSTNAME = &STR(#### LEAVING TICGFILE CLIST ####) /*NBG88046*/ SET CLSTNAME = #### LEAVING TICGFILE CLIST #### /*NBG88046*/ EXIT CODE(0) EXIT CODE(0) IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN %TIUSTATS DESC('INVOKING DM GEN') %TIUSTATS DESC('INVOKING DM GEN') SET I = 1 SET I = 1 SET RC = 0 SET RC = 0 ISPEXEC VGET (GDMCOUNT) SHARED 1ISPEXEC VGET (GDMCOUNT) SHARED DO WHILE ((&I <= &GDMCOUNT) AND (&RC = 0)) DO WHILE ((1 <= 1) AND (0 = 0)) %TIUDSN PROGRAM(TICPMGN) LANG(C) PARM('&I') %TIUDSN PROGRAM(TICPMGN) LANG(C) PARM('1') SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) IF (&PROGRAM = ) THEN IF (TICPMGN = ) THEN ISPEXEC VGET (TIUDB2S TIUPLPR) SHARED ISPEXEC VGET (TIUDB2S TIUPLPR) SHARED ISPEXEC VGET (TIULOADL TIUPLPRT) PROFILE ISPEXEC VGET (TIULOADL TIUPLPRT) PROFILE SET &DB2PLAN=PLAN(&TIUPLPR.&SUBSTR(4:&LENGTH(&PROGRAM),&PROGRAM)) SET &DB2PLAN=PLAN(HEPLPMGN) IF (&TIULOADL¬=) THEN IF (¬=) THEN ELSE ELSE SET &DB2LLIB= SET &DB2LLIB= %TIUSTATS DESC('TIUDSN STARTED FOR: &PROGRAM &PARM') %TIUSTATS DESC('TIUDSN STARTED FOR: TICPMGN 1') IF (&LANG = &STR(PLI)) THEN IF (C = PLI) THEN ELSE ELSE DO DO IF (&LANG = &STR(C)) THEN IF (C = C) THEN DO DO SET PARM = &STR(STACK(512K) /&PARM) SET PARM = STACK(512K) /1 END END END END IF (&STR(&PARM) ¬= &Z) THEN 1IF (STACK(512K) /1 ¬= ) THEN SET DB2PRMS=&STR(PARMS('&PARM')) SET DB2PRMS=PARMS('STACK(512K) /1') IF &SSID ¬= THEN IF ¬= THEN CONTROL NOFLUSH /* KEEP ISPF FROM STEALING MY ABENDS */ CONTROL NOFLUSH /* KEEP ISPF FROM STEALING MY ABENDS */ DSN SYSTEM(&TIUDB2S) DSN SYSTEM(DBTG) SET RC = &LASTCC /*LKA88076*/ SET RC = 0 /*LKA88076*/ IF &RC ¬= 0 | &SYSPCMD ¬= DSN THEN IF 0 ¬= 0 | DSN ¬= DSN THEN RUN PROGRAM(&PROGRAM.X) &DB2PRMS &DB2PLAN &DB2LLIB RUN PROGRAM(TICPMGNX) PARMS('STACK(512K) /1') PLAN(HEPLPMGN) Batch Manager Generation in progress. Batch Manager Member JOBALL generated. SET RC = &LASTCC /*LKA88076*/ SET RC = 0 /*LKA88076*/ CONTROL NOLIST NOCONLIST NOSYMLIST CONTROL NOLIST NOCONLIST NOSYMLIST SET RC = &LASTCC SET RC = 0 IF &RC > 0 THEN IF 0 > 0 THEN SET I = &I + 1 SET I = 1 + 1 END END DO WHILE ((&I <= &GDMCOUNT) AND (&RC = 0)) DO WHILE ((2 <= 1) AND (0 = 0)) %TIUSTATS DESC('AFTER DM GEN MOD') %TIUSTATS DESC('AFTER DM GEN MOD') SET CLSTNAME = &STR(#### LEAVING TICDMG CLIST ####) /*NBG88048*/ SET CLSTNAME = #### LEAVING TICDMG CLIST #### /*NBG88048*/ EXIT CODE(&RC) EXIT CODE(0) SET &RC = &LASTCC SET &RC = 0 END END IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET &RC = 0 SET &RC = 0 ISPEXEC VGET (GSMCOUNT) SHARED ISPEXEC VGET (GSMCOUNT) SHARED IF &GSMCOUNT > 0 THEN IF 0 > 0 THEN IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET &RC = 0 SET &RC = 0 ISPEXEC VGET (ACTBLKCT) SHARED ISPEXEC VGET (ACTBLKCT) SHARED IF &ACTBLKCT > 0 THEN IF 1 > 0 THEN DO 1DO %TICGAB %TICGAB END END IF &TIUDEBUG = C | &TIUDEBUG = R | &TIUDEBUG = CR | &TIUDEBUG = &STR() THEN IF C = C | C = R | C = CR | C = THEN SET DEBUG = &STR() SET DEBUG = %TIUDFILE %TIUDFILE SET CLSTNAME = &STR(### STARTING TIUDFILE CLIST ###)/*NBG88049*/ SET CLSTNAME = ### STARTING TIUDFILE CLIST ###/*NBG88049*/ END END SET BATCH = NO SET BATCH = NO IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (TIUDASD TIUDASZ TIUDBGDT TIUDBGAB) SHARED ISPEXEC VGET (TIUDASD TIUDASZ TIUDBGDT TIUDBGAB) SHARED ISPEXEC VGET (TIURPSZ TIUTRSZ TIUDRSZ) SHARED ISPEXEC VGET (TIURPSZ TIUTRSZ TIUDRSZ) SHARED ISPEXEC VGET (TIUPREF TIUSUFX) SHARED /*NBG88049*/ ISPEXEC VGET (TIUPREF TIUSUFX) SHARED /*NBG88049*/ ISPEXEC VGET (ZENVIR) SHARED ISPEXEC VGET (ZENVIR) SHARED IF &SUBSTR(17:21,&STR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN DO DO SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ END END END END IF (&DOWNLOAD = DOWNLOAD) OR (&UPLOAD = UPLOAD) THEN IF ( = DOWNLOAD) OR ( = UPLOAD) THEN IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) SET SYSPFILE = &STR(SYSPRINT) /*DLL91108*/ SET SYSPFILE = SYSPRINT /*DLL91108*/ CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH IF &BATCH = YES THEN IF YES = YES THEN DO DO ALLOC F(&SYSPFILE) DA(*) REUSE 1ALLOC F(SYSPRINT) DA(*) REUSE GOTO SYSPEND GOTO SYSPEND IF &ALTSYSP ¬= &Z THEN IF ¬= THEN CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH IF &BATCH = YES THEN IF YES = YES THEN DO DO ALLOC F(LOGFILE) DA(*) REUSE ALLOC F(LOGFILE) DA(*) REUSE GOTO SKIPLOG GOTO SKIPLOG CONTROL MSG CONTROL MSG IF &TIUDBGDT ¬= THEN IF ¬= THEN IF &TIUDBGAB ¬= THEN IF ¬= THEN IF &TIUDBGAB ¬= THEN IF ¬= THEN SET COMFILES = &STR() SET COMFILES = IF (&UPLOAD = UPLOAD) THEN IF ( = UPLOAD) THEN IF (&DOWNLOAD = DOWNLOAD) THEN IF ( = DOWNLOAD) THEN IF (&DIAG = DIAG) THEN IF ( = DIAG) THEN IF (&COMFILES = YES) THEN IF ( = YES) THEN SET CLSTNAME = &STR(#### LEAVING TIUDFILE CLIST ####) /*NBG88049*/ SET CLSTNAME = #### LEAVING TIUDFILE CLIST #### /*NBG88049*/ EXIT CODE(0) EXIT CODE(0) ALLOC F(WKRPT) DUMMY REUSE ALLOC F(WKRPT) DUMMY REUSE %TICGFILE ABG %TICGFILE ABG SET CLSTNAME = &STR(#### STARTING TICGFILE CLIST ####)/*NBG88046*/ SET CLSTNAME = #### STARTING TICGFILE CLIST ####/*NBG88046*/ END END CONTROL MSG NOFLUSH CONTROL MSG NOFLUSH ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL ERRORS RETURN %TIU3301 %TIU3301 SET RC = 0 SET RC = 0 %TIUGLOB %TIUGLOB SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) 1SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) ISPEXEC VGET (TIU3301) SHARED ISPEXEC VGET (TIU3301) SHARED ALLOC FI(&DD3301) DA('&STR(&TIU3301)') SHR REUSE ALLOC FI(IEF3301) DA('PV.TEST.CAGEN.CEHBSKL0(IEF3301)') SHR REUSE SET RC = &LASTCC SET RC = 0 EXIT CODE(&RC) EXIT CODE(0) %ETFAUXF %ETFAUXF SET CLSTNAME = &STR(#### STARTING ETFALLOC CLIST ####) SET CLSTNAME = #### STARTING ETFALLOC CLIST #### END END CONTROL MSG NOFLUSH CONTROL MSG NOFLUSH ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL ERRORS RETURN ISPEXEC VGET (ETFAUX) SHARED ISPEXEC VGET (ETFAUX) SHARED IF (&STR(&ETFAUX) = Y) THEN IF ( = Y) THEN EXIT CODE(0) EXIT CODE(0) %TIUCODE /*TYE95164*/ %TIUCODE /*TYE95164*/ SET RC = 0 SET RC = 0 %TIUGLOB %TIUGLOB SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED 1ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) ISPEXEC VGET (TIUCODEP) SHARED ISPEXEC VGET (TIUCODEP) SHARED ALLOC FI(&DDCODEP) DA('&STR(&TIUCODEP)') SHR REUSE ALLOC FI(TICDPG) DA('PV.TEST.CAGEN.CEHBSKL0(CODEPAGE)') SHR REUSE SET RC = &LASTCC SET RC = 0 EXIT CODE(&RC) EXIT CODE(0) SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET LRECLX = 255 /*JRV91232*/ SET LRECLX = 255 /*JRV91232*/ SET BLOCKX = 9440 /*DLL91108*/ SET BLOCKX = 9440 /*DLL91108*/ SET PRIMX = 60 /*DLL91108*/ SET PRIMX = 60 /*DLL91108*/ SET SECX = 60 /*DLL91108*/ SET SECX = 60 /*DLL91108*/ SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ ISPEXEC VGET ZSCREEN SHARED ISPEXEC VGET ZSCREEN SHARED ISPEXEC VGET TIUDB2S ASIS ISPEXEC VGET TIUDB2S ASIS IF &TIUDB2S = THEN IF DBTG = THEN ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS /*YJL */ ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS /*YJL */ IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) /*NBG88046*/ SET UNIT = UNIT(SYSDA) /*NBG88046*/ IF &GENTYPE = &STR(ICG) THEN IF ABG = ICG THEN SET TICSTP = ADLIST SET TICSTP = ADLIST SET TICSDD = PADTEMP 1SET TICSDD = PADTEMP SET SFILERET = FILE2 SET SFILERET = FILE2 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF ADLIST = THEN IF &TICSDD = THEN IF PADTEMP = THEN SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.ADLIST /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(PADTEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(PADTEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE2 SET TICSTP = WSTEMP SET TICSTP = WSTEMP IF &GENTYPE = &STR(ICG) THEN IF ABG = ICG THEN ELSE ELSE SET SFILERET = FILE3 SET SFILERET = FILE3 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF WSTEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = WSTEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.WSTEMP /*NBG 88*/ CONTROL NOMSG 1CONTROL NOMSG FREE F(&TICSDD) FREE F(WSTEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(WSTEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE3 SET TICSTP = LSTEMP SET TICSTP = LSTEMP SET SFILERET = FILE4 SET SFILERET = FILE4 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF LSTEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = LSTEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.LSTEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(LSTEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(LSTEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ 1SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE4 SET TICSTP = P1TEMP SET TICSTP = P1TEMP SET SFILERET = FILE5 SET SFILERET = FILE5 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF P1TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = P1TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.P1TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(P1TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(P1TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE5 SET TICSTP = P2TEMP SET TICSTP = P2TEMP SET SFILERET = FILE6 SET SFILERET = FILE6 GOTO SFILE GOTO SFILE IF &TICSTP = THEN 1IF P2TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = P2TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.P2TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(P2TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(P2TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE6 SET TICSTP = W1TEMP SET TICSTP = W1TEMP SET SFILERET = FILE7 SET SFILERET = FILE7 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF W1TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = W1TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.W1TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(W1TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(W1TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) 1 /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE7 SET TICSTP = S1TEMP SET TICSTP = S1TEMP SET SFILERET = FILE8 SET SFILERET = FILE8 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF S1TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = S1TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.S1TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(S1TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(S1TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET 1GOTO FILE8 SET TICSTP = S2TEMP SET TICSTP = S2TEMP SET SFILERET = FILE9 SET SFILERET = FILE9 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF S2TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = S2TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.S2TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(S2TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(S2TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE9 SET TICSTP = S3TEMP SET TICSTP = S3TEMP SET SFILERET = FILE10 SET SFILERET = FILE10 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF S3TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = S3TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.S3TEMP /*NBG 88*/ CONTROL NOMSG 1CONTROL NOMSG FREE F(&TICSDD) FREE F(S3TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(S3TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE10 SET TICSTP = S4TEMP SET TICSTP = S4TEMP SET SFILERET = FILE11 SET SFILERET = FILE11 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF S4TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = S4TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.S4TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(S4TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(S4TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ 1SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE11 SET TICSTP = WS2TEMP SET TICSTP = WS2TEMP SET SFILERET = FILE12 SET SFILERET = FILE12 GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF WS2TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = WS2TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.WS2TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(WS2TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(WS2TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE12 SET TICSTP = P3TEMP SET TICSTP = P3TEMP SET SFILERET = FILE13 SET SFILERET = FILE13 GOTO SFILE GOTO SFILE IF &TICSTP = THEN 1IF P3TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = P3TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.P3TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(P3TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(P3TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO FILE13 SET TICSTP = LS2TEMP SET TICSTP = LS2TEMP SET SFILERET = DONE SET SFILERET = DONE GOTO SFILE GOTO SFILE IF &TICSTP = THEN IF LS2TEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = LS2TEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.LS2TEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(LS2TEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(LS2TEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) 1 /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO DONE SET CLSTNAME = &STR(#### LEAVING TICGFILE CLIST ####) /*NBG88046*/ SET CLSTNAME = #### LEAVING TICGFILE CLIST #### /*NBG88046*/ EXIT CODE(0) EXIT CODE(0) SET SFRC = &LASTCC SET SFRC = 0 IF &SFRC ¬= 0 THEN IF 0 ¬= 0 THEN SET I = 1 SET I = 1 SET RC = 0 SET RC = 0 ISPEXEC VGET (ACTBLKCT) SHARED ISPEXEC VGET (ACTBLKCT) SHARED ISPEXEC VGET (TIRLGYRC) SHARED /* 14896664 */ ISPEXEC VGET (TIRLGYRC) SHARED /* 14896664 */ SET RPTCNT = 1 SET RPTCNT = 1 DO WHILE ((&I <= &ACTBLKCT ) AND (&RC = 0)) DO WHILE ((1 <= 1 ) AND (0 = 0)) %TIUDSN PROGRAM(TICGDRV) LANG(C) PARM('&I. &RPTCNT') %TIUDSN PROGRAM(TICGDRV) LANG(C) PARM('1 1') SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) 1EXIT CODE(0) IF (&PROGRAM = ) THEN IF (TICGDRV = ) THEN ISPEXEC VGET (TIUDB2S TIUPLPR) SHARED ISPEXEC VGET (TIUDB2S TIUPLPR) SHARED ISPEXEC VGET (TIULOADL TIUPLPRT) PROFILE ISPEXEC VGET (TIULOADL TIUPLPRT) PROFILE SET &DB2PLAN=PLAN(&TIUPLPR.&SUBSTR(4:&LENGTH(&PROGRAM),&PROGRAM)) SET &DB2PLAN=PLAN(HEPLGDRV) IF (&TIULOADL¬=) THEN IF (¬=) THEN ELSE ELSE SET &DB2LLIB= SET &DB2LLIB= %TIUSTATS DESC('TIUDSN STARTED FOR: &PROGRAM &PARM') %TIUSTATS DESC('TIUDSN STARTED FOR: TICGDRV 1 1') IF (&LANG = &STR(PLI)) THEN IF (C = PLI) THEN ELSE ELSE DO DO IF (&LANG = &STR(C)) THEN IF (C = C) THEN DO DO SET PARM = &STR(STACK(512K) /&PARM) SET PARM = STACK(512K) /1 1 END END END END IF (&STR(&PARM) ¬= &Z) THEN IF (STACK(512K) /1 1 ¬= ) THEN SET DB2PRMS=&STR(PARMS('&PARM')) SET DB2PRMS=PARMS('STACK(512K) /1 1') IF &SSID ¬= THEN IF ¬= THEN CONTROL NOFLUSH /* KEEP ISPF FROM STEALING MY ABENDS */ CONTROL NOFLUSH /* KEEP ISPF FROM STEALING MY ABENDS */ DSN SYSTEM(&TIUDB2S) DSN SYSTEM(DBTG) SET RC = &LASTCC /*LKA88076*/ SET RC = 0 /*LKA88076*/ IF &RC ¬= 0 | &SYSPCMD ¬= DSN THEN IF 0 ¬= 0 | DSN ¬= DSN THEN RUN PROGRAM(&PROGRAM.X) &DB2PRMS &DB2PLAN &DB2LLIB RUN PROGRAM(TICGDRVX) PARMS('STACK(512K) /1 1') PLAN(HEPLGDRV) PLST_CRD_CRT_NEW_CMO004PA Generation in progress. PLST_CRD_CRT_NEW_CMO004PA Member CMO004PA generated. SET RC = &LASTCC /*LKA88076*/ SET RC = 0 /*LKA88076*/ CONTROL NOLIST NOCONLIST NOSYMLIST CONTROL NOLIST NOCONLIST NOSYMLIST SET RC = &LASTCC SET RC = 0 IF &RC > 0 THEN 1IF 0 > 0 THEN IF &RC = &TIRLGYRC THEN IF 0 = 65537 THEN SET I = &I + &RPTCNT SET I = 1 + 1 END END DO WHILE ((&I <= &ACTBLKCT ) AND (&RC = 0)) DO WHILE ((2 <= 1 ) AND (0 = 0)) EXIT CODE(&RC) EXIT CODE(0) SET &RC = &LASTCC SET &RC = 0 END END IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET &RC = 0 SET &RC = 0 ISPEXEC VGET (MAPCOUNT) SHARED ISPEXEC VGET (MAPCOUNT) SHARED IF &MAPCOUNT > 0 THEN IF 0 > 0 THEN IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN GOTO GOODXIT GOTO GOODXIT SET CLSTNAME = &STR(#### LEAVING TICPREGN CLIST ####) SET CLSTNAME = #### LEAVING TICPREGN CLIST #### SET STATUS = &STR(CODE GENERATION COMPLETED SUCCESSFULLY) SET STATUS = CODE GENERATION COMPLETED SUCCESSFULLY ISPEXEC VPUT STATUS SHARED ISPEXEC VPUT STATUS SHARED %TICSDIS CMD(MSG) OBJ('') ALARM(NO) MSG('***** SOURCE CODE GENERATION COMPLETE *****') %TICSDIS CMD(MSG) OBJ('') ALARM(NO) MSG('***** SOURCE CODE GENERATION COMPLETE *****') IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ 1DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 0 >= 30 THEN ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 0 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 1 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 2 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 3 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 4 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 5 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END 1END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 1DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) 1SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 43 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = ***** SOURCE CODE GENERATION COMPLETE ***** DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** SOURCE CODE GENERATION COMPLETE ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** SOURCE CODE GENERATION COMPLETE ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** SOURCE CODE GENERATION COMPLETE ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** SOURCE CODE GENERATION COMPLETE ***** END 1END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** SOURCE CODE GENERATION COMPLETE ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE ***** SOURCE CODE GENERATION COMPLETE ***** ***** SOURCE CODE GENERATION COMPLETE ***** EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ ISPEXEC VGET (AUTOINST) SHARED ISPEXEC VGET (AUTOINST) SHARED IF (&AUTOINST ¬= &STR(Y)) THEN IF (Y ¬= Y) THEN EXIT CODE(0) EXIT CODE(0) SET RC = &LASTCC SET RC = 0 IF (&RC > 0) THEN IF (0 > 0) THEN IF &RC = 0 AND (&AUTOINST = Y OR &INSTNEW = Y) THEN IF 0 = 0 AND (Y = Y OR N = Y) THEN DO DO IF &AUTOINST = Y THEN IF Y = Y THEN %TICSDIS CMD(MSG) OBJ('') ALARM(YES) MSG('** STARTING AUTOMATIC INSTALLATION **') %TICSDIS CMD(MSG) OBJ('') ALARM(YES) MSG('** STARTING AUTOMATIC INSTALLATION **') IF &ALARM ¬= YES THEN IF YES ¬= YES THEN ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 0 >= 30 THEN 1ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 0 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 1 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 2 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 3 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 4 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 5 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 1SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = 1END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END 1DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 37 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 1SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ** STARTING AUTOMATIC INSTALLATION ** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE ** STARTING AUTOMATIC INSTALLATION ** ** STARTING AUTOMATIC INSTALLATION ** EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ %TICINST %TICINST END END IF ((&GENCON ¬= &STR(E)) && (&GENCON ¬= &STR(W)) && (&GENCON ¬= &STR(I)) THEN IF ((E ¬= E) & (E ¬= W) & (E ¬= I) THEN IF ((&SRCCON ¬= &STR(E)) && (&SRCCON ¬= &STR(W)) && (&SRCCON ¬= &STR(I)) THEN 1IF ((E ¬= E) & (E ¬= W) & (E ¬= I) THEN ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) SET CONFIGDS = &STR('&TIUPREF..IEF.CONFIG&TIUSUFX') SET CONFIGDS = 'IT04629.BAT.D6234045.IEF.CONFIG' CONTROL NOFLUSH NOMSG CONTROL NOFLUSH NOMSG FREE FI(CONFIG) FREE FI(CONFIG) ALLOC FI(CONFIG) SHR REUSE DA(&CONFIGDS) ALLOC FI(CONFIG) SHR REUSE DA('IT04629.BAT.D6234045.IEF.CONFIG') IF &LASTCC ¬= 0 THEN IF 12 ¬= 0 THEN DO DO CONTROL MSG CONTROL MSG ALLOC FI(CONFIG) NEW SPACE(5,5) RECFM(F B) LRECL(80) BLOCK(15440) DSORG(PS) DA(&CONFIGDS) REUSE &UNIT ALLOC FI(CONFIG) NEW SPACE(5,5) RECFM(F B) LRECL(80) BLOCK(15440) DSORG(PS) DA('IT04629.BAT.D6234045.IEF.CONFIG') REUSE UNIT (SYSDA) IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN END END CONTROL MSG CONTROL MSG %TICGFILE ICG %TICGFILE ICG SET CLSTNAME = &STR(#### STARTING TICGFILE CLIST ####)/*NBG88046*/ SET CLSTNAME = #### STARTING TICGFILE CLIST ####/*NBG88046*/ END END CONTROL MSG NOFLUSH CONTROL MSG NOFLUSH ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL ERRORS RETURN %TIU3301 %TIU3301 SET RC = 0 SET RC = 0 %TIUGLOB %TIUGLOB SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO 1ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) ISPEXEC VGET (TIU3301) SHARED ISPEXEC VGET (TIU3301) SHARED ALLOC FI(&DD3301) DA('&STR(&TIU3301)') SHR REUSE ALLOC FI(IEF3301) DA('PV.TEST.CAGEN.CEHBSKL0(IEF3301)') SHR REUSE SET RC = &LASTCC SET RC = 0 EXIT CODE(&RC) EXIT CODE(0) %ETFAUXF %ETFAUXF SET CLSTNAME = &STR(#### STARTING ETFALLOC CLIST ####) SET CLSTNAME = #### STARTING ETFALLOC CLIST #### END END CONTROL MSG NOFLUSH CONTROL MSG NOFLUSH ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL ERRORS RETURN ISPEXEC VGET (ETFAUX) SHARED ISPEXEC VGET (ETFAUX) SHARED IF (&STR(&ETFAUX) = Y) THEN IF ( = Y) THEN EXIT CODE(0) EXIT CODE(0) %TIUCODE /*TYE95164*/ %TIUCODE /*TYE95164*/ SET RC = 0 SET RC = 0 %TIUGLOB %TIUGLOB SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### 1EXIT CODE(&RC) EXIT CODE(0) ISPEXEC VGET (TIUCODEP) SHARED ISPEXEC VGET (TIUCODEP) SHARED ALLOC FI(&DDCODEP) DA('&STR(&TIUCODEP)') SHR REUSE ALLOC FI(TICDPG) DA('PV.TEST.CAGEN.CEHBSKL0(CODEPAGE)') SHR REUSE SET RC = &LASTCC SET RC = 0 EXIT CODE(&RC) EXIT CODE(0) SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET LRECLX = 255 /*JRV91232*/ SET LRECLX = 255 /*JRV91232*/ SET BLOCKX = 9440 /*DLL91108*/ SET BLOCKX = 9440 /*DLL91108*/ SET PRIMX = 60 /*DLL91108*/ SET PRIMX = 60 /*DLL91108*/ SET SECX = 60 /*DLL91108*/ SET SECX = 60 /*DLL91108*/ SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ ISPEXEC VGET ZSCREEN SHARED ISPEXEC VGET ZSCREEN SHARED ISPEXEC VGET TIUDB2S ASIS ISPEXEC VGET TIUDB2S ASIS IF &TIUDB2S = THEN IF DBTG = THEN ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS /*YJL */ ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS /*YJL */ IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) /*NBG88046*/ SET UNIT = UNIT(SYSDA) /*NBG88046*/ IF &GENTYPE = &STR(ICG) THEN IF ICG = ICG THEN GOTO FILE2 GOTO FILE2 SET TICSTP = WSTEMP SET TICSTP = WSTEMP IF &GENTYPE = &STR(ICG) THEN IF ICG = ICG THEN SET SFILERET = DONE SET SFILERET = DONE GOTO SFILE GOTO SFILE 1IF &TICSTP = THEN IF WSTEMP = THEN IF &TICSDD = THEN IF = THEN SET TICSDD = &TICSTP SET TICSDD = WSTEMP SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX /*NBG 88*/ SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.WSTEMP /*NBG 88*/ CONTROL NOMSG CONTROL NOMSG FREE F(&TICSDD) FREE F(WSTEMP) CONTROL MSG CONTROL MSG ALLOC F(&TICSDD) NEW REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(V B) LRECL(&TICLRECL) BLKSIZE(&TICBLOCK) BLOCK(&TICBLOCK) /*NBG88046*/ ALLOC F(WSTEMP) NEW REUSE UNIT(SYSDA) SPACE(60,60) RECFM(V B) LRECL(255) BLKSIZE(9440) BLOCK(9440) /*NBG88046*/ IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET TICSTP = SET TICSTP = SET TICSDD = SET TICSDD = SET TICLRECL = &LRECLX /*DLL91108*/ SET TICLRECL = 255 /*DLL91108*/ SET TICBLOCK = &BLOCKX /*DLL91108*/ SET TICBLOCK = 9440 /*DLL91108*/ SET TICPRIM = &PRIMX /*DLL91108*/ SET TICPRIM = 60 /*DLL91108*/ SET TICSEC = &SECX /*DLL91108*/ SET TICSEC = 60 /*DLL91108*/ GOTO &SFILERET GOTO DONE SET CLSTNAME = &STR(#### LEAVING TICGFILE CLIST ####) /*NBG88046*/ SET CLSTNAME = #### LEAVING TICGFILE CLIST #### /*NBG88046*/ EXIT CODE(0) EXIT CODE(0) SET RC = &LASTCC SET RC = 0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN OPENFILE SYSPRINT OUTPUT /* 15885611 CLEAR OUT OLD DATA */ OPENFILE SYSPRINT OUTPUT /* 15885611 CLEAR OUT OLD DATA */ CLOSFILE SYSPRINT /* 15885611 CLEAR OUT OLD DATA */ CLOSFILE SYSPRINT /* 15885611 CLEAR OUT OLD DATA */ FREE FI(SYSPRINT) FREE FI(SYSPRINT) %TIUDFILE ALTSYSP(TISYSPRT) %TIUDFILE ALTSYSP(TISYSPRT) SET CLSTNAME = &STR(### STARTING TIUDFILE CLIST ###)/*NBG88049*/ SET CLSTNAME = ### STARTING TIUDFILE CLIST ###/*NBG88049*/ END END SET BATCH = NO SET BATCH = NO 1IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (TIUDASD TIUDASZ TIUDBGDT TIUDBGAB) SHARED ISPEXEC VGET (TIUDASD TIUDASZ TIUDBGDT TIUDBGAB) SHARED ISPEXEC VGET (TIURPSZ TIUTRSZ TIUDRSZ) SHARED ISPEXEC VGET (TIURPSZ TIUTRSZ TIUDRSZ) SHARED ISPEXEC VGET (TIUPREF TIUSUFX) SHARED /*NBG88049*/ ISPEXEC VGET (TIUPREF TIUSUFX) SHARED /*NBG88049*/ ISPEXEC VGET (ZENVIR) SHARED ISPEXEC VGET (ZENVIR) SHARED IF &SUBSTR(17:21,&STR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN DO DO SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ END END END END IF (&DOWNLOAD = DOWNLOAD) OR (&UPLOAD = UPLOAD) THEN IF ( = DOWNLOAD) OR ( = UPLOAD) THEN IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) SET SYSPFILE = &STR(SYSPRINT) /*DLL91108*/ SET SYSPFILE = SYSPRINT /*DLL91108*/ CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH IF &BATCH = YES THEN IF YES = YES THEN DO DO ALLOC F(&SYSPFILE) DA(*) REUSE ALLOC F(SYSPRINT) DA(*) REUSE GOTO SYSPEND GOTO SYSPEND IF &ALTSYSP ¬= &Z THEN IF TISYSPRT ¬= THEN DO DO SET SYSPFILE = &STR(&ALTSYSP) /*DLL91108*/ SET SYSPFILE = TISYSPRT /*DLL91108*/ SET ALTSYSP = &Z /*DLL91108*/ SET ALTSYSP = /*DLL91108*/ CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH IF &BATCH = YES THEN IF YES = YES THEN DO DO 1ALLOC F(&SYSPFILE) DA(*) REUSE ALLOC F(TISYSPRT) DA(*) REUSE GOTO SYSPEND GOTO SYSPEND IF &ALTSYSP ¬= &Z THEN IF ¬= THEN CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH IF &BATCH = YES THEN IF YES = YES THEN DO DO ALLOC F(LOGFILE) DA(*) REUSE ALLOC F(LOGFILE) DA(*) REUSE GOTO SKIPLOG GOTO SKIPLOG CONTROL MSG CONTROL MSG IF &TIUDBGDT ¬= THEN IF ¬= THEN IF &TIUDBGAB ¬= THEN IF ¬= THEN IF &TIUDBGAB ¬= THEN IF ¬= THEN SET COMFILES = &STR() SET COMFILES = IF (&UPLOAD = UPLOAD) THEN IF ( = UPLOAD) THEN IF (&DOWNLOAD = DOWNLOAD) THEN IF ( = DOWNLOAD) THEN IF (&DIAG = DIAG) THEN IF ( = DIAG) THEN IF (&COMFILES = YES) THEN IF ( = YES) THEN SET CLSTNAME = &STR(#### LEAVING TIUDFILE CLIST ####) /*NBG88049*/ SET CLSTNAME = #### LEAVING TIUDFILE CLIST #### /*NBG88049*/ EXIT CODE(0) EXIT CODE(0) SET RC = &LASTCC SET RC = 0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET &STATUS = &STR(INSTALLATION IN PROGRESS) SET &STATUS = INSTALLATION IN PROGRESS ISPEXEC VPUT STATUS SHARED ISPEXEC VPUT STATUS SHARED ISPEXEC VGET INSTNEW SHARED ISPEXEC VGET INSTNEW SHARED IF &INSTNEW = &STR(Y) THEN IF N = Y THEN ISPEXEC VGET (REMINST OS TICHKOUT) SHARED ISPEXEC VGET (REMINST OS TICHKOUT) SHARED IF ((&OS ¬= &STR(MVS)) && (&TICHKOUT = &STR(N)) THEN IF ((MVS ¬= MVS) & (N = N) THEN IF (&REMINST ¬= &STR(Y)) THEN IF (N ¬= Y) THEN 1DO DO %TICBCTLA WORK(WORK) %TICBCTLA WORK(WORK) SET CLSTNAME = &STR(### STARTING TICBCTLA CLIST ###) SET CLSTNAME = ### STARTING TICBCTLA CLIST ### END END ISPEXEC VGET (TIUDASD TIUPREF TIUSUFX) SHARED ISPEXEC VGET (TIUDASD TIUPREF TIUSUFX) SHARED ISPEXEC VGET ZSCREEN SHARED ISPEXEC VGET ZSCREEN SHARED IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH IF (&WORK = &STR(WORK)) THEN IF (WORK = WORK) THEN DO DO SET TIUDSN = &TIUPREF..TICTEMP&ZSCREEN..BCTL&TIUSUFX SET TIUDSN = IT04629.BAT.D6234045.TICTEMP1.BCTL SET TICWBCTL = &TIUDSN SET TICWBCTL = IT04629.BAT.D6234045.TICTEMP1.BCTL ISPEXEC VPUT (TICWBCTL) SHARED ISPEXEC VPUT (TICWBCTL) SHARED END END ALLOC FI(&BCTLTDD) DA('&TIUDSN') SHR REUSE ALLOC FI(BCTLTDD) DA('IT04629.BAT.D6234045.TICTEMP1.BCTL') SHR REUSE IF &LASTCC ¬= 0 THEN IF 12 ¬= 0 THEN DO DO CONTROL MSG CONTROL MSG ALLOC FI(&BCTLTDD) NEW &UNIT SPACE(40,20) RECFM(F B) LRECL(80) TRACKS DIR(40) CATALOG DSORG(PO) DA('&TIUDSN') REUSE DSNTYPE( LIBRARY) ALLOC FI(BCTLTDD) NEW UNIT(SYSDA) SPACE(40,20) RECFM(F B) LRECL(80) TRACKS DIR(40) CATALOG DSORG(PO) DA('IT04629.BAT.D623404 5.TICTEMP1.BCTL') REUSE DSNTYPE(LIBRARY) IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN END END FREE FI(&BCTLTDD) FREE FI(BCTLTDD) IF (&MEMBER ¬= &STR()) THEN IF ( ¬= ) THEN CONTROL MSG CONTROL MSG SET CLSTNAME = &STR(#### LEAVING TICBCTLA CLIST ####) SET CLSTNAME = #### LEAVING TICBCTLA CLIST #### 1EXIT CODE(0) EXIT CODE(0) END END ISPEXEC TBCREATE TICLOAD NOWRITE REPLACE KEYS(LOADMDNM) NAMES(LOADMDTY LOADLBNM INSTLBNM DB2SYSTM EXECUNIT) ISPEXEC TBCREATE TICLOAD NOWRITE REPLACE KEYS(LOADMDNM) NAMES(LOADMDTY LOADLBNM INSTLBNM DB2SYSTM EXECUNIT) %TIUDSN PROGRAM(TICINST) LANG(C) PARM('&GENCON &SRCCON') %TIUDSN PROGRAM(TICINST) LANG(C) PARM('E E') SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) IF (&PROGRAM = ) THEN IF (TICINST = ) THEN ISPEXEC VGET (TIUDB2S TIUPLPR) SHARED ISPEXEC VGET (TIUDB2S TIUPLPR) SHARED ISPEXEC VGET (TIULOADL TIUPLPRT) PROFILE ISPEXEC VGET (TIULOADL TIUPLPRT) PROFILE SET &DB2PLAN=PLAN(&TIUPLPR.&SUBSTR(4:&LENGTH(&PROGRAM),&PROGRAM)) SET &DB2PLAN=PLAN(HEPLINST) IF (&TIULOADL¬=) THEN IF (¬=) THEN ELSE ELSE SET &DB2LLIB= SET &DB2LLIB= %TIUSTATS DESC('TIUDSN STARTED FOR: &PROGRAM &PARM') %TIUSTATS DESC('TIUDSN STARTED FOR: TICINST E E') IF (&LANG = &STR(PLI)) THEN IF (C = PLI) THEN ELSE ELSE DO DO IF (&LANG = &STR(C)) THEN IF (C = C) THEN DO DO SET PARM = &STR(STACK(512K) /&PARM) SET PARM = STACK(512K) /E E END END 1END END IF (&STR(&PARM) ¬= &Z) THEN IF (STACK(512K) /E E ¬= ) THEN SET DB2PRMS=&STR(PARMS('&PARM')) SET DB2PRMS=PARMS('STACK(512K) /E E') IF &SSID ¬= THEN IF ¬= THEN CONTROL NOFLUSH /* KEEP ISPF FROM STEALING MY ABENDS */ CONTROL NOFLUSH /* KEEP ISPF FROM STEALING MY ABENDS */ DSN SYSTEM(&TIUDB2S) DSN SYSTEM(DBTG) SET RC = &LASTCC /*LKA88076*/ SET RC = 0 /*LKA88076*/ IF &RC ¬= 0 | &SYSPCMD ¬= DSN THEN IF 0 ¬= 0 | DSN ¬= DSN THEN RUN PROGRAM(&PROGRAM.X) &DB2PRMS &DB2PLAN &DB2LLIB RUN PROGRAM(TICINSTX) PARMS('STACK(512K) /E E') PLAN(HEPLINST) JOBALL Generating installation control. JOBALL Installation control generated. SET CLSTNAME = &STR(#### STARTING TICCMPL CLIST ####) SET CLSTNAME = #### STARTING TICCMPL CLIST #### SET T = T SET T = T END END CONTROL NOFLUSH NOMSG CONTROL NOFLUSH NOMSG ISPEXEC VGET (TICSWAPL) SHARED /* 18001560 */ ISPEXEC VGET (TICSWAPL) SHARED /* 18001560 */ ISPEXEC VGET (BACKGRND) SHARED /* 14271011 */ ISPEXEC VGET (BACKGRND) SHARED /* 14271011 */ ISPEXEC VGET (DBM) SHARED /* 14401149 */ ISPEXEC VGET (DBM) SHARED /* 14401149 */ ISPEXEC VGET (PCOMPAT) SHARED /* 16135199 */ ISPEXEC VGET (PCOMPAT) SHARED /* 16135199 */ ISPEXEC VGET (GENRILNK) SHARED /* 17026064 */ ISPEXEC VGET (GENRILNK) SHARED /* 17026064 */ ISPEXEC VGET (TIRC2VER) SHARED ISPEXEC VGET (TIRC2VER) SHARED IF &STR(&PCOMPAT) = Y AND &STR(&TICSWAPL) = YES THEN IF N = Y AND = YES THEN ELSE ELSE DO DO SET SWAPDS = &STR(N) SET SWAPDS = N END END ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD ZSCREEN) ASIS ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD ZSCREEN) ASIS IF &STR(&GENRI) = YES THEN IF NO = YES THEN ELSE ELSE DO DO 1ISPEXEC VGET (TICSLIB1) ASIS ISPEXEC VGET (TICSLIB1) ASIS SET SOURCE = &TICSLIB1 SET SOURCE = 'CJS.CARDS.SOURCE.CG86' END END IF &TIUDASD = &STR() THEN IF SYSDA = THEN SET LINKSAVE = YES /* 16810866 */ SET LINKSAVE = YES /* 16810866 */ SET SYSDVAL = &SOURCE SET SYSDVAL = 'CJS.CARDS.SOURCE.CG86' READDVAL DSN READDVAL DSN IF &SOURCE = &DSN THEN IF 'CJS.CARDS.SOURCE.CG86' = CJS.CARDS.SOURCE.CG86 THEN ELSE ELSE SET SOURCE = &DSN SET SOURCE = CJS.CARDS.SOURCE.CG86 SET SRCOPTS = &STR(NOS,NOX,NOMAP,NOOFF) SET SRCOPTS = NOS,NOX,NOMAP,NOOFF SET LISTFLAG = N SET LISTFLAG = N SET NODLLCMP = N SET NODLLCMP = N SET NODLLRI = N SET NODLLRI = N IF &STR(&GENRI) = YES THEN IF NO = YES THEN ELSE ELSE DO DO IF (&PCOMPAT = Y) AND (&LINKTYPE = S) AND (&TYPE ¬= SCREEN) AND (&TYPE ¬= EXECUNIT) AND (&TYPE ¬= PSTEP) THEN IF (N = Y) AND (S = S) AND (EXECUNIT ¬= SCREEN) AND (EXECUNIT ¬= EXECUNIT) AND (EXECUNIT ¬= PSTEP) THEN ISPEXEC VGET TICGLIB1 ASIS ISPEXEC VGET TICGLIB1 ASIS SET SYSDVAL = &TICGLIB1 SET SYSDVAL = 'CJS.CARDS.COMPILE.CG86' END END READDVAL TICCMPL READDVAL TICCMPL IF &TICCMPL ¬= THEN IF CJS.CARDS.COMPILE.CG86 ¬= THEN DO DO SET LISTFLAG = P SET LISTFLAG = P SET SRCOPTS = &STR(S,X,MAP,OFF) SET SRCOPTS = S,X,MAP,OFF END END ISPEXEC VPUT (TICCMPL) SHARED ISPEXEC VPUT (TICCMPL) SHARED 1SET TICCMPDO = &STR(HOST(IBMCOB),FLAG(I,W),APOST,APOSTSQL) /*17529995*/ SET TICCMPDO = HOST(IBMCOB),FLAG(I,W),APOST,APOSTSQL /*17529995*/ SET TICCMPDO = &STR(&TICCMPDO.,PERIOD,S,NOX,OPTN) /*TYE93036*/ SET TICCMPDO = HOST(IBMCOB),FLAG(I,W),APOST,APOSTSQL,PERIOD,S,NOX,OPTN /*TYE93036*/ SET TICCMPDO = &STR(&TICCMPDO.,DATE(ISO),TIME(ISO)) /*TYE93036*/ SET TICCMPDO = HOST(IBMCOB),FLAG(I,W),APOST,APOSTSQL,PERIOD,S,NOX,OPTN,DATE(ISO),TIME(ISO) /*TYE93036*/ IF &STR(&VERSION) ¬= &Z THEN IF ¬= THEN SET COMPTYPE = &STR(NDLL) SET COMPTYPE = NDLL IF &SUBSTR(2,&TIRC2VER) LE 4 THEN IF 4 LE 4 THEN DO DO IF (&PCOMPAT = Y) AND (&LINKTYPE = C) THEN IF (N = Y) AND (S = C) THEN ELSE ELSE DO DO IF &LINKTYPE = D THEN IF S = D THEN ELSE ELSE DO DO IF (&SWAPDS = Y) AND (&PCOMPAT = Y) AND (&LINKTYPE = S) AND (&TYPE ¬= SCREEN) AND (&TYPE ¬= EXECUNIT) AND (&TYPE ¬= PSTEP) T HEN IF (N = Y) AND (N = Y) AND (S = S) AND (EXECUNIT ¬= SCREEN) AND (EXECUNIT ¬= EXECUNIT) AND (EXECUNIT ¬= PSTEP) THEN ELSE ELSE DO DO SET TICCMPCO = &STR(&SRCOPTS,DATA(31),NOSEQ,OPT,RENT,DLL) SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL SET TICCMPCO = &STR(&TICCMPCO.,APOST,NOLIB,NONUM) SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL,APOST,NOLIB,NONUM SET TICCMPCO = &STR(&TICCMPCO.,NOD,NODYN,OBJ,NOWD) SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL,APOST,NOLIB,NONUM,NOD,NODYN,OBJ,NOWD SET TICCMPCO = &STR(&TICCMPCO.,NOSSRANGE,NUMPROC(NOPFD)) SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL,APOST,NOLIB,NONUM,NOD,NODYN,OBJ,NOWD,NOSSRANGE,NUMPROC(NOPFD) SET COMPTYPE = &STR(DLL) SET COMPTYPE = DLL END END END END END END END END ISPEXEC VGET TIRCBLSZ SHARED ISPEXEC VGET TIRCBLSZ SHARED IF (&STR(&TIRCBLSZ) ¬= &Z) THEN IF ( ¬= ) THEN SET TICCMPCO = &STR(&TICCMPCO.,NONAME) 1SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL,APOST,NOLIB,NONUM,NOD,NODYN,OBJ,NOWD,NOSSRANGE,NUMPROC(NOPFD),NONAME SET TICCMPOO = &STR(SIZE=(512K,192K),LIST,XREF,RENT,REUS,NCAL) SET TICCMPOO = SIZE=(512K,192K),LIST,XREF,RENT,REUS,NCAL SET TICCMPOO = &STR(&TICCMPOO.,DYNAM(DLL),COMPAT(PM3)) SET TICCMPOO = SIZE=(512K,192K),LIST,XREF,RENT,REUS,NCAL,DYNAM(DLL),COMPAT(PM3) SET TICCMPIL = &SOURCE SET TICCMPIL = CJS.CARDS.SOURCE.CG86 SET TICCMPIM = &MEMBER SET TICCMPIM = JOBALL ISPEXEC VPUT (TICCMPIL TICCMPIM) SHARED ISPEXEC VPUT (TICCMPIL TICCMPIM) SHARED SET SYSDEFSD = &TIUPREF..SYSDEFSD SET SYSDEFSD = IT04629.BAT.D6234045.SYSDEFSD ISPEXEC VPUT (SYSDEFSD) SHARED ISPEXEC VPUT (SYSDEFSD) SHARED SET DB2FLAG = N SET DB2FLAG = N IF &SQLFLAG=YES AND &STR(&DBM)=DB2 THEN IF NO=YES AND DB2=DB2 THEN IF &SQLFLAG=YES AND &STR(&DBM)=DATACOM THEN IF NO=YES AND DB2=DATACOM THEN IF &SQLFLAG=YES AND &STR(&DBM)=DB2 AND &STR(&PCOMPAT)= Y THEN IF NO=YES AND DB2=DB2 AND N= Y THEN SET OBJFLAG = L SET OBJFLAG = L IF &STR(&GENRI) = YES THEN IF NO = YES THEN ELSE ELSE DO DO IF (&PCOMPAT = Y) AND (&LINKTYPE = S) AND (&TYPE ¬= SCREEN) AND (&TYPE ¬= EXECUNIT) AND (&TYPE ¬= PSTEP) THEN IF (N = Y) AND (S = S) AND (EXECUNIT ¬= SCREEN) AND (EXECUNIT ¬= EXECUNIT) AND (EXECUNIT ¬= PSTEP) THEN ISPEXEC VGET TICLLIB2 ASIS ISPEXEC VGET TICLLIB2 ASIS SET SYSDVAL = &TICLLIB2 SET SYSDVAL = 'CJS.CARDS.NCALLIB.CG86' READDVAL DSN READDVAL DSN IF &TICLLIB2 = &DSN THEN IF 'CJS.CARDS.NCALLIB.CG86' = CJS.CARDS.NCALLIB.CG86 THEN END END SET TICCMPOL = &DSN SET TICCMPOL = CJS.CARDS.NCALLIB.CG86 ISPEXEC VPUT (TICCMPOL) SHARED ISPEXEC VPUT (TICCMPOL) SHARED SET TICDASD = &TIUDASD SET TICDASD = SYSDA SET TICVIO = &STR() SET TICVIO = ISPEXEC VPUT (TICDASD TICVIO) SHARED ISPEXEC VPUT (TICDASD TICVIO) SHARED ISPEXEC VGET (TIRC2NAM TIRC2LPA TIRC2LIB) SHARED ISPEXEC VGET (TIRC2NAM TIRC2LPA TIRC2LIB) SHARED ISPEXEC VGET (TIRD2LIB TIRCLLIB) SHARED 1ISPEXEC VGET (TIRD2LIB TIRCLLIB) SHARED SET TICC2NAM = &TIRC2NAM SET TICC2NAM = IGYCRCTL IF &TIRC2LPA ¬= Y THEN IF N ¬= Y THEN SET TICC2LIB = &TIRC2LIB SET TICC2LIB = SYS1.SIGYCOMP ISPEXEC VPUT (TICCMPDO TICCMPCO TICCMPOO) SHARED ISPEXEC VPUT (TICCMPDO TICCMPCO TICCMPOO) SHARED ISPEXEC VPUT (TICC2NAM TICC2LIB) SHARED ISPEXEC VPUT (TICC2NAM TICC2LIB) SHARED SET SYSDVAL = &TIRCLLIB SET SYSDVAL = SYS9.CICT.SDFHLOAD READDVAL TICCLLIB READDVAL TICCLLIB SET TICCLNAM = DFHECP1£ SET TICCLNAM = DFHECP1£ ISPEXEC VPUT (TICCLNAM TICCLLIB) SHARED ISPEXEC VPUT (TICCLNAM TICCLLIB) SHARED SET TICD2NAM = DSNHPC SET TICD2NAM = DSNHPC SET TICD2LIB = &TIRD2LIB SET TICD2LIB = SYS7.DB2ALNK.SDSNLINK SET TICD2LIB = &STR() SET TICD2LIB = ISPEXEC VPUT (TICD2NAM TICD2LIB) SHARED ISPEXEC VPUT (TICD2NAM TICD2LIB) SHARED SET TICLKLIB = &STR() SET TICLKLIB = SET TICLKNAM = HEWL SET TICLKNAM = HEWL ISPEXEC VPUT (TICLKNAM TICLKLIB) SHARED ISPEXEC VPUT (TICLKNAM TICLKLIB) SHARED %TICSDIS CMD(MSG) OBJ(&MEMBER) ALARM(NO) TEMP(YES) MSG('COMPILATION IN PROGRESS') %TICSDIS CMD(MSG) OBJ(JOBALL) ALARM(NO) TEMP(YES) MSG('COMPILATION IN PROGRESS') IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ 1DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 6 >= 30 THEN ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = JOBALL DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END 1END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 1DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 23 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = COMPILATION IN PROGRESS DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 23 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) 1SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 24 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 25 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 26 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 27 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 28 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 29 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 30 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 31 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 32 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END 1END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 33 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 34 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 35 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 36 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 1DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE JOBALL COMPILATION IN PROGRESS JOBALL COMPILATION IN PROGRESS EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ OPENFILE SYSPRINT OUTPUT /* 15885611 CLEAR OUT OLD DATA */ OPENFILE SYSPRINT OUTPUT /* 15885611 CLEAR OUT OLD DATA */ CLOSFILE SYSPRINT /* 15885611 CLEAR OUT OLD DATA */ CLOSFILE SYSPRINT /* 15885611 CLEAR OUT OLD DATA */ SET CICSFLAG = N SET CICSFLAG = N ISPEXEC SELECT PGM(TICCMPD) PARM(&CICSFLAG.&T,&DB2FLAG,&OBJFLAG,&LISTFLAG) ISPEXEC SELECT PGM(TICCMPD) PARM(NT,N,L,P) SET &RC= &LASTCC SET &RC= 4 IF &RC>20 AND &BACKGRND=&STR(Y) THEN IF 4>20 AND Y=Y THEN 1IF &LINKSAVE = &STR(YES) THEN IF YES = YES THEN DO DO SET SPRINT = TICLPRNT SET SPRINT = TICLPRNT %TICLKSHE &MEMBER &SPRINT &COMPTYPE %TICLKSHE JOBALL TICLPRNT DLL SET CLSTNAME = &STR(### STARTING TICLKSHE CLIST ###) SET CLSTNAME = ### STARTING TICLKSHE CLIST ### END END IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (TIUDASD TIUPREF TIUSUFX) SHARED ISPEXEC VGET (TIUDASD TIUPREF TIUSUFX) SHARED END END IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) SET LKSYSPRT = &STR(LKSYSPRT) SET LKSYSPRT = LKSYSPRT CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH SET TIUDSN = &TIUPREF..IEF.LKPRT.&CTYPE&TIUSUFX SET TIUDSN = IT04629.BAT.D6234045.IEF.LKPRT.DLL ALLOC FI(LKSYSPRT) DA('&TIUDSN.(&MEMBER.)') SHR REUSE ALLOC FI(LKSYSPRT) DA('IT04629.BAT.D6234045.IEF.LKPRT.DLL(JOBALL)') SHR REUSE IF &LASTCC ¬= 0 THEN IF 12 ¬= 0 THEN DO DO CONTROL MSG CONTROL MSG ALLOC FI(LKSYSPRT) NEW &UNIT SPACE(200,50) RECFM(F B A) LRECL(133) BLOCK(9044) BLKSIZE(9044) DIR(40) CATALOG DSORG(PO) DA('& TIUDSN') REUSE DSNTYPE(LIBRARY) ALLOC FI(LKSYSPRT) NEW UNIT(SYSDA) SPACE(200,50) RECFM(F B A) LRECL(133) BLOCK(9044) BLKSIZE(9044) DIR(40) CATALOG DSORG(PO) DA('IT04629.BAT.D6234045.IEF.LKPRT.DLL') REUSE DSNTYPE(LIBRARY) IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN FREE FI(LKSYSPRT) FREE FI(LKSYSPRT) ALLOC FI(LKSYSPRT) DA('&TIUDSN.(&MEMBER.)') SHR REUSE ALLOC FI(LKSYSPRT) DA('IT04629.BAT.D6234045.IEF.LKPRT.DLL(JOBALL)') SHR REUSE END END CONTROL MSG CONTROL MSG ISPEXEC SELECT PGM(CSCOPY) PARM(&SYSPRINT &LKSYSPRT) ISPEXEC SELECT PGM(CSCOPY) PARM(TICLPRNT LKSYSPRT) 1FREE FI(LKSYSPRT) FREE FI(LKSYSPRT) SET CLSTNAME = &STR(#### LEAVING TICLKSHE CLIST ####) SET CLSTNAME = #### LEAVING TICLKSHE CLIST #### EXIT CODE(0) EXIT CODE(0) END END ISPEXEC VGET (TICCMPRC TICCMPPH) SHARED ISPEXEC VGET (TICCMPRC TICCMPPH) SHARED IF &RC > 4 AND &RC < 20 AND &LISTFLAG ¬= N THEN IF 4 > 4 AND 4 < 20 AND P ¬= N THEN IF &RC<5 THEN IF 4<5 THEN DO DO %TICSDIS CMD(MSG) OBJ(&MEMBER) ALARM(NO) TEMP(NO) MSG('COMPILATION COMPLETE, RC=&RC') %TICSDIS CMD(MSG) OBJ(JOBALL) ALARM(NO) TEMP(NO) MSG('COMPILATION COMPLETE, RC=4') IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 6 >= 30 THEN ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = JOBALL DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 1SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL 1END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END 1DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 26 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = COMPILATION COMPLETE, RC=4 DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 26 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 27 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 28 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 29 < 48 1SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 30 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 31 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 32 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 33 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 34 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 35 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 36 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 1END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END 1DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE JOBALL COMPILATION COMPLETE, RC=4 JOBALL COMPILATION COMPLETE, RC=4 EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ END END IF (&NODLLRI = Y) OR (&NODLLCMP = Y) THEN IF (N = Y) OR (N = Y) THEN SET COMPTYPE = &STR(NDLL) SET COMPTYPE = NDLL IF &NODLLRI = Y AND &SWAPDS ¬= Y THEN IF N = Y AND N ¬= Y THEN IF &NODLLCMP = Y AND &SWAPDS ¬= Y THEN IF N = Y AND N ¬= Y THEN IF &TICCMPPC ¬= &STR() THEN IF ¬= THEN %TIUSTATS DESC('AFTER COMPILE FOR &MEMBER') %TIUSTATS DESC('AFTER COMPILE FOR JOBALL') SET CLSTNAME = &STR(#### LEAVING TICCMPL CLIST ####) SET CLSTNAME = #### LEAVING TICCMPL CLIST #### IF &DATATYPE(&RC) = CHAR THEN IF NUM = CHAR THEN EXIT CODE(&RC) EXIT CODE(4) SET CLSTNAME = &STR(#### STARTING TICCMPL CLIST ####) SET CLSTNAME = #### STARTING TICCMPL CLIST #### SET T = T SET T = T END END CONTROL NOFLUSH NOMSG CONTROL NOFLUSH NOMSG ISPEXEC VGET (TICSWAPL) SHARED /* 18001560 */ ISPEXEC VGET (TICSWAPL) SHARED /* 18001560 */ ISPEXEC VGET (BACKGRND) SHARED /* 14271011 */ ISPEXEC VGET (BACKGRND) SHARED /* 14271011 */ ISPEXEC VGET (DBM) SHARED /* 14401149 */ ISPEXEC VGET (DBM) SHARED /* 14401149 */ ISPEXEC VGET (PCOMPAT) SHARED /* 16135199 */ ISPEXEC VGET (PCOMPAT) SHARED /* 16135199 */ ISPEXEC VGET (GENRILNK) SHARED /* 17026064 */ ISPEXEC VGET (GENRILNK) SHARED /* 17026064 */ ISPEXEC VGET (TIRC2VER) SHARED ISPEXEC VGET (TIRC2VER) SHARED IF &STR(&PCOMPAT) = Y AND &STR(&TICSWAPL) = YES THEN IF N = Y AND = YES THEN ELSE ELSE DO DO SET SWAPDS = &STR(N) 1SET SWAPDS = N END END ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD ZSCREEN) ASIS ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD ZSCREEN) ASIS IF &STR(&GENRI) = YES THEN IF NO = YES THEN ELSE ELSE DO DO ISPEXEC VGET (TICSLIB1) ASIS ISPEXEC VGET (TICSLIB1) ASIS SET SOURCE = &TICSLIB1 SET SOURCE = 'CJS.CARDS.SOURCE.CG86' END END IF &TIUDASD = &STR() THEN IF SYSDA = THEN SET LINKSAVE = YES /* 16810866 */ SET LINKSAVE = YES /* 16810866 */ SET SYSDVAL = &SOURCE SET SYSDVAL = 'CJS.CARDS.SOURCE.CG86' READDVAL DSN READDVAL DSN IF &SOURCE = &DSN THEN IF 'CJS.CARDS.SOURCE.CG86' = CJS.CARDS.SOURCE.CG86 THEN ELSE ELSE SET SOURCE = &DSN SET SOURCE = CJS.CARDS.SOURCE.CG86 SET SRCOPTS = &STR(NOS,NOX,NOMAP,NOOFF) SET SRCOPTS = NOS,NOX,NOMAP,NOOFF SET LISTFLAG = N SET LISTFLAG = N SET NODLLCMP = N SET NODLLCMP = N SET NODLLRI = N SET NODLLRI = N IF &STR(&GENRI) = YES THEN IF NO = YES THEN ELSE ELSE DO DO IF (&PCOMPAT = Y) AND (&LINKTYPE = S) AND (&TYPE ¬= SCREEN) AND (&TYPE ¬= EXECUNIT) AND (&TYPE ¬= PSTEP) THEN IF (N = Y) AND (S = S) AND (STANDARD ¬= SCREEN) AND (STANDARD ¬= EXECUNIT) AND (STANDARD ¬= PSTEP) THEN ISPEXEC VGET TICGLIB1 ASIS ISPEXEC VGET TICGLIB1 ASIS SET SYSDVAL = &TICGLIB1 SET SYSDVAL = 'CJS.CARDS.COMPILE.CG86' END END READDVAL TICCMPL READDVAL TICCMPL IF &TICCMPL ¬= THEN 1IF CJS.CARDS.COMPILE.CG86 ¬= THEN DO DO SET LISTFLAG = P SET LISTFLAG = P SET SRCOPTS = &STR(S,X,MAP,OFF) SET SRCOPTS = S,X,MAP,OFF END END ISPEXEC VPUT (TICCMPL) SHARED ISPEXEC VPUT (TICCMPL) SHARED SET TICCMPDO = &STR(HOST(IBMCOB),FLAG(I,W),APOST,APOSTSQL) /*17529995*/ SET TICCMPDO = HOST(IBMCOB),FLAG(I,W),APOST,APOSTSQL /*17529995*/ SET TICCMPDO = &STR(&TICCMPDO.,PERIOD,S,NOX,OPTN) /*TYE93036*/ SET TICCMPDO = HOST(IBMCOB),FLAG(I,W),APOST,APOSTSQL,PERIOD,S,NOX,OPTN /*TYE93036*/ SET TICCMPDO = &STR(&TICCMPDO.,DATE(ISO),TIME(ISO)) /*TYE93036*/ SET TICCMPDO = HOST(IBMCOB),FLAG(I,W),APOST,APOSTSQL,PERIOD,S,NOX,OPTN,DATE(ISO),TIME(ISO) /*TYE93036*/ IF &STR(&VERSION) ¬= &Z THEN IF ¬= THEN SET COMPTYPE = &STR(NDLL) SET COMPTYPE = NDLL IF &SUBSTR(2,&TIRC2VER) LE 4 THEN IF 4 LE 4 THEN DO DO IF (&PCOMPAT = Y) AND (&LINKTYPE = C) THEN IF (N = Y) AND (S = C) THEN ELSE ELSE DO DO IF &LINKTYPE = D THEN IF S = D THEN ELSE ELSE DO DO IF (&SWAPDS = Y) AND (&PCOMPAT = Y) AND (&LINKTYPE = S) AND (&TYPE ¬= SCREEN) AND (&TYPE ¬= EXECUNIT) AND (&TYPE ¬= PSTEP) T HEN IF (N = Y) AND (N = Y) AND (S = S) AND (STANDARD ¬= SCREEN) AND (STANDARD ¬= EXECUNIT) AND (STANDARD ¬= PSTEP) THEN ELSE ELSE DO DO SET TICCMPCO = &STR(&SRCOPTS,DATA(31),NOSEQ,OPT,RENT,DLL) SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL SET TICCMPCO = &STR(&TICCMPCO.,APOST,NOLIB,NONUM) SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL,APOST,NOLIB,NONUM SET TICCMPCO = &STR(&TICCMPCO.,NOD,NODYN,OBJ,NOWD) SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL,APOST,NOLIB,NONUM,NOD,NODYN,OBJ,NOWD SET TICCMPCO = &STR(&TICCMPCO.,NOSSRANGE,NUMPROC(NOPFD)) SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL,APOST,NOLIB,NONUM,NOD,NODYN,OBJ,NOWD,NOSSRANGE,NUMPROC(NOPFD) SET COMPTYPE = &STR(DLL) SET COMPTYPE = DLL END END 1END END END END END END ISPEXEC VGET TIRCBLSZ SHARED ISPEXEC VGET TIRCBLSZ SHARED IF (&STR(&TIRCBLSZ) ¬= &Z) THEN IF ( ¬= ) THEN SET TICCMPCO = &STR(&TICCMPCO.,NONAME) SET TICCMPCO = S,X,MAP,OFF,DATA(31),NOSEQ,OPT,RENT,DLL,APOST,NOLIB,NONUM,NOD,NODYN,OBJ,NOWD,NOSSRANGE,NUMPROC(NOPFD),NONAME SET TICCMPOO = &STR(SIZE=(512K,192K),LIST,XREF,RENT,REUS,NCAL) SET TICCMPOO = SIZE=(512K,192K),LIST,XREF,RENT,REUS,NCAL SET TICCMPOO = &STR(&TICCMPOO.,DYNAM(DLL),COMPAT(PM3)) SET TICCMPOO = SIZE=(512K,192K),LIST,XREF,RENT,REUS,NCAL,DYNAM(DLL),COMPAT(PM3) SET TICCMPIL = &SOURCE SET TICCMPIL = CJS.CARDS.SOURCE.CG86 SET TICCMPIM = &MEMBER SET TICCMPIM = CMO004PA ISPEXEC VPUT (TICCMPIL TICCMPIM) SHARED ISPEXEC VPUT (TICCMPIL TICCMPIM) SHARED SET SYSDEFSD = &TIUPREF..SYSDEFSD SET SYSDEFSD = IT04629.BAT.D6234045.SYSDEFSD ISPEXEC VPUT (SYSDEFSD) SHARED ISPEXEC VPUT (SYSDEFSD) SHARED SET DB2FLAG = N SET DB2FLAG = N IF &SQLFLAG=YES AND &STR(&DBM)=DB2 THEN IF YES=YES AND DB2=DB2 THEN DO /* 14401149, 15112982 */ DO /* 14401149, 15112982 */ SET DB2FLAG = Y SET DB2FLAG = Y SET TICCMPDL = &DBRMLIB SET TICCMPDL = IF &STR(&GENRI) = YES THEN IF NO = YES THEN ELSE ELSE DO DO ISPEXEC VGET TICRLIB1 ASIS ISPEXEC VGET TICRLIB1 ASIS SET SYSDVAL = &TICRLIB1 SET SYSDVAL = 'CJS.CARDS.DBRMLIB.CG86' END END READDVAL TICCDSN READDVAL TICCDSN DO WHILE &TICCDSN = &Z DO WHILE CJS.CARDS.DBRMLIB.CG86 = IF &STR(&GENRI) = YES THEN IF NO = YES THEN ELSE ELSE 1SET &TICRLIB1 = &STR(&TICCDSN) SET &TICRLIB1 = CJS.CARDS.DBRMLIB.CG86 SET TICCMPDL = &TICCDSN SET TICCMPDL = CJS.CARDS.DBRMLIB.CG86 ISPEXEC VPUT (TICCMPDL) SHARED ISPEXEC VPUT (TICCMPDL) SHARED END END IF &SQLFLAG=YES AND &STR(&DBM)=DATACOM THEN IF YES=YES AND DB2=DATACOM THEN IF &SQLFLAG=YES AND &STR(&DBM)=DB2 AND &STR(&PCOMPAT)= Y THEN IF YES=YES AND DB2=DB2 AND N= Y THEN SET OBJFLAG = L SET OBJFLAG = L IF &STR(&GENRI) = YES THEN IF NO = YES THEN ELSE ELSE DO DO IF (&PCOMPAT = Y) AND (&LINKTYPE = S) AND (&TYPE ¬= SCREEN) AND (&TYPE ¬= EXECUNIT) AND (&TYPE ¬= PSTEP) THEN IF (N = Y) AND (S = S) AND (STANDARD ¬= SCREEN) AND (STANDARD ¬= EXECUNIT) AND (STANDARD ¬= PSTEP) THEN ISPEXEC VGET TICLLIB2 ASIS ISPEXEC VGET TICLLIB2 ASIS SET SYSDVAL = &TICLLIB2 SET SYSDVAL = 'CJS.CARDS.NCALLIB.CG86' READDVAL DSN READDVAL DSN IF &TICLLIB2 = &DSN THEN IF 'CJS.CARDS.NCALLIB.CG86' = CJS.CARDS.NCALLIB.CG86 THEN END END SET TICCMPOL = &DSN SET TICCMPOL = CJS.CARDS.NCALLIB.CG86 ISPEXEC VPUT (TICCMPOL) SHARED ISPEXEC VPUT (TICCMPOL) SHARED SET TICDASD = &TIUDASD SET TICDASD = SYSDA SET TICVIO = &STR() SET TICVIO = ISPEXEC VPUT (TICDASD TICVIO) SHARED ISPEXEC VPUT (TICDASD TICVIO) SHARED ISPEXEC VGET (TIRC2NAM TIRC2LPA TIRC2LIB) SHARED ISPEXEC VGET (TIRC2NAM TIRC2LPA TIRC2LIB) SHARED ISPEXEC VGET (TIRD2LIB TIRCLLIB) SHARED ISPEXEC VGET (TIRD2LIB TIRCLLIB) SHARED SET TICC2NAM = &TIRC2NAM SET TICC2NAM = IGYCRCTL IF &TIRC2LPA ¬= Y THEN IF N ¬= Y THEN SET TICC2LIB = &TIRC2LIB SET TICC2LIB = SYS1.SIGYCOMP ISPEXEC VPUT (TICCMPDO TICCMPCO TICCMPOO) SHARED ISPEXEC VPUT (TICCMPDO TICCMPCO TICCMPOO) SHARED ISPEXEC VPUT (TICC2NAM TICC2LIB) SHARED ISPEXEC VPUT (TICC2NAM TICC2LIB) SHARED 1SET SYSDVAL = &TIRCLLIB SET SYSDVAL = SYS9.CICT.SDFHLOAD READDVAL TICCLLIB READDVAL TICCLLIB SET TICCLNAM = DFHECP1£ SET TICCLNAM = DFHECP1£ ISPEXEC VPUT (TICCLNAM TICCLLIB) SHARED ISPEXEC VPUT (TICCLNAM TICCLLIB) SHARED SET TICD2NAM = DSNHPC SET TICD2NAM = DSNHPC SET TICD2LIB = &TIRD2LIB SET TICD2LIB = SYS7.DB2ALNK.SDSNLINK SET TICD2LIB = &STR() SET TICD2LIB = ISPEXEC VPUT (TICD2NAM TICD2LIB) SHARED ISPEXEC VPUT (TICD2NAM TICD2LIB) SHARED SET TICLKLIB = &STR() SET TICLKLIB = SET TICLKNAM = HEWL SET TICLKNAM = HEWL ISPEXEC VPUT (TICLKNAM TICLKLIB) SHARED ISPEXEC VPUT (TICLKNAM TICLKLIB) SHARED %TICSDIS CMD(MSG) OBJ(&MEMBER) ALARM(NO) TEMP(YES) MSG('COMPILATION IN PROGRESS') %TICSDIS CMD(MSG) OBJ(CMO004PA) ALARM(NO) TEMP(YES) MSG('COMPILATION IN PROGRESS') IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 8 >= 30 THEN ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = CMO004PA DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 1SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA 1END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END 1DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 23 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = COMPILATION IN PROGRESS DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 23 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 24 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 25 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 26 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 27 < 48 1SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 28 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 29 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 30 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 31 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 32 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 33 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 34 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 35 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 36 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS 1END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END 1DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION IN PROGRESS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE CMO004PA COMPILATION IN PROGRESS CMO004PA COMPILATION IN PROGRESS EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ OPENFILE SYSPRINT OUTPUT /* 15885611 CLEAR OUT OLD DATA */ OPENFILE SYSPRINT OUTPUT /* 15885611 CLEAR OUT OLD DATA */ CLOSFILE SYSPRINT /* 15885611 CLEAR OUT OLD DATA */ CLOSFILE SYSPRINT /* 15885611 CLEAR OUT OLD DATA */ SET CICSFLAG = N SET CICSFLAG = N ISPEXEC SELECT PGM(TICCMPD) PARM(&CICSFLAG.&T,&DB2FLAG,&OBJFLAG,&LISTFLAG) ISPEXEC SELECT PGM(TICCMPD) PARM(NT,Y,L,P) SET &RC= &LASTCC SET &RC= 4 IF &RC>20 AND &BACKGRND=&STR(Y) THEN IF 4>20 AND Y=Y THEN IF &LINKSAVE = &STR(YES) THEN IF YES = YES THEN DO DO SET SPRINT = TICLPRNT SET SPRINT = TICLPRNT %TICLKSHE &MEMBER &SPRINT &COMPTYPE %TICLKSHE CMO004PA TICLPRNT DLL SET CLSTNAME = &STR(### STARTING TICLKSHE CLIST ###) SET CLSTNAME = ### STARTING TICLKSHE CLIST ### END END IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (TIUDASD TIUPREF TIUSUFX) SHARED ISPEXEC VGET (TIUDASD TIUPREF TIUSUFX) SHARED END END IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE 1ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) SET LKSYSPRT = &STR(LKSYSPRT) SET LKSYSPRT = LKSYSPRT CONTROL NOMSG NOFLUSH CONTROL NOMSG NOFLUSH SET TIUDSN = &TIUPREF..IEF.LKPRT.&CTYPE&TIUSUFX SET TIUDSN = IT04629.BAT.D6234045.IEF.LKPRT.DLL ALLOC FI(LKSYSPRT) DA('&TIUDSN.(&MEMBER.)') SHR REUSE ALLOC FI(LKSYSPRT) DA('IT04629.BAT.D6234045.IEF.LKPRT.DLL(CMO004PA)') SHR REUSE IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN CONTROL MSG CONTROL MSG ISPEXEC SELECT PGM(CSCOPY) PARM(&SYSPRINT &LKSYSPRT) ISPEXEC SELECT PGM(CSCOPY) PARM(TICLPRNT LKSYSPRT) FREE FI(LKSYSPRT) FREE FI(LKSYSPRT) SET CLSTNAME = &STR(#### LEAVING TICLKSHE CLIST ####) SET CLSTNAME = #### LEAVING TICLKSHE CLIST #### EXIT CODE(0) EXIT CODE(0) END END ISPEXEC VGET (TICCMPRC TICCMPPH) SHARED ISPEXEC VGET (TICCMPRC TICCMPPH) SHARED IF &RC > 4 AND &RC < 20 AND &LISTFLAG ¬= N THEN IF 4 > 4 AND 4 < 20 AND P ¬= N THEN IF &RC<5 THEN IF 4<5 THEN DO DO %TICSDIS CMD(MSG) OBJ(&MEMBER) ALARM(NO) TEMP(NO) MSG('COMPILATION COMPLETE, RC=&RC') %TICSDIS CMD(MSG) OBJ(CMO004PA) ALARM(NO) TEMP(NO) MSG('COMPILATION COMPLETE, RC=4') IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ 1DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 8 >= 30 THEN ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = CMO004PA DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END 1END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 1DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = CMO004PA END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 26 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = COMPILATION COMPLETE, RC=4 DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 26 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 27 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 28 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) 1SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 29 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 30 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 31 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 32 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 33 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 34 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 35 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 36 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END 1END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 1DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = COMPILATION COMPLETE, RC=4 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE CMO004PA COMPILATION COMPLETE, RC=4 CMO004PA COMPILATION COMPLETE, RC=4 EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ END END IF (&NODLLRI = Y) OR (&NODLLCMP = Y) THEN IF (N = Y) OR (N = Y) THEN SET COMPTYPE = &STR(NDLL) SET COMPTYPE = NDLL IF &NODLLRI = Y AND &SWAPDS ¬= Y THEN IF N = Y AND N ¬= Y THEN IF &NODLLCMP = Y AND &SWAPDS ¬= Y THEN IF N = Y AND N ¬= Y THEN IF &TICCMPPC ¬= &STR() THEN IF ¬= THEN %TIUSTATS DESC('AFTER COMPILE FOR &MEMBER') %TIUSTATS DESC('AFTER COMPILE FOR CMO004PA') SET CLSTNAME = &STR(#### LEAVING TICCMPL CLIST ####) SET CLSTNAME = #### LEAVING TICCMPL CLIST #### IF &DATATYPE(&RC) = CHAR THEN IF NUM = CHAR THEN EXIT CODE(&RC) EXIT CODE(4) SET RC = &LASTCC /*LKA88076*/ SET RC = 0 /*LKA88076*/ CONTROL NOLIST NOCONLIST NOSYMLIST CONTROL NOLIST NOCONLIST NOSYMLIST SET RC = &LASTCC SET RC = 0 IF (&RC > 0) THEN IF (0 > 0) THEN IF (&REMINST = &STR(Y)) THEN IF (N = Y) THEN ISPEXEC VGET (ICMONLY) SHARED ISPEXEC VGET (ICMONLY) SHARED IF (&ICMONLY = &STR(Y)) THEN IF (N = Y) THEN ISPEXEC VGET (TICTPMON) SHARED ISPEXEC VGET (TICTPMON) SHARED ISPEXEC TBTOP TICLOAD ISPEXEC TBTOP TICLOAD ISPEXEC TBSKIP TICLOAD ISPEXEC TBSKIP TICLOAD DO WHILE(&LASTCC = 0) DO WHILE(0 = 0) 1SET TICLLIB1 = &LOADLBNM SET TICLLIB1 = 'CJS.CARDS.LOADLIB.CG86' SET TICRLIB2 = &INSTLBNM SET TICRLIB2 = 'CJS.CARDS.CONTROL.CG86' SET TICDSID1 = &DB2SYSTM SET TICDSID1 = DB2T ISPEXEC VPUT (TICLLIB1 TICRLIB2 TICDSID1 EXECUNIT) SHARED ISPEXEC VPUT (TICLLIB1 TICRLIB2 TICDSID1 EXECUNIT) SHARED IF &LOADMDTY ¬= &STR(ZLIB) THEN IF ¬= ZLIB THEN DO DO %TICINSTX LOADNAME(&LOADMDNM) FIRST(N) LAST(N) %TICINSTX LOADNAME(JOBALL) FIRST(N) LAST(N) SET CLSTNAME = &STR(#### STARTING TICINSTX CLIST ####)/*NBG88049*/ SET CLSTNAME = #### STARTING TICINSTX CLIST ####/*NBG88049*/ END END SET KEEPIT = NO SET KEEPIT = NO SET LINKSAVE = YES SET LINKSAVE = YES ISPEXEC VGET (LINKFLAG BINDFLAG) ASIS ISPEXEC VGET (LINKFLAG BINDFLAG) ASIS ISPEXEC VGET (DBM) SHARED /* 14401149 */ ISPEXEC VGET (DBM) SHARED /* 14401149 */ SET RC = 0 SET RC = 0 IF &LINKFLAG = &STR(N) AND &BINDFLAG = &STR(N) THEN IF Y = N AND N = N THEN ISPEXEC VGET (AUTOINST INSTNEW) SHARED ISPEXEC VGET (AUTOINST INSTNEW) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM EXECUNIT) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM EXECUNIT) SHARED SET MEMLIST = &Z SET MEMLIST = %TICSFILE TICSTP(LKED) TICSDD(TEMPLKED) TICBLOCK(3200) %TICSFILE TICSTP(LKED) TICSDD(TEMPLKED) TICBLOCK(3200) END END SET CLSTITL = &STR(## STARTING TICSFILE ##) SET CLSTITL = ## STARTING TICSFILE ## SET RC = 0 SET RC = 0 CONTROL MSG NOFLUSH CONTROL MSG NOFLUSH ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL ERRORS RETURN IF &TICSTP = THEN IF LKED = THEN IF &TIUPREF = &STR() THEN IF = THEN ISPEXEC VGET (TIUPREF) ASIS ISPEXEC VGET (TIUPREF) ASIS ISPEXEC VGET (TIUSUFX TIUDASD) ASIS ISPEXEC VGET (TIUSUFX TIUDASD) ASIS 1IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) ISPEXEC VGET ZSCREEN SHARED ISPEXEC VGET ZSCREEN SHARED SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.LKED ISPEXEC VPUT (TICSFILE) SHARED ISPEXEC VPUT (TICSFILE) SHARED SET NEWDSNSW = 0 SET NEWDSNSW = 0 CONTROL NOMSG CONTROL NOMSG ALLOC F(&TICSDD) DA('&TICSFILE') &DISP REUSE ALLOC F(TEMPLKED) DA('IT04629.BAT.D6234045.TICTEMP1.LKED') OLD REUSE IF &LASTCC = 0 THEN IF 12 = 0 THEN ELSE ELSE DO DO FREE F(&TICSDD) FREE F(TEMPLKED) CONTROL MSG CONTROL MSG %TIUGLOB %TIUGLOB SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) SET NEWDSNSW = 1 SET NEWDSNSW = 1 ALLOC F(&TICSDD) DA('&TICSFILE') NEW CATALOG REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(F B) LRECL(&TICLRECL) BLKSIZE(&TICB LOCK) BLOCK(&TICBLOCK) ALLOC F(TEMPLKED) DA('IT04629.BAT.D6234045.TICTEMP1.LKED') NEW CATALOG REUSE UNIT(SYSDA) SPACE(100,25) RECFM(F B) LRECL(80) BLKSIZE(3200) BLOCK(3200) IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN 1END END OPENFILE &TICSDD OUTPUT OPENFILE TEMPLKED OUTPUT IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET &&TICSDD = &STR( *) SET &TEMPLKED = * PUTFILE &TICSDD PUTFILE TEMPLKED IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN CLOSFILE &TICSDD CLOSFILE TEMPLKED IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN IF &NEWDSNSW = 1 THEN IF 1 = 1 THEN DO DO FREE F(&TICSDD) FREE F(TEMPLKED) ALLOC F(&TICSDD) DA('&TICSFILE') &DISP &UNIT REUSE ALLOC F(TEMPLKED) DA('IT04629.BAT.D6234045.TICTEMP1.LKED') OLD UNIT(SYSDA) REUSE IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN END END SET CLSTITL = &STR(## ENDING TICSFILE ##) SET CLSTITL = ## ENDING TICSFILE ## EXIT CODE(&RC) EXIT CODE(0) SET RC = &LASTCC SET RC = 0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN %TICSFILE TICSTP(DBRM) TICSDD(TEMPDBRM) %TICSFILE TICSTP(DBRM) TICSDD(TEMPDBRM) END END SET CLSTITL = &STR(## STARTING TICSFILE ##) SET CLSTITL = ## STARTING TICSFILE ## SET RC = 0 SET RC = 0 CONTROL MSG NOFLUSH CONTROL MSG NOFLUSH ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL ERRORS RETURN IF &TICSTP = THEN IF DBRM = THEN IF &TIUPREF = &STR() THEN IF = THEN ISPEXEC VGET (TIUPREF) ASIS ISPEXEC VGET (TIUPREF) ASIS ISPEXEC VGET (TIUSUFX TIUDASD) ASIS ISPEXEC VGET (TIUSUFX TIUDASD) ASIS 1IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) SET UNIT = UNIT(SYSDA) ISPEXEC VGET ZSCREEN SHARED ISPEXEC VGET ZSCREEN SHARED SET TICSFILE = &TIUPREF..TICTEMP&ZSCREEN..&TICSTP&TIUSUFX SET TICSFILE = IT04629.BAT.D6234045.TICTEMP1.DBRM ISPEXEC VPUT (TICSFILE) SHARED ISPEXEC VPUT (TICSFILE) SHARED SET NEWDSNSW = 0 SET NEWDSNSW = 0 CONTROL NOMSG CONTROL NOMSG ALLOC F(&TICSDD) DA('&TICSFILE') &DISP REUSE ALLOC F(TEMPDBRM) DA('IT04629.BAT.D6234045.TICTEMP1.DBRM') OLD REUSE IF &LASTCC = 0 THEN IF 12 = 0 THEN ELSE ELSE DO DO FREE F(&TICSDD) FREE F(TEMPDBRM) CONTROL MSG CONTROL MSG %TIUGLOB %TIUGLOB SET CLSTNAME = &STR(### STARTING TIUGLOB CLIST ###) SET CLSTNAME = ### STARTING TIUGLOB CLIST ### SET RC=0 SET RC=0 IF (&SYSISPF = ACTIVE) THEN IF (ACTIVE = ACTIVE) THEN DO DO ISPEXEC VGET (GLOBRUN) SHARED ISPEXEC VGET (GLOBRUN) SHARED IF (&GLOBRUN = &STR(YES)) AND (&GLOBAL= &STR()) THEN IF (YES = YES) AND (= ) THEN GOTO ENDIT GOTO ENDIT SET CLSTNAME = &STR(### LEAVING TIUGLOB CLIST ###) SET CLSTNAME = ### LEAVING TIUGLOB CLIST ### EXIT CODE(&RC) EXIT CODE(0) SET NEWDSNSW = 1 SET NEWDSNSW = 1 ALLOC F(&TICSDD) DA('&TICSFILE') NEW CATALOG REUSE &UNIT SPACE(&TICPRIM.,&TICSEC.) RECFM(F B) LRECL(&TICLRECL) BLKSIZE(&TICB LOCK) BLOCK(&TICBLOCK) ALLOC F(TEMPDBRM) DA('IT04629.BAT.D6234045.TICTEMP1.DBRM') NEW CATALOG REUSE UNIT(SYSDA) SPACE(100,25) RECFM(F B) LRECL(80) BLKSIZE(9440) BLOCK(9440) IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN 1END END OPENFILE &TICSDD OUTPUT OPENFILE TEMPDBRM OUTPUT IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN SET &&TICSDD = &STR( *) SET &TEMPDBRM = * PUTFILE &TICSDD PUTFILE TEMPDBRM IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN CLOSFILE &TICSDD CLOSFILE TEMPDBRM IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN IF &NEWDSNSW = 1 THEN IF 1 = 1 THEN DO DO FREE F(&TICSDD) FREE F(TEMPDBRM) ALLOC F(&TICSDD) DA('&TICSFILE') &DISP &UNIT REUSE ALLOC F(TEMPDBRM) DA('IT04629.BAT.D6234045.TICTEMP1.DBRM') OLD UNIT(SYSDA) REUSE IF &LASTCC ¬= 0 THEN IF 0 ¬= 0 THEN END END SET CLSTITL = &STR(## ENDING TICSFILE ##) SET CLSTITL = ## ENDING TICSFILE ## EXIT CODE(&RC) EXIT CODE(0) SET RC = &LASTCC SET RC = 0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET FREEDBRM = YES SET FREEDBRM = YES ISPEXEC VGET (TICRLIB2) ASIS /* USER INSTALL CONTROL LIB */ ISPEXEC VGET (TICRLIB2) ASIS /* USER INSTALL CONTROL LIB */ SET SYSDVAL = &TICRLIB2 SET SYSDVAL = 'CJS.CARDS.CONTROL.CG86' READDVAL &TICRLIB2 READDVAL &TICRLIB2 ALLOC F(INSTCNTL) DA('&TICRLIB2.(&LOADNAME.)') SHR REUSE ALLOC F(INSTCNTL) DA('CJS.CARDS.CONTROL.CG86(JOBALL)') SHR REUSE SET RC = &LASTCC SET RC = 0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET FREECNTL = YES SET FREECNTL = YES ISPEXEC VGET (TICWBCTL) ASIS /* BINDER CONTROL CARDS WORK LIB */ ISPEXEC VGET (TICWBCTL) ASIS /* BINDER CONTROL CARDS WORK LIB */ SET SYSDVAL = &TICWBCTL SET SYSDVAL = IT04629.BAT.D6234045.TICTEMP1.BCTL 1READDVAL &TICWBCTL READDVAL &TICWBCTL ALLOC F(WBCTLDD) DA('&TICWBCTL.(&LOADNAME.)') SHR REUSE ALLOC F(WBCTLDD) DA('IT04629.BAT.D6234045.TICTEMP1.BCTL(JOBALL)') SHR REUSE SET RC = &LASTCC SET RC = 0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN SET FREECNTL = YES SET FREECNTL = YES %TICSDIS CMD(MSG) OBJ(&STR(&LOADNAME)) MSG('READING APPLOAD INCLUDES, IMPORTS') TEMP(YES) %TICSDIS CMD(MSG) OBJ(JOBALL) MSG('READING APPLOAD INCLUDES, IMPORTS') TEMP(YES) IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 6 >= 30 THEN ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = JOBALL DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 1SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL 1END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END 1DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 33 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = READING APPLOAD INCLUDES, IMPORTS DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 33 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 34 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 35 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 36 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 1SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS 1END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING APPLOAD INCLUDES, IMPORTS END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE JOBALL READING APPLOAD INCLUDES, IMPORTS JOBALL READING APPLOAD INCLUDES, IMPORTS EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ OPENFILE TEMPLKED OUTPUT OPENFILE TEMPLKED OUTPUT OPENFILE WBCTLDD INPUT OPENFILE WBCTLDD INPUT ERROR ERROR SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(ONLINEPR) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO300WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO366WA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO304WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO301WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO330WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO318WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO078WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO112WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO025WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO033WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO043WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO037WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO176WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO041WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO179WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO072WA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO045WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO015WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO052WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO005WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO066WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO088WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO074WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO001WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO026WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO004WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO009WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO018WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO058WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO067WA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO054WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO131WA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMB169CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA059EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO300PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO366PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO304PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO301PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO330PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO318PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO078PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO112PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO025PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO033PA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO043PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO037PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO176PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO041PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO179PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO072PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO045PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO015PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO052PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO005PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO066PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO088PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO074PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO001PA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO026PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO004PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA009PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA018PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO058PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO067PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO054PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO131PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA162CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA002AA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO165EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO164EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA090CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA145CA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA366IA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA151CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA032CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA036CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA021CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO073EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMB143EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA038EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA018IA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA106CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA120CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO050CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA156CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA068CA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO160CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA301IA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA115CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO042EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA039CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA069CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO027PA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO163EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA070CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA167CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA152CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA065CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO008CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA029IA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA132CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA056CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA187CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(E0000841) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA064CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA062CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA063CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA049IA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMB028EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA020CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA083EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA230EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA119CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA019IA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA161CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA075CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA034CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA084CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA027IA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA032IA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO200EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA022CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA041IA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA094CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA148EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA801ER) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA171CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA095EA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA157CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA012EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO013EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO071CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) 1DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO016CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO003CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA021IA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA040CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA150CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD 1GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO153CA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(E2009014) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(F2010654) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(F2010642) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA055EA) PUTFILE TEMPLKED 1PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(SCA044IA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA802CB) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMA006EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET TEMPLKED = &STR(&WBCTLDD) SET TEMPLKED = INCLUDE APPLOAD(CMO154EA) PUTFILE TEMPLKED PUTFILE TEMPLKED SET READCC = 0 SET READCC = 0 GETFILE WBCTLDD GETFILE WBCTLDD DO DO SET READCC = &LASTCC 1SET READCC = 400 RETURN RETURN END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (400 = 0) CLOSFILE WBCTLDD CLOSFILE WBCTLDD FREE FI(WBCTLDD) FREE FI(WBCTLDD) %TICSDIS CMD(MSG) OBJ(&STR(&LOADNAME)) MSG('READING INSTALL CONTROL') TEMP(YES) %TICSDIS CMD(MSG) OBJ(JOBALL) MSG('READING INSTALL CONTROL') TEMP(YES) IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 6 >= 30 THEN ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = JOBALL DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 1DO WHILE 8 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) 1SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END 1END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 23 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = READING INSTALL CONTROL DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 23 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 24 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 25 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 26 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 1DO WHILE 27 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 28 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 29 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 30 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 31 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 32 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 33 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 34 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 35 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 36 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) 1SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END 1END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = READING INSTALL CONTROL END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE JOBALL READING INSTALL CONTROL JOBALL READING INSTALL CONTROL EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ OPENFILE TEMPDBRM OUTPUT OPENFILE TEMPDBRM OUTPUT OPENFILE INSTCNTL INPUT OPENFILE INSTCNTL INPUT ERROR ERROR SET NOBIND = NOBIND SET NOBIND = NOBIND SET BPLISOL = &STR(RR) /* DEFAULT ISOLATION */ SET BPLISOL = RR /* DEFAULT ISOLATION */ SET PROCESS = &Z SET PROCESS = SET TARGET = &Z SET TARGET = SET CHKOUT = &Z SET CHKOUT = SET SYSLIB = &Z SET SYSLIB = SET APPLOAD = &Z /* 17026110 */ SET APPLOAD = /* 17026110 */ SET BPLLIBS = &Z SET BPLLIBS = SET I = 0 SET I = 0 SET CNT = 0 SET CNT = 0 SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ********************************************** ** 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** INSTALL CONTROL GENERATED BY ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CA GEN(R) ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** COPYRIGHT (C) 2010 CA. ALL RIGHTS RESERVED. ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** INSTALL CONTROL FOR: JOBALL ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** TARGET ENVIRONMENT: DB2_DSN ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** DATE: 2023/04/26 TIME: 23:40 USER: IT04629 ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ********************************************** ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = INSTALL JOBALL FOR BATCH READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF INSTALL = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF INSTALL = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF INSTALL = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF INSTALL ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF INSTALL = INSTALL THEN DO DO SET TARGET = &STR(&INST4) SET TARGET = BATCH SET CHKOUT = &STR(&INST5) SET CHKOUT = END END IF &STR(&INST1) = &STR(LINKEDIT) THEN IF INSTALL = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF INSTALL = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** SOURCE CODE INFORMATION IS AS FOLLOWS: ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** BATCH MANAGER: ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(JOBALL) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** PROCEDURE STEPS: ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(ONLINEPR) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ 1IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ACTION BLOCKS (NON-EXTERNAL): ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA002AA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA162CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMB169CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA032CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA021CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA145CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO153CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA150CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA063CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA062CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA065CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA152CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA151CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA161CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA036CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA068CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA069CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO003CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO016CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO071CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO027PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA018PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA120CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA070CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA040CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA132CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO131PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO131WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA094CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA020CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO054PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO054WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO067PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO067WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO160CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO008CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA167CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA802CB) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA801ER) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA171CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA106CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO058PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO058WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO018WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA090CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA115CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA056CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA009PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO009WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA022CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO050CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA119CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA039CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA157CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA156CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO004PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO004WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO026PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO026WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO001PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO001WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO074PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO074WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO088PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO088WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO066PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO066WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO005PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO005WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA084CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA034CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA075CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(E0000841) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(F2010642) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(F2010654) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO052PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO052WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO015PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO015WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO045PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO045WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO072PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO072WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO179PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO179WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO041PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO041WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO176PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO176WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA064CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO037PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO037WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO043PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO043WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO033PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO033WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO025PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO025WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(E2009014) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMA187CA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO112PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO112WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO078PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO078WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO318PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO318WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO330PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO330WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO301PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO301WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO304PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO304WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO366PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO366WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO300PA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = COBOLSRC CJS.CARDS.SOURCE.CG86(CMO300WA) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF COBOLSRC = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF COBOLSRC = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF COBOLSRC = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF COBOLSRC ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF COBOLSRC = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF COBOLSRC = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF COBOLSRC = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** THIS MODULE SHOULD BE LINK-EDITED ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = LINKEDIT JOBALL READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF LINKEDIT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF LINKEDIT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF LINKEDIT = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF LINKEDIT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF LINKEDIT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF LINKEDIT = LINKEDIT THEN SET PROCESS = &STR(LKED) SET PROCESS = LKED IF &STR(&INST1) = &STR(BINDCNTL) THEN IF LINKEDIT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF LINKEDIT ¬= LINKEDIT THEN END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** USING SYSLIB LIBRARIES AS FOLLOWS: ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIBC SYS7.DB2ALNK.SDSNLINK READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIBC = SYSLIBC THEN GOTO NEXTREC /* 16135199 */ GOTO NEXTREC /* 16135199 */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB SYS7.DB2ALNK.SDSNLINK READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' END END END END 1END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIBC SYS1.SCEELKED READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIBC = SYSLIBC THEN GOTO NEXTREC /* 16135199 */ GOTO NEXTREC /* 16135199 */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB SYS1.SCEELKED READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN 1IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIBC SYS1.AIB.LINKLIB READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIBC = SYSLIBC THEN GOTO NEXTREC /* 16135199 */ GOTO NEXTREC /* 16135199 */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB SYS1.AIB.LINKLIB 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) 1SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIBC SYS1.SCEELKED READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIBC = SYSLIBC THEN GOTO NEXTREC /* 16135199 */ GOTO NEXTREC /* 16135199 */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB SYS1.SCEELKED READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' END END END END END END 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIBC SYS7.DB2T.SDSNLOAD READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIBC = SYSLIBC THEN GOTO NEXTREC /* 16135199 */ GOTO NEXTREC /* 16135199 */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB SYS7.DB2T.SDSNLOAD READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN 1DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIBC PV.TEST.CAGEN.CEHBPLD0 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIBC = SYSLIBC THEN GOTO NEXTREC /* 16135199 */ GOTO NEXTREC /* 16135199 */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB PV.TEST.CAGEN.CEHBPLD0 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 1IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TEST.CAGEN .CEHBPLD0' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL 1SET SYSDVAL = APPLOAD CJS.CARDS.NCALLIB.CG86 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL 1GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = APPLOAD CJS.CARDS.LOADLIB.CG86 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' 'CJS.CARDS.LOADLIB.CG86' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ 1END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = APPLOAD CJ.EXTERN.LE.NCALLIB READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' 'CJS.CARDS.LOADLIB.CG86' 'CJ.EXTERN.LE.NCALLIB' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN 1IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB CJ.EXTERN.LE.NCALLIB READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TEST.CAGEN .CEHBPLD0' 'CJ.EXTERN.LE.NCALLIB' END END END END 1END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = APPLOAD SGS.SERV.NCALLIB.CG86 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ 1SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' 'CJS.CARDS.LOADLIB.CG86' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB SGS.SERV.NCALLIB.CG86 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN 1DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TEST.CAGEN .CEHBPLD0' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = APPLOAD SGS.SERV.LOADLIB.CG86 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO 1DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' 'CJS.CARDS.LOADLIB.CG86' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LO ADLIB.CG86' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB SGS.SERV.LOADLIB.CG86 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN 1IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TEST.CAGEN .CEHBPLD0' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LOADLIB.CG86' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = APPLOAD TA.LE.LOADLIB READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN 1IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' 'CJS.CARDS.LOADLIB.CG86' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LO ADLIB.CG86' 'TA.LE.LOADLIB' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB TA.LE.LOADLIB READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TEST.CAGEN .CEHBPLD0' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LOADLIB.CG86' 'TA.LE.LOADLIB' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = APPLOAD TA.LOADLIB READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN 1IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' 'CJS.CARDS.LOADLIB.CG86' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LO ADLIB.CG86' 'TA.LE.LOADLIB' 'TA.LOADLIB' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) 1SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB TA.LOADLIB READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TEST.CAGEN .CEHBPLD0' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LOADLIB.CG86' 'TA.LE.LOADLIB' 'TA.LOADLIB' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ 1END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = APPLOAD CI.TEST.SRM.HSSLOAD READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' 'CJS.CARDS.LOADLIB.CG86' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LO ADLIB.CG86' 'TA.LE.LOADLIB' 'TA.LOADLIB' 'CI.TEST.SRM.HSSLOAD' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB CI.TEST.SRM.HSSLOAD READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TEST.CAGEN .CEHBPLD0' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LOADLIB.CG86' 'TA.LE.LOADLIB' 'TA.LOADLIB' 'CI.TEST.SRM. HSSLOAD' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ 1IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = APPLOAD PV.TEST.TBASE.LOAD READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' 'CJS.CARDS.LOADLIB.CG86' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LO ADLIB.CG86' 'TA.LE.LOADLIB' 'TA.LOADLIB' 'CI.TEST.SRM.HSSLOAD' 'PV.TEST.TBASE.LOAD' END END END 1END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB PV.TEST.TBASE.LOAD READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TEST.CAGEN .CEHBPLD0' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LOADLIB.CG86' 'TA.LE.LOADLIB' 'TA.LOADLIB' 'CI.TEST.SRM. 1HSSLOAD' 'PV.TEST.TBASE.LOAD' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = APPLOAD PV.TEST.CMNCJ02.#000004.LCX READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF APPLOAD = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF APPLOAD = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF APPLOAD = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF APPLOAD ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF APPLOAD = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF APPLOAD = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF APPLOAD = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF APPLOAD ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF APPLOAD = SYSLIB THEN ELSE 1ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF APPLOAD = APPLOAD THEN DO /*17026110*/ DO /*17026110*/ SET APPLOAD = &STR(&APPLOAD '&INST2.') SET APPLOAD = 'CJS.CARDS.NCALLIB.CG86' 'CJS.CARDS.LOADLIB.CG86' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LO ADLIB.CG86' 'TA.LE.LOADLIB' 'TA.LOADLIB' 'CI.TEST.SRM.HSSLOAD' 'PV.TEST.TBASE.LOAD' 'PV.TEST.CMNCJ02.#000004.LCX' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = SYSLIB PV.TEST.CMNCJ02.#000004.LCX READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF SYSLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF SYSLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF SYSLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF SYSLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF SYSLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF SYSLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF SYSLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO 1IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF SYSLIB ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF SYSLIB = SYSLIB THEN DO DO SET SYSLIB = &STR(&SYSLIB '&INST2.') SET SYSLIB = 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TEST.CAGEN .CEHBPLD0' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LOADLIB.CG86' 'TA.LE.LOADLIB' 'TA.LOADLIB' 'CI.TEST.SRM. HSSLOAD' 'PV.TEST.TBASE.LOAD' 'PV.TEST.CMNCJ02.#000004.LCX' END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** USING LINK-EDIT STATEMENTS AS FOLLOWS: ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) 1SET SYSDVAL = &INSTCNTL SET SYSDVAL = ORDER TIRMAIN,TIRDMGR READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ORDER = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ORDER = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ORDER = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ORDER ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF ORDER = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF ORDER = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF ORDER = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF ORDER ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF ORDER = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF ORDER = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = ORDER TIRMAIN,TIRDMGR PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = INCLUDE SYSLIB(TIRMAINB) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF INCLUDE = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF INCLUDE = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF INCLUDE = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF INCLUDE ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF INCLUDE = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF INCLUDE = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF INCLUDE = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF INCLUDE ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF INCLUDE = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF INCLUDE = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = INCLUDE SYSLIB(TIRMAINB) PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END 1END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = INCLUDE SYSLIB(DSNELI) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF INCLUDE = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF INCLUDE = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF INCLUDE = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF INCLUDE ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF INCLUDE = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF INCLUDE = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF INCLUDE = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF INCLUDE ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF INCLUDE = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF INCLUDE = APPLOAD THEN ELSE ELSE 1DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = INCLUDE SYSLIB(DSNELI) PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = INCLUDE SYSLIB(TIRLILOD) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF INCLUDE = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF INCLUDE = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF INCLUDE = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF INCLUDE ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF INCLUDE = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF INCLUDE = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF INCLUDE = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF INCLUDE ¬= LINKEDIT THEN 1DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF INCLUDE = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF INCLUDE = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = INCLUDE SYSLIB(TIRLILOD) PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIDDAQUE' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN 1IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIDDAQUE' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRABEND' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRABEND' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL 1END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRADDR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRADDR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ 1IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRCBITS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRCBITS' PUTFILE TEMPLKED PUTFILE TEMPLKED 1END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRCBUF' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRCBUF' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRDATE' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN 1DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRDATE' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRDAT2' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN 1DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRDAT2' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRD2VW' 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRD2VW' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ 1SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIREDI' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIREDI' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIREDO' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO 1SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIREDO' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRGDTAP' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO 1IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRGDTAP' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRGFLD' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN 1IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRGFLD' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRIBUF' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRIBUF' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRMFPA' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRMFPA' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN 1END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRMOVEA' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRMOVEA' PUTFILE TEMPLKED PUTFILE TEMPLKED END END 1END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRMOVEP' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN 1ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRMOVEP' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRMTQA' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO 1IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRMTQA' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIROBUF' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIROBUF' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRPFLD' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 1IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRPFLD' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRPFLD1' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRPFLD1' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN 1DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRSENV' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRSENV' 1PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRSETA' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN 1ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRSETA' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRS2VW' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN 1IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRS2VW' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRT2VW' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRT2VW' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) 1SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRVW2D' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRVW2D' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRVW2S' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRVW2S' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END 1END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRARUNT','TIRVW2T' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE 1DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRARUNT','TIRVW2T' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNC','TIRLIPS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN 1DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNC','TIRLIPS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNC','TIRLU2R' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN 1IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNC','TIRLU2R' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNC','TIRLU2S' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNC','TIRLU2S' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL 1END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBAB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBAB' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ 1IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBAP' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBAP' PUTFILE TEMPLKED PUTFILE TEMPLKED 1END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBCB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBCB' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBCP' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN 1DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBCP' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBGB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN 1DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBGB' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBGL' 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBGL' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ 1SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBRDY' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBRDY' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBRST' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO 1SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBRST' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBIN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO 1IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBIN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLBTO' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN 1IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLBTO' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRCRUNI','TIRLVRST' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRCRUNI','TIRLVRST' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRTRCTZ','TIRTRCE' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRTRCTZ','TIRTRCE' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN 1END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRBRUNB','TIRBTCH' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRBRUNB','TIRBTCH' PUTFILE TEMPLKED PUTFILE TEMPLKED END END 1END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRHSTG' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN 1ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRHSTG' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRMSG' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO 1IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRMSG' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRPBUF' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRPBUF' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRMQSI' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 1IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRMQSI' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRMTQBZ','TIRMTQB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRMTQBZ','TIRMTQB' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN 1DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRTERBZ','TIRTERMB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRTERBZ','TIRTERMB' 1PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRIURTL' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN 1ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRIURTL' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRBRUNB','TIRBDRTL' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN 1IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRBRUNB','TIRBDRTL' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRBRUNB','TIRBRTRY' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRBRUNB','TIRBRTRY' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) 1SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRBRUNB','TIRBURTL' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRBRUNB','TIRBURTL' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRBRUNB','TIRFAIL' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRBRUNB','TIRFAIL' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END 1END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRBRUNB','TIRRETCD' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE 1DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRBRUNB','TIRRETCD' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFCCAT' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN 1DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFCCAT' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFCHR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN 1IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFCHR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFCYYD' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFCYYD' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL 1END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFCYYN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFCYYN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ 1IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDAY' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDAY' PUTFILE TEMPLKED PUTFILE TEMPLKED 1END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDAYN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDAYN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDAYS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN 1DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDAYS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDDUR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN 1DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDDUR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDNUM' 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDNUM' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ 1SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDOW' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDOW' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDSTS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO 1SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDSTS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDTEC' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO 1IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDTEC' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDTEJ' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN 1IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDTEJ' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDTEN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDTEN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDTTS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDTTS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN 1END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDT2T' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDT2T' PUTFILE TEMPLKED PUTFILE TEMPLKED END END 1END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFDYTS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN 1ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFDYTS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFHOUR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO 1IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFHOUR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFHRN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFHRN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFHRTS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 1IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFHRTS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFINDB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFINDB' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN 1DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFINDX' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFINDX' 1PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFJDTE' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN 1ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFJDTE' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFLGTH' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN 1IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFLGTH' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFMBCS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFMBCS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) 1SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFMICR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFMICR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFMIN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFMIN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END 1END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFMINN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE 1DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFMINN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFMITS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN 1DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFMITS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFMOTS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN 1IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFMOTS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFMTH' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFMTH' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL 1END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFMTHN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFMTHN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ 1IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFNCYY' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFNCYY' PUTFILE TEMPLKED PUTFILE TEMPLKED 1END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFNUM' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFNUM' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFNUMD' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN 1DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFNUMD' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFNUMT' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN 1DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFNUMT' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFSCTS' 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFSCTS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ 1SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFSDUR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFSDUR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFSEC' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO 1SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFSEC' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFSECN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO 1IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFSECN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFSSDB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN 1IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFSSDB' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFSSTR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFSSTR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFTDUR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFTDUR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN 1END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFTMEC' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFTMEC' PUTFILE TEMPLKED PUTFILE TEMPLKED END END 1END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFTMTS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN 1ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFTMTS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFTNUM' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO 1IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFTNUM' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFTRDB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFTRDB' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFTRIM' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 1IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFTRIM' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFTSC' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFTSC' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN 1DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFUPDB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFUPDB' 1PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFUPPR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN 1ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFUPPR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFVRDB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN 1IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFVRDB' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFVRFY' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFVRFY' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) 1SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFYEAR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFYEAR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFYRN' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFYRN' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END 1END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRFYRTS' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE 1DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRFYRTS' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRRTLDT','TIROLBCM' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN 1DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRRTLDT','TIROLBCM' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRUPDB' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN 1IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRUPDB' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRUPPR' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRUPPR' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL 1END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRVPAD' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRVPAD' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ 1IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRUAMSA' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRUAMSA' PUTFILE TEMPLKED PUTFILE TEMPLKED 1END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = IMPORT CODE,'TIRORUNT','TIRUAMSG' READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF IMPORT = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF IMPORT = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF IMPORT = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF IMPORT ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF IMPORT = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF IMPORT = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF IMPORT = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF IMPORT ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF IMPORT = SYSLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(APPLOAD) THEN IF IMPORT = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = IMPORT CODE,'TIRORUNT','TIRUAMSG' PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ENTRY TIRMAIN READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ENTRY = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ENTRY = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ENTRY = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ENTRY ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF ENTRY = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF ENTRY = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF ENTRY = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN 1DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF ENTRY ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF ENTRY = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF ENTRY = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = ENTRY TIRMAIN PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = REPLACE IGZCBSO READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF REPLACE = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF REPLACE = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF REPLACE = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF REPLACE ¬= ** THEN 1DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF REPLACE = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF REPLACE = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF REPLACE = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF REPLACE ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF REPLACE = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF REPLACE = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = REPLACE IGZCBSO PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = REPLACE CEESTART 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF REPLACE = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF REPLACE = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF REPLACE = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF REPLACE ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF REPLACE = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF REPLACE = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF REPLACE = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF REPLACE ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF REPLACE = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF REPLACE = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = REPLACE CEESTART PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ 1SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = REPLACE CEEBETBL READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF REPLACE = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF REPLACE = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF REPLACE = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF REPLACE ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF REPLACE = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF REPLACE = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF REPLACE = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF REPLACE ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF REPLACE = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF REPLACE = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = REPLACE CEEBETBL PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = REPLACE CEESG003 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF REPLACE = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF REPLACE = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF REPLACE = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF REPLACE ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF REPLACE = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF REPLACE = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF REPLACE = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF REPLACE ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF REPLACE = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF REPLACE = APPLOAD THEN ELSE ELSE DO DO 1SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = REPLACE CEESG003 PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = REPLACE CEESG005 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF REPLACE = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF REPLACE = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF REPLACE = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF REPLACE ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF REPLACE = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF REPLACE = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF REPLACE = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF REPLACE ¬= LINKEDIT THEN DO DO 1IF &STR(&INST1) = &STR(SYSLIB) THEN IF REPLACE = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF REPLACE = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = REPLACE CEESG005 PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = INCLUDE APPLOAD(JOBALL) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF INCLUDE = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF INCLUDE = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF INCLUDE = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF INCLUDE ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF INCLUDE = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF INCLUDE = LINKEDIT THEN 1IF &STR(&INST1) = &STR(BINDCNTL) THEN IF INCLUDE = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF INCLUDE ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF INCLUDE = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF INCLUDE = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = INCLUDE APPLOAD(JOBALL) PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = NAME JOBALL(R) READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF NAME = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF NAME = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF NAME = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF NAME ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF NAME = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF NAME = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF NAME = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF LKED = LKED THEN DO DO IF &STR(&INST1) ¬= &STR(LINKEDIT) THEN IF NAME ¬= LINKEDIT THEN DO DO IF &STR(&INST1) = &STR(SYSLIB) THEN IF NAME = SYSLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(APPLOAD) THEN IF NAME = APPLOAD THEN ELSE ELSE DO DO SET TEMPLKED = &STR(&INSTCNTL) SET TEMPLKED = NAME JOBALL(R) PUTFILE TEMPLKED PUTFILE TEMPLKED END END END END END END IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF LKED = BIND THEN END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** PLAN JOBALL SHOULD BE BOUND TO DB2 ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** USING ISOLATION LEVEL RR ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ACTION BLOCK HAS HAS IS AN ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** MEMBER UPDATES DELETES EXTERNAL ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ======== ======= ======= ======== ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA002AA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA162CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMB169CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA021CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA150CA YES NO NO ** 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA063CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA062CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA065CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA152CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA036CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA018PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA040CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA132CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA094CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA020CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO054PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO067PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO160CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO008CA NO NO NO ** 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA801ER NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA106CA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO058PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA090CA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA115CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA009PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO050CA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA039CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO004PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO026PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO001PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO088PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO066PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO005PA YES NO NO ** 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA084CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA034CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA075CA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** E0000841 NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** F2010642 NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** F2010654 NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO052PA YES YES NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO015PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO045PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO072PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO041PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO176PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA064CA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO043PA YES YES NO ** 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO033PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO025PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** E2009014 NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMA187CA NO YES NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO112PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO078PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO330PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO301PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO304PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO366PA NO NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** CMO300PA YES NO NO ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** (YOU WILL NEED TO GRANT EXECUTE AUTHORITY ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** ON PLAN JOBALL TO USERS PRIOR TO FIRST ** 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** EXECUTION - REFER TO DB2 REFERENCE MANUAL) ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = BINDCNTL JOBALL READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF BINDCNTL = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF BINDCNTL = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF BINDCNTL = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF BINDCNTL ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF BINDCNTL = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF BINDCNTL = LINKEDIT THEN 1IF &STR(&INST1) = &STR(BINDCNTL) THEN IF BINDCNTL = BINDCNTL THEN SET PROCESS = &STR(BIND) SET PROCESS = BIND IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF BINDCNTL = BINDCNTL THEN DO DO SET BPLNAME = &STR(&INST2) SET BPLNAME = JOBALL END END END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = BINDISOL RR READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF BINDISOL = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF BINDISOL = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF BINDISOL = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF BINDISOL ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF BINDISOL = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF BINDISOL = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF BINDISOL = BINDCNTL THEN 1IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF BINDISOL = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF BINDISOL = BINDISOL THEN DO DO SET BPLISOL = &STR(&INST2) SET BPLISOL = RR END END END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** USING DBRMLIB LIBRARIES AS FOLLOWS: ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) 1SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRMLIB PV.TEST.CAGEN.CEHBDBRM READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRMLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRMLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRMLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRMLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRMLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRMLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRMLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRMLIB = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRMLIB = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRMLIB = DBRMLIB THEN DO DO IF &STR(&BPLLIBS) = &Z THEN IF = THEN SET BPLLIBS = &STR('&INST2.') SET BPLLIBS = 'PV.TEST.CAGEN.CEHBDBRM' END END END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRMLIB CJS.CARDS.DBRMLIB.CG86 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRMLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRMLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRMLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRMLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRMLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRMLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRMLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRMLIB = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRMLIB = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRMLIB = DBRMLIB THEN DO DO IF &STR(&BPLLIBS) = &Z THEN IF 'PV.TEST.CAGEN.CEHBDBRM' = THEN ELSE ELSE SET BPLLIBS = &STR(&BPLLIBS '&INST2.') SET BPLLIBS = 'PV.TEST.CAGEN.CEHBDBRM' 'CJS.CARDS.DBRMLIB.CG86' END END 1END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRMLIB CJS.CARDS.DBRMLIB.CG86 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRMLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRMLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRMLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRMLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRMLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRMLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRMLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRMLIB = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRMLIB = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRMLIB = DBRMLIB THEN DO DO 1IF &STR(&BPLLIBS) = &Z THEN IF 'PV.TEST.CAGEN.CEHBDBRM' 'CJS.CARDS.DBRMLIB.CG86' = THEN ELSE ELSE SET BPLLIBS = &STR(&BPLLIBS '&INST2.') SET BPLLIBS = 'PV.TEST.CAGEN.CEHBDBRM' 'CJS.CARDS.DBRMLIB.CG86' 'CJS.CARDS.DBRMLIB.CG86' END END END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRMLIB CJS.CARDS.DBRMLIB.CG86 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRMLIB = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRMLIB = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRMLIB = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRMLIB ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRMLIB = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRMLIB = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRMLIB = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRMLIB = BINDCNTL THEN ELSE ELSE 1IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRMLIB = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRMLIB = DBRMLIB THEN DO DO IF &STR(&BPLLIBS) = &Z THEN IF 'PV.TEST.CAGEN.CEHBDBRM' 'CJS.CARDS.DBRMLIB.CG86' 'CJS.CARDS.DBRMLIB.CG86' = THEN ELSE ELSE SET BPLLIBS = &STR(&BPLLIBS '&INST2.') SET BPLLIBS = 'PV.TEST.CAGEN.CEHBDBRM' 'CJS.CARDS.DBRMLIB.CG86' 'CJS.CARDS.DBRMLIB.CG86' 'CJS.CARDS.DBRMLIB.CG86' END END END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** USING DBRMS AS FOLLOWS: ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA002AA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA002AA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 0 + 1 IF &CNT = 1 THEN IF 1 = 1 THEN SET MEMLIST = &STR(&INST2) SET MEMLIST = CMA002AA 1SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA IF &CNT >= 30 THEN IF 1 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA162CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN 1ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA162CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 1 + 1 IF &CNT = 1 THEN IF 2 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA IF &CNT >= 30 THEN IF 2 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMB169CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMB169CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 2 + 1 IF &CNT = 1 THEN IF 3 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA 1SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA IF &CNT >= 30 THEN IF 3 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA021CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN 1ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA021CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 3 + 1 IF &CNT = 1 THEN IF 4 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA IF &CNT >= 30 THEN IF 4 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA150CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA150CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 4 + 1 IF &CNT = 1 THEN IF 5 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA 1SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA IF &CNT >= 30 THEN IF 5 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA063CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN 1ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA063CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 5 + 1 IF &CNT = 1 THEN IF 6 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA IF &CNT >= 30 THEN IF 6 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA062CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA062CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 6 + 1 IF &CNT = 1 THEN IF 7 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA 1SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA IF &CNT >= 30 THEN IF 7 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA065CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN 1ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA065CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 7 + 1 IF &CNT = 1 THEN IF 8 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA IF &CNT >= 30 THEN IF 8 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA152CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA152CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 8 + 1 IF &CNT = 1 THEN IF 9 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA 1SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA IF &CNT >= 30 THEN IF 9 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA036CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN 1ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA036CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 9 + 1 IF &CNT = 1 THEN IF 10 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA IF &CNT >= 30 THEN IF 10 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA018PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA018PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 10 + 1 IF &CNT = 1 THEN IF 11 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA 1SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA IF &CNT >= 30 THEN IF 11 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA040CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN 1ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA040CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 11 + 1 IF &CNT = 1 THEN IF 12 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA IF &CNT >= 30 THEN IF 12 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA132CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN 1IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA132CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 12 + 1 IF &CNT = 1 THEN IF 13 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM 1A132CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA IF &CNT >= 30 THEN IF 13 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA094CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE 1IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA094CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 13 + 1 IF &CNT = 1 THEN IF 14 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA IF &CNT >= 30 THEN IF 14 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA020CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 1IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA020CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 14 + 1 IF &CNT = 1 THEN IF 15 = 1 THEN 1ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA IF &CNT >= 30 THEN IF 15 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO054PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO 1IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO054PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 15 + 1 IF &CNT = 1 THEN IF 16 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA IF &CNT >= 30 THEN IF 16 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) 1SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO067PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO067PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM 1SET CNT = &CNT + 1 SET CNT = 16 + 1 IF &CNT = 1 THEN IF 17 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA IF &CNT >= 30 THEN IF 17 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO160CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ 1IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO160CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 17 + 1 IF &CNT = 1 THEN IF 18 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA IF &CNT >= 30 THEN IF 18 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL 1END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO008CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = 1SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO008CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 18 + 1 IF &CNT = 1 THEN IF 19 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA IF &CNT >= 30 THEN IF 19 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA801ER READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN 1IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA801ER PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 19 + 1 IF &CNT = 1 THEN IF 20 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER IF &CNT >= 30 THEN IF 20 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ 1SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA106CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN 1DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA106CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 20 + 1 IF &CNT = 1 THEN IF 21 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA IF &CNT >= 30 THEN IF 21 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO058PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN 1IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO058PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 21 + 1 IF &CNT = 1 THEN IF 22 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA IF &CNT >= 30 THEN IF 22 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ 1END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA090CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN 1ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA090CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 22 + 1 IF &CNT = 1 THEN IF 23 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA IF &CNT >= 30 THEN IF 23 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA115CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA115CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 23 + 1 IF &CNT = 1 THEN IF 24 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA IF &CNT >= 30 THEN IF 24 >= 30 THEN 1END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA009PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN 1ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA009PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 24 + 1 IF &CNT = 1 THEN IF 25 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA IF &CNT >= 30 THEN IF 25 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO050CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO050CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 25 + 1 IF &CNT = 1 THEN IF 26 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA SET BPLMEM&I = &STR(&MEMLIST) 1SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA IF &CNT >= 30 THEN IF 26 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA039CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN 1ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA039CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 26 + 1 IF &CNT = 1 THEN IF 27 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA CMA039CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA CMA039CA IF &CNT >= 30 THEN IF 27 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO004PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 1IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO004PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 27 + 1 IF &CNT = 1 THEN IF 28 = 1 THEN 1ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA CMA039CA CMO004PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA CMA039CA CMO004PA IF &CNT >= 30 THEN IF 28 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO026PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN 1DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO026PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 28 + 1 IF &CNT = 1 THEN IF 29 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA CMA039CA CMO004PA CMO026PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA CMA039CA CMO004PA CMO026PA IF &CNT >= 30 THEN IF 29 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL 1END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO001PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = 1SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO001PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 29 + 1 IF &CNT = 1 THEN IF 30 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA CM A132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA CMA039CA CMO004PA CMO026PA CMO001PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM0 = CMA002AA CMA162CA CMB169CA CMA021CA CMA150CA CMA063CA CMA062CA CMA065CA CMA152CA CMA036CA CMA018PA CMA040CA C MA132CA CMA094CA CMA020CA CMO054PA CMO067PA CMO160CA CMO008CA CMA801ER CMA106CA CMO058PA CMA090CA CMA115CA CMA009PA CMO050CA CMA039CA CMO004PA CMO026PA CMO001PA IF &CNT >= 30 THEN IF 30 >= 30 THEN DO DO SET I = &I + 1 SET I = 0 + 1 SET CNT = 0 SET CNT = 0 END END END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO088PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN 1DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO088PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 0 + 1 IF &CNT = 1 THEN IF 1 = 1 THEN SET MEMLIST = &STR(&INST2) SET MEMLIST = CMO088PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA IF &CNT >= 30 THEN IF 1 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ 1END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO066PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO066PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 1 + 1 IF &CNT = 1 THEN IF 2 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA IF &CNT >= 30 THEN IF 2 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO005PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO005PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 2 + 1 IF &CNT = 1 THEN IF 3 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA IF &CNT >= 30 THEN IF 3 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ 1END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA084CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA084CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 3 + 1 IF &CNT = 1 THEN IF 4 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA IF &CNT >= 30 THEN IF 4 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA034CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA034CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 4 + 1 IF &CNT = 1 THEN IF 5 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA IF &CNT >= 30 THEN IF 5 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ 1END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA075CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA075CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 5 + 1 IF &CNT = 1 THEN IF 6 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA IF &CNT >= 30 THEN IF 6 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM E0000841 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM E0000841 PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 6 + 1 IF &CNT = 1 THEN IF 7 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 IF &CNT >= 30 THEN IF 7 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ 1END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM F2010642 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM F2010642 PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 7 + 1 IF &CNT = 1 THEN IF 8 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 IF &CNT >= 30 THEN IF 8 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM F2010654 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM F2010654 PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 8 + 1 IF &CNT = 1 THEN IF 9 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 IF &CNT >= 30 THEN IF 9 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ 1END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO052PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO052PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 9 + 1 IF &CNT = 1 THEN IF 10 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA IF &CNT >= 30 THEN IF 10 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO015PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO015PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 10 + 1 IF &CNT = 1 THEN IF 11 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA IF &CNT >= 30 THEN IF 11 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ 1END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO045PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO045PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 11 + 1 IF &CNT = 1 THEN IF 12 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA IF &CNT >= 30 THEN IF 12 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO072PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO072PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 12 + 1 IF &CNT = 1 THEN IF 13 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA IF &CNT >= 30 THEN IF 13 >= 30 THEN 1END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO041PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN 1ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO041PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 13 + 1 IF &CNT = 1 THEN IF 14 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA IF &CNT >= 30 THEN IF 14 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO176PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO176PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 14 + 1 IF &CNT = 1 THEN IF 15 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA SET BPLMEM&I = &STR(&MEMLIST) 1SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA IF &CNT >= 30 THEN IF 15 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA064CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN 1ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA064CA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 15 + 1 IF &CNT = 1 THEN IF 16 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA IF &CNT >= 30 THEN IF 16 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO043PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN 1IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO043PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 16 + 1 IF &CNT = 1 THEN IF 17 = 1 THEN ELSE ELSE 1SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA IF &CNT >= 30 THEN IF 17 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO033PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN 1ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO033PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 17 + 1 IF &CNT = 1 THEN IF 18 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA IF &CNT >= 30 THEN IF 18 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO025PA 1READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO025PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 18 + 1 1IF &CNT = 1 THEN IF 19 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA IF &CNT >= 30 THEN IF 19 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM E2009014 READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN 1DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM E2009014 PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 19 + 1 IF &CNT = 1 THEN IF 20 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 IF &CNT >= 30 THEN IF 20 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ 1DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMA187CA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMA187CA 1PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 20 + 1 IF &CNT = 1 THEN IF 21 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA IF &CNT >= 30 THEN IF 21 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO112PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN 1DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO112PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 21 + 1 IF &CNT = 1 THEN IF 22 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA IF &CNT >= 30 THEN IF 22 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 1GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO078PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO 1SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO078PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 22 + 1 IF &CNT = 1 THEN IF 23 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA IF &CNT >= 30 THEN IF 23 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO330PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN 1IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO330PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 23 + 1 IF &CNT = 1 THEN IF 24 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA IF &CNT >= 30 THEN IF 24 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ 1END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO301PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE 1IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO301PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 24 + 1 IF &CNT = 1 THEN IF 25 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA CMO301PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA CMO301PA IF &CNT >= 30 THEN IF 25 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO304PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN 1IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO304PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 25 + 1 IF &CNT = 1 THEN IF 26 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA CMO301PA CMO304PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA CMO301PA CMO304PA IF &CNT >= 30 THEN IF 26 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ 1END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO366PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE 1IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO366PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 26 + 1 IF &CNT = 1 THEN IF 27 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA CMO301PA CMO304PA CMO366PA SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA CMO301PA CMO304PA CMO366PA IF &CNT >= 30 THEN IF 27 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = DBRM CMO300PA READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF DBRM = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF DBRM = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF DBRM = REGLIB THEN 1IF &STR(&INST1) ¬= &STR(**) THEN IF DBRM ¬= ** THEN DO DO IF &STR(&INST1) = &STR(INSTALL) THEN IF DBRM = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF DBRM = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF DBRM = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF DBRM = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF DBRM = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF DBRM = PKLIST THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRM) THEN IF DBRM = DBRM THEN DO DO SET NOBIND = &Z SET NOBIND = SET TEMPDBRM = &STR(&INSTCNTL) SET TEMPDBRM = DBRM CMO300PA PUTFILE TEMPDBRM PUTFILE TEMPDBRM SET CNT = &CNT + 1 SET CNT = 27 + 1 IF &CNT = 1 THEN IF 28 = 1 THEN ELSE ELSE SET MEMLIST = &STR(&MEMLIST &INST2) SET MEMLIST = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA CM O072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA CMO301PA CMO304PA CMO366PA CMO300PA 1SET BPLMEM&I = &STR(&MEMLIST) SET BPLMEM1 = CMO088PA CMO066PA CMO005PA CMA084CA CMA034CA CMA075CA E0000841 F2010642 F2010654 CMO052PA CMO015PA CMO045PA C MO072PA CMO041PA CMO176PA CMA064CA CMO043PA CMO033PA CMO025PA E2009014 CMA187CA CMO112PA CMO078PA CMO330PA CMO301PA CMO304PA CMO366PA CMO300PA IF &CNT >= 30 THEN IF 28 >= 30 THEN END /* &STR(DBRM) */ END /* &STR(DBRM) */ END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = ** USING PACKAGE LIST FROM: ** READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF ** = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF ** = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF ** = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF ** ¬= ** THEN SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (0 = 0) SET SYSDVAL = &INSTCNTL SET SYSDVAL = PKLIST RTCOLLID.* READDVAL INST1 INST2 INST3 INST4 INST5 READDVAL INST1 INST2 INST3 INST4 INST5 IF &STR(&INST1) = &STR(SYSLIBC) THEN IF PKLIST = SYSLIBC THEN IF &STR(&INST1) = &STR(APPLOADC) THEN IF PKLIST = APPLOADC THEN IF &STR(&INST1) = &STR(REGLIB) THEN IF PKLIST = REGLIB THEN IF &STR(&INST1) ¬= &STR(**) THEN IF PKLIST ¬= ** THEN DO DO 1IF &STR(&INST1) = &STR(INSTALL) THEN IF PKLIST = INSTALL THEN IF &STR(&INST1) = &STR(LINKEDIT) THEN IF PKLIST = LINKEDIT THEN IF &STR(&INST1) = &STR(BINDCNTL) THEN IF PKLIST = BINDCNTL THEN IF &PROCESS = &STR(LKED) THEN IF BIND = LKED THEN IF &STR(&DBM) = &STR(DB2) THEN IF DB2 = DB2 THEN DO /* 15112982 */ DO /* 15112982 */ IF &PROCESS = &STR(BIND) THEN IF BIND = BIND THEN DO DO IF &STR(&INST1) = &STR(BINDCNTL) THEN IF PKLIST = BINDCNTL THEN ELSE ELSE IF &STR(&INST1) = &STR(BINDISOL) THEN IF PKLIST = BINDISOL THEN ELSE ELSE IF &STR(&INST1) = &STR(DBRMLIB) THEN IF PKLIST = DBRMLIB THEN ELSE ELSE IF &STR(&INST1) = &STR(PKLIST) THEN IF PKLIST = PKLIST THEN DO DO SET NOBIND = &Z SET NOBIND = IF &STR(&BPLLIST) = &Z THEN IF = THEN SET BPLLIST = &STR(&INST2) SET BPLLIST = RTCOLLID.* END END END /* &STR(BIND) */ END /* &STR(BIND) */ END /* &STR(DB2) */ END /* &STR(DB2) */ END /* &STR(**) */ END /* &STR(**) */ SET READCC = 0 SET READCC = 0 GETFILE INSTCNTL GETFILE INSTCNTL DO DO SET READCC = &LASTCC SET READCC = 400 RETURN RETURN 1END /* READCC */ END /* READCC */ DO WHILE (&READCC = 0) DO WHILE (400 = 0) CLOSFILE INSTCNTL CLOSFILE INSTCNTL CLOSFILE TEMPLKED CLOSFILE TEMPLKED CLOSFILE TEMPDBRM CLOSFILE TEMPDBRM FREE FI(INSTCNTL) FREE FI(INSTCNTL) SET FREECNTL = NO SET FREECNTL = NO ERROR OFF ERROR OFF IF &STR(&DBM) = &STR(DATACOM) THEN IF DB2 = DATACOM THEN ISPEXEC VGET (LINKFLAG) ASIS ISPEXEC VGET (LINKFLAG) ASIS IF &LINKFLAG = &STR(N) THEN IF Y = N THEN CONTROL NOMSG CONTROL NOMSG ISPEXEC VGET (TICLLIB1) ASIS /* USER LOAD LIB */ ISPEXEC VGET (TICLLIB1) ASIS /* USER LOAD LIB */ SET SYSDVAL = &TICLLIB1 SET SYSDVAL = 'CJS.CARDS.LOADLIB.CG86' READDVAL &TICLLIB1 READDVAL &TICLLIB1 %TICSDIS CMD(MSG) OBJ(&STR(&LOADNAME)) MSG('ALLOCATING LINK-EDIT FILES') TEMP(YES) %TICSDIS CMD(MSG) OBJ(JOBALL) MSG('ALLOCATING LINK-EDIT FILES') TEMP(YES) IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 6 >= 30 THEN 1ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = JOBALL DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 1SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL 1END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 26 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = ALLOCATING LINK-EDIT FILES DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 26 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END 1DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 27 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 28 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 29 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 30 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 31 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 32 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 33 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 34 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 35 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 36 < 48 1SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES 1END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ALLOCATING LINK-EDIT FILES END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE JOBALL ALLOCATING LINK-EDIT FILES JOBALL ALLOCATING LINK-EDIT FILES EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS /*NBG 88046*/ ISPEXEC VGET (TIUPREF TIUSUFX TIUDASD) ASIS /*NBG 88046*/ IF &TIUDASD = &STR() THEN IF SYSDA = THEN ELSE ELSE SET UNIT = &STR(UNIT(&TIUDASD)) /*NBG 88046*/ SET UNIT = UNIT(SYSDA) /*NBG 88046*/ ALLOC FI(SYSLMOD) DA('&TICLLIB1') REUSE SHR ALLOC FI(SYSLMOD) DA('CJS.CARDS.LOADLIB.CG86') REUSE SHR SET FREELMOD = YES SET FREELMOD = YES SET RC = &LASTCC SET RC = 0 IF &RC ¬= 0 THEN IF 0 ¬= 0 THEN ALLOC FI(SYSLIB) DA(&SYSLIB) SHR REUSE ALLOC FI(SYSLIB) DA( 'SYS7.DB2ALNK.SDSNLINK' 'SYS1.SCEELKED' 'SYS1.AIB.LINKLIB' 'SYS1.SCEELKED' 'SYS7.DB2T.SDSNLOAD' 'PV.TES T.CAGEN.CEHBPLD0' 'CJ.EXTERN.LE.NCALLIB' 'SGS.SERV.NCALLIB.CG86' 'SGS.SERV.LOADLIB.CG86' 'TA.LE.LOADLIB' 'TA.LOADLIB' 'CI.TE ST.SRM.HSSLOAD' 'PV.TEST.TBASE.LOAD' 'PV.TEST.CMNCJ02.#000004.LCX') SHR REUSE SET RC = &LASTCC SET RC = 12 IF &RC ¬= 0 THEN IF 12 ¬= 0 THEN DO DO SET ERRMSG = &STR(SYSLIB ALLOCATE ERROR) SET ERRMSG = SYSLIB ALLOCATE ERROR GOTO ERROR GOTO ERROR SET STATUS=&STR(INSTALLATION FAILED) SET STATUS=INSTALLATION FAILED ISPEXEC VPUT STATUS SHARED 1ISPEXEC VPUT STATUS SHARED SET ERRMSG = &STR(&ERRMSG, RC=&RC) SET ERRMSG = SYSLIB ALLOCATE ERROR, RC=12 %TICSDIS CMD(MSG) OBJ(&STR(&LOADNAME)) TEMP(NO) MSG('&ERRMSG') %TICSDIS CMD(MSG) OBJ(JOBALL) TEMP(NO) MSG('SYSLIB ALLOCATE ERROR, RC=12') IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 6 >= 30 THEN ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = JOBALL DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) 1SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END 1END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 1DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 28 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 28 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 29 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 30 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 31 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 32 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 33 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) 1SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 34 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 35 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 36 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END 1END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = SYSLIB ALLOCATE ERROR, RC=12 END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE JOBALL SYSLIB ALLOCATE ERROR, RC=12 JOBALL SYSLIB ALLOCATE ERROR, RC=12 EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ %TICSDIS CMD(MSG) OBJ(&STR(&LDMODNM)) ALARM(YES) TEMP(NO) MSG('************* INSTALLATION ERROR *************') %TICSDIS CMD(MSG) OBJ(JOBALL) ALARM(YES) TEMP(NO) MSG('************* INSTALLATION ERROR *************') IF &ALARM ¬= YES THEN IF YES ¬= YES THEN ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN 1DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 6 >= 30 THEN ELSE ELSE DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = JOBALL DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END 1DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 1SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = JOBALL END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 48 >= 48 THEN SET MESG = &SUBSTR(1:48,&NRSTR(&MSG)) SET MESG = ************* INSTALLATION ERROR ************* WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE JOBALL ************* INSTALLATION ERROR ************* 1JOBALL ************* INSTALLATION ERROR ************* EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ %TICSDIS CMD(CLOSE) %TICSDIS CMD(CLOSE) IF &ALARM ¬= YES THEN IF NO ¬= YES THEN SET ALARM = NO /*LKA87315*/ SET ALARM = NO /*LKA87315*/ ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF CLOSE = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF CLOSE = MSG THEN IF &CMD = &NRSTR(CLOSE) THEN IF CLOSE = CLOSE THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ WRITE WRITE WRITE &STR(****************************************************) WRITE **************************************************** **************************************************** WRITE &STR(** BACKGROUND UTILITY ENDED **) WRITE ** BACKGROUND UTILITY ENDED ** ** BACKGROUND UTILITY ENDED ** WRITE &STR(** DATE: &SYSDATE TIME: &SYSTIME **) WRITE ** DATE: 04/26/23 TIME: 23:40:49 ** ** DATE: 04/26/23 TIME: 23:40:49 ** WRITE &STR(****************************************************) WRITE **************************************************** **************************************************** EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ ISPEXEC SETMSG MSG(TIRM001) ISPEXEC SETMSG MSG(TIRM001) IF &DATATYPE(&RC) ¬= NUM THEN IF NUM ¬= NUM THEN IF &FREECNTL = YES THEN IF NO = YES THEN IF &FREELMOD = YES THEN IF YES = YES THEN FREE FI(SYSLMOD) FREE FI(SYSLMOD) 1IF &FREELIB = YES THEN IF = YES THEN IF &FREEALIB = YES THEN IF = YES THEN IF &FREEUT1 = YES THEN IF = YES THEN IF &FREELIN = YES THEN IF = YES THEN IF &FREEDBRM = YES THEN IF YES = YES THEN FREE FI(TEMPDBRM) FREE FI(TEMPDBRM) SET CLSTNAME = &STR(#### LEAVING TICINSTX CLIST ####) SET CLSTNAME = #### LEAVING TICINSTX CLIST #### EXIT CODE(&RC) EXIT CODE(12) SET RC = &LASTCC SET RC = 12 IF (&RC > 4) THEN IF (12 > 4) THEN DO DO GOTO ENDUP GOTO ENDUP SET CLSTNAME = &STR(#### LEAVING TICINST CLIST ####) SET CLSTNAME = #### LEAVING TICINST CLIST #### EXIT CODE(&RC) EXIT CODE(12) SET RC = &LASTCC SET RC = 12 %TICSDIS CMD(MSG) OBJ('') ALARM(YES) MSG('***** INSTALLATION ENDED *****') %TICSDIS CMD(MSG) OBJ('') ALARM(YES) MSG('***** INSTALLATION ENDED *****') IF &ALARM ¬= YES THEN IF YES ¬= YES THEN ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF MSG = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF MSG = MSG THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ IF &LENGTH(&NRSTR(&OBJ)) >= 30 THEN IF 0 >= 30 THEN ELSE ELSE 1DO DO SET ITEM = &NRSTR(&OBJ) SET ITEM = DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 0 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 1 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 2 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 3 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 4 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 5 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 6 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 7 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 8 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = 1END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 9 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 10 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 11 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 12 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 13 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 14 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 15 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 16 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 17 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END 1DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 18 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 19 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 20 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 21 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 22 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 23 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 24 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 25 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 26 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 27 < 30 1SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 28 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 29 < 30 SET ITEM = &NRSTR(&ITEM)&NRSTR( ) SET ITEM = END END DO WHILE &LENGTH(&NRSTR(&ITEM)) < 30 DO WHILE 30 < 30 END END IF &LENGTH(&NRSTR(&MSG)) >= 48 THEN IF 36 >= 48 THEN ELSE ELSE DO DO SET MESG = &NRSTR(&MSG) SET MESG = ***** INSTALLATION ENDED ***** DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 36 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 37 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 38 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 39 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 40 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** 1END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 41 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 42 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 43 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 44 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 45 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 46 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 47 < 48 SET MESG = &NRSTR(&MESG)&NRSTR( ) SET MESG = ***** INSTALLATION ENDED ***** END END DO WHILE &LENGTH(&NRSTR(&MESG)) < 48 DO WHILE 48 < 48 END END WRITE &NRSTR(&ITEM) &NRSTR(&MESG) WRITE ***** INSTALLATION ENDED ***** ***** INSTALLATION ENDED ***** EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ END END %TICSDIS CMD(CLOSE) OBJ('') ALARM(YES) MSG('****** GENERATION ENDED ******') 1%TICSDIS CMD(CLOSE) OBJ('') ALARM(YES) MSG('****** GENERATION ENDED ******') IF &ALARM ¬= YES THEN IF YES ¬= YES THEN ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (MODLNAME TISNAME LDMODNM) SHARED ISPEXEC VGET (ZENVIR) ISPEXEC VGET (ZENVIR) IF &SUBSTR(17:21,&NRSTR(&ZENVIR) ) = BATCH THEN IF BATCH = BATCH THEN SET BATCH = YES /*LKA87351*/ SET BATCH = YES /*LKA87351*/ IF &CMD = &NRSTR(OPEN) THEN IF CLOSE = OPEN THEN IF &CMD = &NRSTR(MSG) THEN IF CLOSE = MSG THEN IF &CMD = &NRSTR(CLOSE) THEN IF CLOSE = CLOSE THEN DO DO IF &BATCH = YES THEN IF YES = YES THEN DO /*LKA87351*/ DO /*LKA87351*/ WRITE WRITE WRITE &STR(****************************************************) WRITE **************************************************** **************************************************** WRITE &STR(** BACKGROUND UTILITY ENDED **) WRITE ** BACKGROUND UTILITY ENDED ** ** BACKGROUND UTILITY ENDED ** WRITE &STR(** DATE: &SYSDATE TIME: &SYSTIME **) WRITE ** DATE: 04/26/23 TIME: 23:40:49 ** ** DATE: 04/26/23 TIME: 23:40:49 ** WRITE &STR(****************************************************) WRITE **************************************************** **************************************************** EXIT CODE(0) /*LKA87351*/ EXIT CODE(0) /*LKA87351*/ ISPEXEC VGET (TIUPREF) SHARED ISPEXEC VGET (TIUPREF) SHARED WRITE WRITE WRITE DATASET CLEANUP STARTED... WRITE DATASET CLEANUP STARTED... DATASET CLEANUP STARTED... IF &SYSDSN('&TIUPREF..IEF.CONFIG') = OK THEN IF OK = OK THEN DEL '&TIUPREF..IEF.CONFIG' DEL 'IT04629.BAT.D6234045.IEF.CONFIG' ENTRY (A) IT04629.BAT.D6234045.IEF.CONFIG DELETED IF &SYSDSN('&TIUPREF..TICTEMP1.TEMPDBRM') = OK THEN IF DATASET NOT FOUND = OK THEN IF &SYSDSN('&TIUPREF..TICTEMP1.TEMPLKED') = OK THEN 1IF DATASET NOT FOUND = OK THEN WRITE DATASET CLEANUP COMPLETE WRITE DATASET CLEANUP COMPLETE DATASET CLEANUP COMPLETE OPENFILE TIBTCHRC OUTPUT OPENFILE TIBTCHRC OUTPUT SET TIBTCHRC = &RC SET TIBTCHRC = 12 PUTFILE TIBTCHRC PUTFILE TIBTCHRC CLOSFILE TIBTCHRC CLOSFILE TIBTCHRC EXIT CODE(&RC) EXIT CODE(12) ISPD117 The initially invoked CLIST ended with a return code = 12 IT04629.CRSSBOS.JOB02422.D0000116.? was preallocated (no free was done). READY %TICGRETC TIUDEBUG(C) LISTDSI TIBTCHRC FILE LISTDSI TIBTCHRC FILE SET RC=&LASTCC SET RC=0 SET BATRC=&LASTCC SET BATRC=0 IF &RC = 0 THEN IF 0 = 0 THEN DO DO OPENFILE TIBTCHRC INPUT OPENFILE TIBTCHRC INPUT GETFILE TIBTCHRC GETFILE TIBTCHRC SET BATRC = &TIBTCHRC SET BATRC = 12 CLOSFILE TIBTCHRC CLOSFILE TIBTCHRC FREE DD(TIBTCHRC) FREE DD(TIBTCHRC) DELETE ('&SYSDSNAME') DELETE ('IT04629.BAT.D6234045.IEF.BATCHRC') ENTRY (A) IT04629.BAT.D6234045.IEF.BATCHRC DELETED END END EXIT CODE(&BATRC) EXIT CODE(12 ) READY END