|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 20736 (0x5100)
Notes: MEMBER_P, Member_Text
Names: »MIGRATE «
└─⟦7f4ab32d0⟧ Bits:30009823 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 11 Created 19950301 Level 01 Seq 001 of 011
└─⟦820ffa6c4⟧
└─⟦this⟧ ».MIGRATE «
// LIBRARY NAME-#MYLIB * * SET UP THE MESSAGE MEMBERS * // MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,LIBRARY-#MYLIB // MEMBER USER2-#MY#2MSG,PROGRAM2-#MY#2MSG,LIBRARY-#MYLIB * * INITIALIZE THE SYSTEM LOCAL DATA AREA * * PUT MIGRATE INTO THE FIRST 8 BYTES OF LDA // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'MIGRATE',BLANK-8 * PUT THE USER ID IN THE LDA // LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8 * PUT THE DEFAULT AUDIT FILE NAME IN THE LDA // LOCAL AREA-SYSTEM,OFFSET-117,DATA-'$MYAUD',BLANK-8 * * ERROR CHECK 1ST PARM AND ROUTE TO PROPER ROUTINE * // IF ?1?/EXPORT GOTO EXPORT // IF ?1?/CREATE GOTO CREATE // IF ?1?/SELECT GOTO SELECT // IF ?1?/ANALYZE GOTO ANALYZE // IF ?1?/SAVE36 GOTO SAVE36 // IF ?1?/REPORT GOTO REPORTS // IF ?1?/ GOTO MENU * * PARM 1 IS BAD, ISSUE ERROR MESSAGE * BADPARM MIGRATE,01 // RETURN * * IF PARM 1 IS BLANK, PUT UP MAIN MENU SCREEN * // TAG MENU // LIBRARY NAME-#MYLIB,SESSION-YES // IFF DSPLY-IGC MENU MYM001 // IF DSPLY-IGC MENU MYD001 // RETURN * *********************************************************************** * MIGRATE CREATE * *********************************************************************** * // TAG CREATE * * MAKE SURE USER ENTERED A SELECTION FILE NAME // IF ?2?/ #ERR 1512,3,MIGR * * PUT SELECTION FILE NAME IS THE LDA // LOCAL AREA-SYSTEM,OFFSET-101,DATA-'?2?',BLANK-8 * * MAKE SURE THE SELECTION FILE DOES NOT START WITH $MY // IF ?L'101,3'?=$MY #ERR 1501,3,MIGR,?2? * * CHECK IF SELECTION FILE EXISTS, IT SHOULD NOT // IF DATAF1-?2? #ERR 1510,3,MIGR,?2? * * USE BLDFILE PROC TO CREATE SELECTION FILE * BLDFILE ?2?,I,R,?4'80'?,32,,,1,9,,DUPKEY,80 * * PUT MIGRATION RUN DESCRIPTION IN LDA // LOCAL AREA-SYSTEM,OFFSET-125,DATA-'?3?',BLANK-40 * * SET UP #MYCR OPCODE (MYLDCUOP) TO CREATE A NEW SELECTION FILE * MYLDCUOP = MYLDCRET // LOCAL AREA-SYSTEM,OFFSET-239,DATA-'1' * * CALL SELECTION FILE UPDATE PROGRAM TO WRITE HEADER RECORDS // LOAD #MYCR,#MYLIB // FILE NAME-SELECT,LABEL-?2?,DISP-OLD // RUN // RETURN * *********************************************************************** * MIGRATE SELECT * *********************************************************************** * // TAG SELECT * // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'MIGRATE',BLANK-512 // LOCAL AREA-SYSTEM,OFFSET-117,DATA-'$MYAUD',BLANK-8 // LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8 * * MAKE SURE USER ENTERED A SELECTION FILE NAME // IF ?8?/ #ERR 1512,3,MIGR * * PUT SELECTION FILE NAME IS THE LDA // LOCAL AREA-SYSTEM,OFFSET-101,DATA-'?8?',BLANK-8 * * MAKE SURE THE SELECTION FILE DOES NOT START WITH $MY // IF ?L'101,3'?=$MY #ERR 1501,3,MIGR,?8? * * CHECK IF SELECTION FILE EXISTS, IT SHOULD // IFF DATAF1-?8? #ERR 1511,3,MIGR,?8? * * ERROR CHECK PARM 2 * // IFF ?2?/ IFF ?2?/ALL IFF ?2?/LIBRARY IFF ?2?/FILE IFF ?2?/USER GOTO SL2MORE1 // GOTO SLCHK5 * // TAG SL2MORE1 // IFF ?2?/FOLDER IFF ?2?/SPELDICT IFF ?2?/DATADICT IFF ?2?/NRD GOTO SL2MORE2 // GOTO SLCHK5 * // TAG SL2MORE2 // IFF ?2?/MASTER BADPARM SELECT,2 * * ERROR CHECK PARM 5 * // TAG SLCHK5 // IFF ?5?/ IFF ?5?/DATA IFF ?5?/FCT IFF ?5?/STREAM GOTO SL5MORE // GOTO SLCOMBO * // TAG SL5MORE // IFF ?5?/UNFORMAT IFF ?5?/BGUGDIF IFF ?5?/APF BADPARM SELECT,5 * * ERROR CHECK FOR ILLEGAL COMBINATIONS * // TAG SLCOMBO // IFF ?3?='' IF ?2?=NRD #ERR 1520,3,MIGR // IFF ?3?='' IF ?2?=MASTER #ERR 1521,3,MIGR // IFF ?4?='' IFF ?2?=FILE #ERR 1525,3,MIGR // IFF ?5?='' IFF ?2?=FILE #ERR 1526,3,MIGR // IFF ?6?='' IFF ?2?=LIBRARY #ERR 1527,3,MIGR // IFF ?7?='' IFF ?2?=LIBRARY #ERR 1528,3,MIGR * * IF PARMS WERE BLANK, DEFAULT THEM * // IF ?2?='' EVALUATE P2=LIBRARY // IF ?7?='' EVALUATE P7=COMP * * PUT PARMS IN THE LDA * * SELECTION TYPE // LOCAL AREA-SYSTEM,OFFSET-213,BLANK-1 // IF ?2?=ALL LOCAL AREA-SYSTEM,OFFSET-213,DATA-'A' // IF ?2?=LIBRARY LOCAL AREA-SYSTEM,OFFSET-213,DATA-'L' // IF ?2?=FILE LOCAL AREA-SYSTEM,OFFSET-213,DATA-'F' // IF ?2?=USER LOCAL AREA-SYSTEM,OFFSET-213,DATA-'U' // IF ?2?=FOLDER LOCAL AREA-SYSTEM,OFFSET-213,DATA-'W' // IF ?2?=SPELDICT LOCAL AREA-SYSTEM,OFFSET-213,DATA-'P' // IF ?2?=DATADICT LOCAL AREA-SYSTEM,OFFSET-213,DATA-'D' // IF ?2?=NRD LOCAL AREA-SYSTEM,OFFSET-213,DATA-'N' // IF ?2?=MASTER LOCAL AREA-SYSTEM,OFFSET-213,DATA-'M' * * ITEM NAME // LOCAL AREA-SYSTEM,OFFSET-214,DATA-'?3?',BLANK-8 * * DATE // LOCAL AREA-SYSTEM,OFFSET-222,DATA-'?4?',BLANK-6 * * FILE TYPE // LOCAL AREA-SYSTEM,OFFSET-228,BLANK-1 // IF ?5?=DATA LOCAL AREA-SYSTEM,OFFSET-228,DATA-'1' // IF ?5?=FCT LOCAL AREA-SYSTEM,OFFSET-228,DATA-'2' // IF ?5?=STREAM LOCAL AREA-SYSTEM,OFFSET-228,DATA-'3' // IF ?5?=UNFORMAT LOCAL AREA-SYSTEM,OFFSET-228,DATA-'4' // IF ?5?=BGUGDIF LOCAL AREA-SYSTEM,OFFSET-228,DATA-'5' // IF ?5?=APF LOCAL AREA-SYSTEM,OFFSET-228,DATA-'6' * * LOADLIB // LOCAL AREA-SYSTEM,OFFSET-229,DATA-'?6?',BLANK-8 * * COMP/NOCOMP // IF ?7?=COMP LOCAL AREA-SYSTEM,OFFSET-237,DATA-'1',BLANK-1 // ELSE LOCAL AREA-SYSTEM,OFFSET-237,DATA-'2',BLANK-1 * * SELECTION FILE NAME // LOCAL AREA-SYSTEM,OFFSET-101,DATA-'?8?',BLANK-8 * // IF ?2?=ALL GOTO SALL * * SET UP #MYCR OPCODE (MYLDCUOP) TO ADD A NEW RECORD TO SELECTION FILE * MYLDCUOP = MYLDUPDT // LOCAL AREA-SYSTEM,OFFSET-239,DATA-'2' * * CALL SELECTION FILE UPDATE PROGRAM * // LOAD #MYCR,#MYLIB // FILE NAME-SELECT,LABEL-?8?,DISP-OLD // RUN // RETURN * // TAG SALL * * CALL SELECT ALL PROGRAM * // LOAD #MYSA,#MYLIB // RUN // RETURN * *********************************************************************** * MIGRATE ANALYZE * *********************************************************************** * // TAG ANALYZE * * ERROR CHECK PARM 2 * // IFF ?2?/ IFF ?2?/LISTALL IFF ?2?/SYSTEM IFF ?2?/LIBRARY GOTO AN2MORE // GOTO ANCHK4 * // TAG AN2MORE // IFF ?2?/SECURITY IFF ?2?/DATADICT IFF ?2?/MASTER BADPARM ANALYZE,2 * * ERROR CHECK PARM 4 * // TAG ANCHK4 // IFF ?4?/ IFF ?4?/ALL IFF ?4?/RPG IFF ?4?/OCL GOTO AN4MORE // GOTO ANCOMBO * // TAG AN4MORE // IFF ?4?/SOURCE IFF ?4?/LIBRCNF IFF ?4?/QUERY BADPARM ANALYZE,4 * * ERROR CHECK COMBINATIONS OF PARMS * // TAG ANCOMBO // IFF ?3?='' IF ?2?=LISTALL #ERR 1530,3,MIGR // IFF ?3?='' IF ?2?=SYSTEM #ERR 1530,3,MIGR // IFF ?3?='' IF ?2?=SECURITY #ERR 1530,3,MIGR // IFF ?3?='' IF ?2?=MASTER #ERR 1530,3,MIGR // IFF ?3?='' IFF ?2?=LIBRARY IFF ?2?=DATADICT BADPARM ANALYSIS,3 // IF ?2?=LIBRARY IF ?3?/ BADPARM ANALYSIS,3 // IF ?2?=DATADICT IF ?3?/ BADPARM ANALYSIS,3 // IFF ?4?='' IFF ?2?=LIBRARY #ERR 1531,3,MIGR * * DEFAULT THE BLANK PARMS * // IF ?2?='' EVALUATE P2=LISTALL // IF ?2?=LIBRARY IF ?4?/ EVALUATE P4=ALL * * SAVE AUDIT FILE NAME IN LDA * // IFF ?5?/ LOCAL AREA-SYSTEM,OFFSET-117,DATA-'?5?',BLANK-8 * * CALL THE COMPONENT ANALYSES REQUESTED * * LISTALL // IF ?2?/LISTALL INCLUDE MYREPLST // IF ?2?/LISTALL RETURN * * SYSTEM // IF ?2?/SYSTEM INCLUDE ANLZ001 // IF ?2?/SYSTEM RETURN * * LIBRARY * RPG // IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZRPG ?3?,?5? // IF ?2?/LIBRARY IF ?4?=RPG INCLUDE ANLZRPG ?3?,?5? * OCL // IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZOCL ?3?,?5? // IF ?2?/LIBRARY IF ?4?=OCL INCLUDE ANLZOCL ?3?,?5? * MISSING SOURCE // IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZSRC ?3?,?5? // IF ?2?/LIBRARY IF ?4?=SOURCE INCLUDE ANLZSRC ?3?,?5? * QUERY // IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZQRY ?3?,?5? // IF ?2?/LIBRARY IF ?4?=QUERY INCLUDE ANLZQRY ?3?,?5? * CONFIG // IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZCNFG CNFGMBRS,?3?,?5? // IF ?2?/LIBRARY IF ?4?=LIBRCNF INCLUDE ANLZCNFG CNFGMBRS,?3?,?5? // IF ?2?/LIBRARY RETURN * * SECURITY // IF ?2?/SECURITY INCLUDE ANLZSECP ?5? // IF ?2?/SECURITY RETURN * * MASTER CONFIG // IF ?2?/MASTER INCLUDE ANLZCNFG MASTER,,?5? // IF ?2?/MASTER INCLUDE ANLZCNFG CNFGFILE,,?5? // IF ?2?/MASTER RETURN * * DATADICT // IF ?2?/DATADICT INCLUDE ANLZIDDP ?3?,?5? // IF ?2?/DATADICT RETURN * // RETURN * *********************************************************************** * MIGRATE SAVE36 * *********************************************************************** * // TAG SAVE36 * * ERROR CHECK THE PARMS * * IF NO MEDIA SPECIFIED DEFAULT TO DISKETTE // IF ?2?/ EVALUATE P2=DISKETTE * * ERROR CHECK MIGRATION MEDIA // IFF ?2?/DISKETTE IFF ?2?/TAPE IFF ?2?/DISK BADPARM EXPORT,2 * * MAKE SURE VOLUME ID IS FILLED IN IF NOT DISK // IFF ?2?=DISK IF ?3?/ BADPARM EXPORT,3 // IF ?2?=DISK IFF ?3?='' BADPARM EXPORT,3 * * FILL IN DEFAULT LOCATION IF NOT SPECIFIED // IF ?2?/DISKETTE IF ?4?='' EVALUATE P4=S1 // IF ?2?/TAPE IF ?4?='' EVALUATE P4=T1 // IF ?2?/DISK IF ?4?='' EVALUATE P4=A1 * * ERROR CHECK DISKETTE LOCATION // IF ?2?=DISKETTE + IFF ?4?=S1 IFF ?4?=S2 IFF ?4?=S3 + IFF ?4?=M1 IFF ?4?=M1.01 IFF ?4?=M1.02 IFF ?4?=M1.03 + IFF ?4?=M1.04 IFF ?4?=M1.05 IFF ?4?=M1.06 IFF ?4?=M1.07 + IFF ?4?=M1.08 IFF ?4?=M1.09 IFF ?4?=M1.10 + IFF ?4?=M2 IFF ?4?=M2.01 IFF ?4?=M2.02 IFF ?4?=M2.03 + IFF ?4?=M2.04 IFF ?4?=M2.05 IFF ?4?=M2.06 IFF ?4?=M2.07 + IFF ?4?=M2.08 IFF ?4?=M2.09 IFF ?4?=M2.10 + BADPARM EXPORT,4 * * ERROR CHECK TAPE LOCATION // IF ?2?=TAPE + IFF ?4?=T1 IFF ?4?=T2 IFF ?4?=TC + BADPARM EXPORT,4 * * ERROR CHECK DISK LOCATION // IF ?2?=DISK + IFF ?4?=A1 IFF ?4?=A2 IFF ?4?=A3 IFF ?4?=A4 + BADPARM EXPORT,4 * * ERROR CHECK AUTO/NOAUTO FLAG // IFF ?2?=DISK IF ?5?='' EVALUATE P5=AUTO // IF ?2?=DISK IFF ?5?='' BADPARM EXPORT,5 // IFF ?2?=DISK IFF ?4?=TC IFF ?5?/AUTO IFF ?5?/NOAUTO + BADPARM EXPORT,5 * * ENSURE TAPE PARAMETERS ARE FILLED IN // IF ?2?=TAPE IF ?6?='' EVALUATE P6=REWIND // IF ?2?=TAPE IFF ?6?=REWIND IFF ?6?=LEAVE IFF ?6?=UNLOAD + BADPARM EXPORT,6 // IFF ?2?=TAPE IFF ?6?='' BADPARM EXPORT,6 * // IF ?2?=TAPE IF ?7?='' BADPARM EXPORT,7 // IFF ?2?=TAPE IFF ?7?='' BADPARM EXPORT,7 * * ERROR CHECK SECURITY FLAG // IF ?8?='' EVALUATE P8=SECURE // IFF ?8?/SECURE IFF ?8?/NOSECURE BADPARM EXPORT,8 * * DEFAULT AS/400 LIBRARY NAME TO QS36F IF NOT FILLED IN // IF ?9?='' EVALUATE P9=QS36F * * MAKE SURE SELECTION FILE NAME IS FILLED IN // IF ?10?='' BADPARM EXPORT,10 * * DEFAULT AUDIT FILE NAME TO $MYAUD IF NOT FILLED IN // IF ?11?='' EVALUATE P11=$MYAUD * * ERROR CHECK COMMUNICATIONS PROCEDURE PARAMETERS // IF ?2?=DISK IF ?12?='' BADPARM EXPORT,12 // IF ?2?=DISK IF ?13?='' EVALUATE P13=#LIBRARY * * ERROR CHECK DBCS FLAG // IF ?14?='' EVALUATE P14=SBCS // IFF ?14?=SBCS IFF ?14?=DBCS BADPARM EXPORT,14 * CHANGE PARAMETER 14 TO MATCH THE LDA N=SBCS AND Y=DBCS * // IF ?14?=SBCS EVALUATE P14=N // IF ?14?=DBCS EVALUATE P14=Y * *********************************************************************** * ENTRY POINT FOR INTERACTIVE SAVE (SKIPS ERROR CHECKING SINCE * * SAVE36 PROC ALREADY DID IT * *********************************************************************** * // TAG EXPORT * * DELETE THE TAPE SELECTION FILE IF IT EXISTS // IF DATAF1-$MYMIGR DELETE $MYMIGR,F1 * * DELETE ACTION FILE IF IT EXISTS // IF DATAF1-$MYACT DELETE $MYACT,F1 * * DELETE END FILE IF IT EXISTS // IF DATAF1-$MYEND DELETE $MYEND,F1 * * MAKE THE ACTION FILE 80 RECORDS BIGGER THAN THE SELECTION FILE // EVALUATE P59,8=?F'S,?10?'?+80 * * USE BLDFILE PROC TO CREATE ACTION FILE * BLDFILE $MYACT,I,R,?59?,32,,,1,9,,DUPKEY,80 * * IF THE MEDIA IS TAPE, THEN CREATE THE TAPE SELECTION FILE * // IF ?2?=TAPE BLDFILE $MYMIGR,I,R,?59?,15,,,1,14,DFILE,,40 * * USE BLDFILE PROC TO CREATE ENDING FILE * BLDFILE $MYEND,S,R,1,1 * * ALLOCATE THE ACTION FILE OUTSIDE A LOAD-RUN TO KEEP IT ALLOCATED * // FILE NAME-$MYACT,DISP-SHRMR * * SET UP THE LDA WITH THE PARMS * * MEDIA TYPE // LOCAL AREA-SYSTEM,OFFSET-293,BLANK-1 // IF ?2?=DISKETTE LOCAL AREA-SYSTEM,OFFSET-293,DATA-'1' // IF ?2?=TAPE LOCAL AREA-SYSTEM,OFFSET-293,DATA-'2' // IF ?2?=DISK LOCAL AREA-SYSTEM,OFFSET-293,DATA-'3' * * VOLID // LOCAL AREA-SYSTEM,OFFSET-294,DATA-'?3?',BLANK-6 * * LOCATION // LOCAL AREA-SYSTEM,OFFSET-300,DATA-'?4?',BLANK-5 * * AUTO/NOAUTO // IF ?5?=AUTO LOCAL AREA-SYSTEM,OFFSET-305,DATA-'1',BLANK-1 // ELSE LOCAL AREA-SYSTEM,OFFSET-305,DATA-'2',BLANK-1 * * USER PROC AND LIBRARY // LOCAL AREA-SYSTEM,OFFSET-421,BLANK-8,DATA-'?12?' // LOCAL AREA-SYSTEM,OFFSET-429,BLANK-8,DATA-'?13?' * * SECURE/NOSECURE // IF ?8?=SECURE LOCAL AREA-SYSTEM,OFFSET-308,DATA-'1',BLANK-1 // ELSE LOCAL AREA-SYSTEM,OFFSET-308,DATA-'2',BLANK-1 * * TARGET LIBRARY // LOCAL AREA-SYSTEM,OFFSET-317,DATA-'?9?',BLANK-10 * * DBCS INDICATOR // LOCAL AREA-SYSTEM,OFFSET-343,DATA-'?14?',BLANK-1 * * CHECK VOLID AND TARGET LIBRARY NAME FOR ACCURACY // LOAD #MYEC,#MYLIB // RUN // IF ?L'336,1'?/2 #ERR 1545,3,MIGR,?9? // IF ?L'337,1'?/2 IF ?2?/DISKETTE #ERR 1546,3,MIGR,?3? * * SELECTION FILE MUST EXIST // IFF DATAF1-?10? #ERR 1511,3,MIGR,?10? * * SELECTION FILE NAME * (INTERACTIVE PATH MUST FILL IN PARM 10) // LOCAL AREA-SYSTEM,OFFSET-101,DATA-'?10?',BLANK-8 * * AUDIT FILE NAME (IF BLANK, 117 WILL CONTAIN DEFAULT $MYAUD) // IFF ?11?/ LOCAL AREA-SYSTEM,OFFSET-117,DATA-'?11?',BLANK-8 * * DELETE TEMP FILES AND LIBRARIES IF THEY EXIST // IF DATAF1-$MYPROF DELETE $MYPROF,F1,SCRATCH,,ALL // IF DATAF1-#MYLIB2 DELETE #MYLIB2,F1,SCRATCH,,LIBR // IF DATAF1-#MYLIB4 DELETE #MYLIB4,F1,SCRATCH,,LIBR * CREATE TEMP LIBRARY #MYLIB4 // LOAD $MAINT // RUN // ALLOCATE STATUS-CREATE,LIBRNAME-#MYLIB4,LIBRSIZE-100,DIRSIZE-10 // END * * PUT OUT TRANSPORTATION IN PROGRESS MESSAGE // * 1183 * * CALL THE ACTION FILE BUILD PROGRAM // LOAD #MYEA,#MYLIB // FILE NAME-ACTION,LABEL-$MYACT,DISP-SHRMR // FILE NAME-SELECT,LABEL-?L'101,8'?,DISP-OLD // RUN * * IF A PARM 11 IS GIVEN (USER AUDIT FILE) PUT THIS IN LOCAL DATA AREA // IFF ?11?/ LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'?11?' * CREATE AUDIT FILE IF IT DOESN'T EXIST (DEFAULT-$MYAUD IN 117 OF LDA) // IFF DATAF1-?L'117,8'? BLDFILE ?L'117,8'?,I,R,100,32,,,1,10,,DUPKEY,80 * * CALL THE EXPORT PROGRAM // LOAD #MYEX,#MYLIB // FILE NAME-AUDIT,LABEL-?L'117,8'?,DISP-SHRMM // RUN * * DELETE TEMP LIBRARY IF IT EXISTS // IF DATAF1-#MYLIB4 DELETE #MYLIB4,F1,SCRATCH,,LIBR * * CALL #MYCT TO DELETE SELECTION FILE RECORD IN CONTROL FILE // LOCAL AREA-SYSTEM,OFFSET-238,DATA-'4' // LOAD #MYCT // RUN * * DELETE SELECTION FILE // IF DATAF1-?L'101,8'? DELETE ?L'101,8'?,F1 * * CALL EXCEPTION REPORT GENERATION PROGRAM // INCLUDE MYREPEXP * * DELETE ACTION FILE NOW // IF DATAF1-$MYACT DELETE $MYACT,F1 * * DELETE ENDING FILE NOW // IF DATAF1-$MYEND DELETE $MYEND,F1 * // RETURN * *********************************************************************** * MIGRATE REPORTS * *********************************************************************** * // TAG REPORTS * // IF DATAF1-$MYWK0 DELETE $MYWK0,F1 // IF DATAF1-$MYWK1 DELETE $MYWK1,F1 // IF DATAF1-$MYIND DELETE $MYIND,F1 // IF DATAF1-$MYVTOC DELETE $MYVTOC,F1 * * IF PARMS WERE BLANK, DEFAULT THEM * // IF ?2?='' EVALUATE P2=MIGRATED // IF ?3?='' IF ?2?=MIGRATED EVALUATE P3=SORTRUN // IF ?4?='' IF ?2?=MIGRATED EVALUATE P4=LAST // IF ?5?='' IFF ?2?=ANALYZED EVALUATE P5=ALL * * ERROR CHECK COMBINATIONS OF PARAMETERS * // IFF ?2?=MIGRATED IFF ?3?='' #ERR 1550,3,MIGR // IFF ?2?=MIGRATED IFF ?4?='' #ERR 1551,3,MIGR // IF ?2?=ANALYZED IFF ?5?='' BADPARM EXPORT,5 // IF ?4?=ALL IFF ?7?='' #ERR 1553,3,MIGR * * HANDLE BATCH INTERFACE IF NECCESSARY * // LOCAL AREA-SYSTEM,DATA-' ',OFFSET-359 // IF ?4?=FILE GOTO ALLRUNS // IF ?4?=ALL GOTO ALLRUNS // IFF ?4?=LAST GOTO NOTLAST // LOCAL AREA-SYSTEM,DATA-'L',OFFSET-359 // GOTO MYRRTAG // TAG NOTLAST // LOCAL AREA-SYSTEM,DATA-'F',OFFSET-359 // LOCAL AREA-SYSTEM,DATA-'?4?',OFFSET-378,BLANK-8 // TAG MYRRTAG // LOAD #MYRR,#MYLIB // RUN // EVALUATE P7=?L'378,8'? // EVALUATE P4=FILE // TAG ALLRUNS * * MYEC PUTS SESSION DATE FORMAT INTO LDA (AS WELL AS THE CHECKING FUNCT) // LOAD #MYEC,#MYLIB // RUN * * ERROR CHECK THE PARMS // IFF ?2?/MIGRATED IFF ?2?/NOTMIGR IFF ?2?/ANALYZED BADPARM REPORTS,2 // IFF ?3?/SORTRUN IFF ?3?/SORTITEM IFF ?3?/ BADPARM REPORTS,3 // IF ?2?/ANALYZED GOTO RECOMBO // IFF ?5?/LDA IFF ?5?/LIBRARY IFF ?5?/FILE IFF ?5?/USER GOTO RE5MORE1 // GOTO RECOMBO * // TAG RE5MORE1 // IFF ?5?/FOLDER IFF ?5?/SPELDICT IFF ?5?/DATADICT IFF ?5?/NRD GOTO RE5MORE2 // GOTO RECOMBO * // TAG RE5MORE2 // IFF ?5?/MASTER IFF ?5?/ALL BADPARM EXPORT,5 // TAG RECOMBO * * SET UP THE LDA WITH THE PARMS * * REPORT TYPE // LOCAL AREA-SYSTEM,OFFSET-357,BLANK-1 // IF ?2?=MIGRATED LOCAL AREA-SYSTEM,OFFSET-357,DATA-'M' // IF ?2?=NOTMIGR LOCAL AREA-SYSTEM,OFFSET-357,DATA-'N' // IF ?2?=ANALYZED LOCAL AREA-SYSTEM,OFFSET-357,DATA-'A' * * SORT TYPE // IF ?3?=SORTRUN LOCAL AREA-SYSTEM,OFFSET-358,DATA-'R',BLANK-1 // ELSE LOCAL AREA-SYSTEM,OFFSET-358,DATA-'I',BLANK-1 * * RUN FLAG // IF ?4?=ALL LOCAL AREA-SYSTEM,OFFSET-359,DATA-'A' // ELSE LOCAL AREA-SYSTEM,OFFSET-359,DATA-'F' * * RUN NUMBER FILE IN LDA // LOCAL AREA-SYSTEM,OFFSET-378,BLANK-8,DATA-'?7?' * * PUT USER AUDIT FILE IN LDA IF PRESENT (ELSE WILL USE $MYAUD) // IFF ?6?/ LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'?6?' * * MIGRATION OBJECT TO REPORT ON (LDA MEANS LDA ALREADY SET UP) // IF ?5?=LDA IFF ?8?/ LOCAL AREA-SYSTEM,OFFSET-360,BLANK-18,DATA-'?8?' // IF ?5?=LDA GOTO REPROGS // LOCAL AREA-SYSTEM,OFFSET-360,BLANK-18 // IF ?5?=ALL LOCAL AREA-SYSTEM,DATA-'1',OFFSET-360 // IF ?5?=LIBRARY LOCAL AREA-SYSTEM,DATA-'1',OFFSET-361 // IF ?5?=FILE LOCAL AREA-SYSTEM,DATA-'1',OFFSET-362 // IF ?5?=USER LOCAL AREA-SYSTEM,DATA-'1',OFFSET-363 // IF ?5?=FOLDER LOCAL AREA-SYSTEM,DATA-'1',OFFSET-364 // IF ?5?=SPELDICT LOCAL AREA-SYSTEM,DATA-'1',OFFSET-365 // IF ?5?=DATADICT LOCAL AREA-SYSTEM,DATA-'1',OFFSET-366 // IF ?5?=NRD LOCAL AREA-SYSTEM,DATA-'1',OFFSET-367 // IF ?5?=MASTER LOCAL AREA-SYSTEM,DATA-'1',OFFSET-368 * * CALL THE REPORT PROGRAMS // TAG REPROGS * * MIGRATED // IF ?2?=MIGRATED INCLUDE MYREPMIG // IF ?2?=MIGRATED GOTO DONEREP * * NOT MIGRATED // IF ?2?=NOTMIGR INCLUDE MYREPNMG // IF ?2?=NOTMIGR GOTO DONEREP * * ANALYZED MYREPANL * * DELETE ANY WORK FILES // TAG DONEREP // IF DATAF1-$MYWK0 DELETE $MYWK0,F1 // IF DATAF1-$MYWK1 DELETE $MYWK1,F1 // IF DATAF1-$MYIND DELETE $MYIND,F1 // IF DATAF1-$MYVTOC DELETE $MYVTOC,F1 // IFF ?L'378,8'?/ IF DATAF1-?L'378,8'? DELETE ?L'378,8'?,F1 // RETURN ********************************************************************** * * TITLE : MIGRATE * * DESCRIPTIVE NAME : MIGRATION BATCH INTERFACE PROCEDURE * * FUNCTION : THIS PROC PROVIDES A SCREEN-LESS INTERFACE TO MIGRATION * FOR THE ADVANCED PROGRAMMER. IT IS ALSO USED BY SOME OF THE * INTERACTIVE PATHS FOR FUNCTIONS SUCH AS EXPORT OR REPORTS. * * FUNCTION FLOW: THE FIRST PARAMETER IS USED TO ROUTE CONTROL TO THE * DESIRED FUNCTION * * * GOTO MAIN MENU: * MIGRATE * * CREATE A SELECTION FILE: * MIGRATE CREATE, SELECTION_FILE, SEL_FILE_DESCRIPTION, NUMBER_OF_RECS * * ADD A SELECTION TO A SELECTION FILE: * MIGRATE SELECT, ITEM_TYPE, ITEM_NAME, ITEM_DATE, FILE_TYPE, * ALTERNATE_LIBRAY, COMPILE_FLAG, SELECTION_FILE * * ANALYZE FOR UNMIGRATABLE ITEMS: * MIGRATE ANALYZE, ANLZ_TYPE, ITEM_NAME, LIBRARY_ANLZ_TYPE, AUDIT_FILE * * EXPORT ITEMS TO TARGET MACHINE: * MIGRATE EXPORT, MEDIA, VOLID, LOCATION, AUTO_FLAG, TAPE_END, * SEQUENCE_NUMBER, SECURITY_FLAG, TARGET_LIBRARY_FOR_FILES, * SELECTION_FILE, AUDIT_FILE * * PRODUCE REPORTS ON MIGRATION: * MIGRATE REPORTS,REPORT_TYPE, SORT_TYPE, RUN_NUMBER_FLAG, ITEM_TYPE, * AUDIT_FILE, RUN_NUMBER_FILE * * * INVOCATION: USER-CODED PROCEDURES, USER INPUT, INTERACTIVE PATHS * * MIGRATE PARM1,PARM2, ... FROM * OR // INCLUDE MIGRATE PARM1,PARM2, ... OCL * * * * PARAMETERS * --------------------------------------------------------------- * PARM 1 - MIGRATION FUNCTION * PARM 2 ... - FUNCTION DEPENDENT PARAMETERS (SEE ABOVE) * * * SCREENS DISPLAYED : NONE * * FILES ACCESSED : CONTROL FILE - GET NEXT TEMP FILE NAME * SELECTION FILE - CREATE, UPDATE, PROCESS * ACTION FILE - CREATE, UPDATE, PROCESS * AUDIT FILE - ADD RECORDS * * NORMAL MODULE EXIT : RETURN TO CALLER OR COMMAND PROCESSOR * * ABNORMAL MOD EXIT : SYSLOG HALT * * RETURN CODE : NONE * * MESSAGES ISSUED : * MIC DESCRIPTION * ------------ -------------------------------------------------- * $MICXXXX DESCRIPTION * * CROSS REFERENCE: * * CALLED BY DESCRIPTION * --------- ---------------------------------- * EXPORT EXPORT PROCEDURE * REPORTS REPORTS PROCEDURE * * **********************************************************************
0x0000…0001 0x96 0x0001…0017 »// LIBRARY NAME-#MYLIB« 0x0017…0018 0x3a 0x0018…0019 0x81 0x0019…001a »*« 0x001a…001b 0x4f 0x001b…001c 0x9c 0x001c…0038 »* SET UP THE MESSAGE MEMBERS« 0x0038…0039 0x34 0x0039…003a 0x81 0x003a…003b »*« 0x003b…003c 0x4f 0x003c…003d 0xb9 0x003d…0076 »// MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,LIBRARY-#MYLIB« 0x0076…0077 0x17 0x0077…0078 0xb9 0x0078…00b1 »// MEMBER USER2-#MY#2MSG,PROGRAM2-#MY#2MSG,LIBRARY-#MYLIB« 0x00b1…00b2 0x17 0x00b2…00b3 0x81 0x00b3…00b4 »*« 0x00b4…00b5 0x4f 0x00b5…00b6 0xa7 0x00b6…00dd »* INITIALIZE THE SYSTEM LOCAL DATA AREA« 0x00dd…00de 0x29 0x00de…00df 0x81 0x00df…00e0 »*« 0x00e0…00e1 0x4f 0x00e1…00e2 0xab 0x00e2…010d »* PUT MIGRATE INTO THE FIRST 8 BYTES OF LDA« 0x010d…010e 0x25 0x010e…010f 0xb4 0x010f…0143 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'MIGRATE',BLANK-8« 0x0143…0144 0x1c 0x0144…0145 0x9c 0x0145…0161 »* PUT THE USER ID IN THE LDA« 0x0161…0162 0x34 0x0162…0163 0xb5 0x0163…0198 »// LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8« 0x0198…0199 0x1b 0x0199…019a 0xac 0x019a…01c6 »* PUT THE DEFAULT AUDIT FILE NAME IN THE LDA« 0x01c6…01c7 0x24 0x01c7…01c8 0xb5 0x01c8…01fd »// LOCAL AREA-SYSTEM,OFFSET-117,DATA-'$MYAUD',BLANK-8« 0x01fd…01fe 0x1b 0x01fe…01ff 0x81 0x01ff…0200 »*« 0x0200…0201 0x4f 0x0201…0202 0xb2 0x0202…0234 »* ERROR CHECK 1ST PARM AND ROUTE TO PROPER ROUTINE« 0x0234…0235 0x1e 0x0235…0236 0x81 0x0236…0237 »*« 0x0237…0238 0x4f 0x0238…0239 0x9c 0x0239…0255 »// IF ?1?/EXPORT GOTO EXPORT« 0x0255…0256 0x34 0x0256…0257 0x9c 0x0257…0273 »// IF ?1?/CREATE GOTO CREATE« 0x0273…0274 0x34 0x0274…0275 0x9c 0x0275…0291 »// IF ?1?/SELECT GOTO SELECT« 0x0291…0292 0x34 0x0292…0293 0x9e 0x0293…02b1 »// IF ?1?/ANALYZE GOTO ANALYZE« 0x02b1…02b2 0x32 0x02b2…02b3 0x9c 0x02b3…02cf »// IF ?1?/SAVE36 GOTO SAVE36« 0x02cf…02d0 0x34 0x02d0…02d1 0x9d 0x02d1…02ee »// IF ?1?/REPORT GOTO REPORTS« 0x02ee…02ef 0x33 0x02ef…02f0 0x94 0x02f0…0304 »// IF ?1?/ GOTO MENU« 0x0304…0305 0x3c 0x0305…0306 0x81 0x0306…0307 »*« 0x0307…0308 0x4f 0x0308…0309 0xa4 0x0309…032d »* PARM 1 IS BAD, ISSUE ERROR MESSAGE« 0x032d…032e 0x2c 0x032e…032f 0x81 0x032f…0330 »*« 0x0330…0331 0x4f 0x0331…0332 0x92 0x0332…0344 »BADPARM MIGRATE,01« 0x0344…0345 0x3e 0x0345…0346 0x89 0x0346…034f »// RETURN« 0x034f…0350 0x47 0x0350…0351 0x81 0x0351…0352 »*« 0x0352…0353 0x4f 0x0353…0354 0xad 0x0354…0381 »* IF PARM 1 IS BLANK, PUT UP MAIN MENU SCREEN« 0x0381…0382 0x23 0x0382…0383 0x81 0x0383…0384 »*« 0x0384…0385 0x4f 0x0385…0386 0x8b 0x0386…0391 »// TAG MENU« 0x0391…0392 0x45 0x0392…0393 0xa2 0x0393…03b5 »// LIBRARY NAME-#MYLIB,SESSION-YES« 0x03b5…03b6 0x2e 0x03b6…03b7 0x9c 0x03b7…03d3 »// IFF DSPLY-IGC MENU MYM001« 0x03d3…03d4 0x34 0x03d4…03d5 0x9b 0x03d5…03f0 »// IF DSPLY-IGC MENU MYD001« 0x03f0…03f1 0x35 0x03f1…03f2 0x89 0x03f2…03fb »// RETURN« 0x03fb…03fc 0x47 0x03fc…03fd 0x81 0x03fd…03fe »*« 0x03fe…03ff 0x4f 0x03ff…0400 0xc7 0x0400…0447 »***********************************************************************« 0x0447…0448 0x09 0x0448…0449 0x81 0x0449…044a »*« 0x044a…044b 0x04 0x044b…044c 0x8e 0x044c…045a »MIGRATE CREATE« 0x045a…045b 0x33 0x045b…045c 0x81 0x045c…045d »*« 0x045d…045e 0x09 0x045e…045f 0xc7 0x045f…04a6 »***********************************************************************« 0x04a6…04a7 0x09 0x04a7…04a8 0x81 0x04a8…04a9 »*« 0x04a9…04aa 0x4f 0x04aa…04ab 0x8d 0x04ab…04b8 »// TAG CREATE« 0x04b8…04b9 0x43 0x04b9…04ba 0x81 0x04ba…04bb »*« 0x04bb…04bc 0x4f 0x04bc…04bd 0xae 0x04bd…04eb »* MAKE SURE USER ENTERED A SELECTION FILE NAME« 0x04eb…04ec 0x22 0x04ec…04ed 0x8a 0x04ed…04f7 »// IF ?2?/« 0x04f7…04f8 0x02 0x04f8…04f9 0x90 0x04f9…0509 »#ERR 1512,3,MIGR« 0x0509…050a 0x34 0x050a…050b 0x81 0x050b…050c »*« 0x050c…050d 0x4f 0x050d…050e 0xa4 0x050e…0532 »* PUT SELECTION FILE NAME IS THE LDA« 0x0532…0533 0x2c 0x0533…0534 0xb2 0x0534…0566 »// LOCAL AREA-SYSTEM,OFFSET-101,DATA-'?2?',BLANK-8« 0x0566…0567 0x1e 0x0567…0568 0x81 0x0568…0569 »*« 0x0569…056a 0x4f 0x056a…056b 0xb6 0x056b…05a1 »* MAKE SURE THE SELECTION FILE DOES NOT START WITH $MY« 0x05a1…05a2 0x1a 0x05a2…05a3 0xa9 0x05a3…05cc »// IF ?L'101,3'?=$MY #ERR 1501,3,MIGR,?2?« 0x05cc…05cd 0x27 0x05cd…05ce 0x81 0x05ce…05cf »*« 0x05cf…05d0 0x4f 0x05d0…05d1 0xaf 0x05d1…0600 »* CHECK IF SELECTION FILE EXISTS, IT SHOULD NOT« 0x0600…0601 0x21 0x0601…0602 0xa5 0x0602…0627 »// IF DATAF1-?2? #ERR 1510,3,MIGR,?2?« 0x0627…0628 0x2b 0x0628…0629 0x81 0x0629…062a »*« 0x062a…062b 0x4f 0x062b…062c 0xab 0x062c…0657 »* USE BLDFILE PROC TO CREATE SELECTION FILE« 0x0657…0658 0x25 0x0658…0659 0x81 0x0659…065a »*« 0x065a…065b 0x4f 0x065b…065c 0xab 0x065c…0687 »BLDFILE ?2?,I,R,?4'80'?,32,,,1,9,,DUPKEY,80« 0x0687…0688 0x25 0x0688…0689 0x81 0x0689…068a »*« 0x068a…068b 0x4f 0x068b…068c 0xa6 0x068c…06b2 »* PUT MIGRATION RUN DESCRIPTION IN LDA« 0x06b2…06b3 0x2a 0x06b3…06b4 0xb3 0x06b4…06e7 »// LOCAL AREA-SYSTEM,OFFSET-125,DATA-'?3?',BLANK-40« 0x06e7…06e8 0x1d 0x06e8…06e9 0x81 0x06e9…06ea »*« 0x06ea…06eb 0x4f 0x06eb…06ec 0xbf 0x06ec…072b »* SET UP #MYCR OPCODE (MYLDCUOP) TO CREATE A NEW SELECTION FILE« 0x072b…072c 0x11 0x072c…072d 0x95 0x072d…0742 »* MYLDCUOP = MYLDCRET« 0x0742…0743 0x3b 0x0743…0744 0xa8 0x0744…076c »// LOCAL AREA-SYSTEM,OFFSET-239,DATA-'1'« 0x076c…076d 0x28 0x076d…076e 0x81 0x076e…076f »*« 0x076f…0770 0x4f 0x0770…0771 0xbc 0x0771…07ad »* CALL SELECTION FILE UPDATE PROGRAM TO WRITE HEADER RECORDS« 0x07ad…07ae 0x14 0x07ae…07af 0x94 0x07af…07c3 »// LOAD #MYCR,#MYLIB« 0x07c3…07c4 0x3c 0x07c4…07c5 0xa6 0x07c5…07eb »// FILE NAME-SELECT,LABEL-?2?,DISP-OLD« 0x07eb…07ec 0x2a 0x07ec…07ed 0x86 0x07ed…07f3 »// RUN« 0x07f3…07f4 0x4a 0x07f4…07f5 0x89 0x07f5…07fe »// RETURN« 0x07fe…07ff 0x47 0x07ff…0800 0x81 0x0800…0801 »*« 0x0801…0802 0x4f 0x0802…0803 0xc7 0x0803…084a »***********************************************************************« 0x084a…084b 0x09 0x084b…084c 0x81 0x084c…084d »*« 0x084d…084e 0x04 0x084e…084f 0x8e 0x084f…085d »MIGRATE SELECT« 0x085d…085e 0x33 0x085e…085f 0x81 0x085f…0860 »*« 0x0860…0861 0x09 0x0861…0862 0xc7 0x0862…08a9 »***********************************************************************« 0x08a9…08aa 0x09 0x08aa…08ab 0x81 0x08ab…08ac »*« 0x08ac…08ad 0x4f 0x08ad…08ae 0x8d 0x08ae…08bb »// TAG SELECT« 0x08bb…08bc 0x43 0x08bc…08bd 0x81 0x08bd…08be »*« 0x08be…08bf 0x4f 0x08bf…08c0 0xb6 0x08c0…08f6 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'MIGRATE',BLANK-512« 0x08f6…08f7 0x1a 0x08f7…08f8 0xb5 0x08f8…092d »// LOCAL AREA-SYSTEM,OFFSET-117,DATA-'$MYAUD',BLANK-8« 0x092d…092e 0x1b 0x092e…092f 0xb5 0x092f…0964 »// LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8« 0x0964…0965 0x1b 0x0965…0966 0x81 0x0966…0967 »*« 0x0967…0968 0x4f 0x0968…0969 0xae 0x0969…0997 »* MAKE SURE USER ENTERED A SELECTION FILE NAME« 0x0997…0998 0x22 0x0998…0999 0x8a 0x0999…09a3 »// IF ?8?/« 0x09a3…09a4 0x02 0x09a4…09a5 0x90 0x09a5…09b5 »#ERR 1512,3,MIGR« 0x09b5…09b6 0x34 0x09b6…09b7 0x81 0x09b7…09b8 »*« 0x09b8…09b9 0x4f 0x09b9…09ba 0xa4 0x09ba…09de »* PUT SELECTION FILE NAME IS THE LDA« 0x09de…09df 0x2c 0x09df…09e0 0xb2 0x09e0…0a12 »// LOCAL AREA-SYSTEM,OFFSET-101,DATA-'?8?',BLANK-8« 0x0a12…0a13 0x1e 0x0a13…0a14 0x81 0x0a14…0a15 »*« 0x0a15…0a16 0x4f 0x0a16…0a17 0xb6 0x0a17…0a4d »* MAKE SURE THE SELECTION FILE DOES NOT START WITH $MY« 0x0a4d…0a4e 0x1a 0x0a4e…0a4f 0xa9 0x0a4f…0a78 »// IF ?L'101,3'?=$MY #ERR 1501,3,MIGR,?8?« 0x0a78…0a79 0x27 0x0a79…0a7a 0x81 0x0a7a…0a7b »*« 0x0a7b…0a7c 0x4f 0x0a7c…0a7d 0xab 0x0a7d…0aa8 »* CHECK IF SELECTION FILE EXISTS, IT SHOULD« 0x0aa8…0aa9 0x25 0x0aa9…0aaa 0xa6 0x0aaa…0ad0 »// IFF DATAF1-?8? #ERR 1511,3,MIGR,?8?« 0x0ad0…0ad1 0x2a 0x0ad1…0ad2 0x81 0x0ad2…0ad3 »*« 0x0ad3…0ad4 0x4f 0x0ad4…0ad5 0x94 0x0ad5…0ae9 »* ERROR CHECK PARM 2« 0x0ae9…0aea 0x3c 0x0aea…0aeb 0x81 0x0aeb…0aec »*« 0x0aec…0aed 0x4f 0x0aed…0aee 0xd0 0x0aee…0b3e »// IFF ?2?/ IFF ?2?/ALL IFF ?2?/LIBRARY IFF ?2?/FILE IFF ?2?/USER GOTO SL2MORE1 « 0x0b3e…0b3f 0x8e 0x0b3f…0b4d »// GOTO SLCHK5« 0x0b4d…0b4e 0x42 0x0b4e…0b4f 0x81 0x0b4f…0b50 »*« 0x0b50…0b51 0x4f 0x0b51…0b52 0x8f 0x0b52…0b61 »// TAG SL2MORE1« 0x0b61…0b62 0x41 0x0b62…0b63 0xcd 0x0b63…0bb0 »// IFF ?2?/FOLDER IFF ?2?/SPELDICT IFF ?2?/DATADICT IFF ?2?/NRD GOTO SL2MORE2« 0x0bb0…0bb1 0x03 0x0bb1…0bb2 0x8e 0x0bb2…0bc0 »// GOTO SLCHK5« 0x0bc0…0bc1 0x42 0x0bc1…0bc2 0x81 0x0bc2…0bc3 »*« 0x0bc3…0bc4 0x4f 0x0bc4…0bc5 0x8f 0x0bc5…0bd4 »// TAG SL2MORE2« 0x0bd4…0bd5 0x41 0x0bd5…0bd6 0xa2 0x0bd6…0bf8 »// IFF ?2?/MASTER BADPARM SELECT,2« 0x0bf8…0bf9 0x2e 0x0bf9…0bfa 0x81 0x0bfa…0bfb »*« 0x0bfb…0bfc 0x4f 0x0bfc…0bfd 0x94 0x0bfd…0c11 »* ERROR CHECK PARM 5« 0x0c11…0c12 0x3c 0x0c12…0c13 0x81 0x0c13…0c14 »*« 0x0c14…0c15 0x4f 0x0c15…0c16 0x8d 0x0c16…0c23 »// TAG SLCHK5« 0x0c23…0c24 0x43 0x0c24…0c25 0xc0 0x0c25…0c65 »// IFF ?5?/ IFF ?5?/DATA IFF ?5?/FCT IFF ?5?/STREAM GOTO SL5MORE« 0x0c65…0c66 0x10 0x0c66…0c67 0x8f 0x0c67…0c76 »// GOTO SLCOMBO« 0x0c76…0c77 0x41 0x0c77…0c78 0x81 0x0c78…0c79 »*« 0x0c79…0c7a 0x4f 0x0c7a…0c7b 0x8e 0x0c7b…0c89 »// TAG SL5MORE« 0x0c89…0c8a 0x42 0x0c8a…0c8b 0xc0 0x0c8b…0ccb »// IFF ?5?/UNFORMAT IFF ?5?/BGUGDIF IFF ?5?/APF BADPARM SELECT,5« 0x0ccb…0ccc 0x10 0x0ccc…0ccd 0x81 0x0ccd…0cce »*« 0x0cce…0ccf 0x4f 0x0ccf…0cd0 0xa6 0x0cd0…0cf6 »* ERROR CHECK FOR ILLEGAL COMBINATIONS« 0x0cf6…0cf7 0x2a 0x0cf7…0cf8 0x81 0x0cf8…0cf9 »*« 0x0cf9…0cfa 0x4f 0x0cfa…0cfb 0x8e 0x0cfb…0d09 »// TAG SLCOMBO« 0x0d09…0d0a 0x42 0x0d0a…0d0b 0xa9 0x0d0b…0d34 »// IFF ?3?='' IF ?2?=NRD #ERR 1520,3,MIGR« 0x0d34…0d35 0x27 0x0d35…0d36 0xac 0x0d36…0d62 »// IFF ?3?='' IF ?2?=MASTER #ERR 1521,3,MIGR« 0x0d62…0d63 0x24 0x0d63…0d64 0xab 0x0d64…0d8f »// IFF ?4?='' IFF ?2?=FILE #ERR 1525,3,MIGR« 0x0d8f…0d90 0x25 0x0d90…0d91 0xab 0x0d91…0dbc »// IFF ?5?='' IFF ?2?=FILE #ERR 1526,3,MIGR« 0x0dbc…0dbd 0x25 0x0dbd…0dbe 0xae 0x0dbe…0dec »// IFF ?6?='' IFF ?2?=LIBRARY #ERR 1527,3,MIGR« 0x0dec…0ded 0x22 0x0ded…0dee 0xae 0x0dee…0e1c »// IFF ?7?='' IFF ?2?=LIBRARY #ERR 1528,3,MIGR« 0x0e1c…0e1d 0x22 0x0e1d…0e1e 0x81 0x0e1e…0e1f »*« 0x0e1f…0e20 0x4f 0x0e20…0e21 0xa3 0x0e21…0e44 »* IF PARMS WERE BLANK, DEFAULT THEM« 0x0e44…0e45 0x2d 0x0e45…0e46 0x81 0x0e46…0e47 »*« 0x0e47…0e48 0x4f 0x0e48…0e49 0xa0 0x0e49…0e69 »// IF ?2?='' EVALUATE P2=LIBRARY« 0x0e69…0e6a 0x30 0x0e6a…0e6b 0x9d 0x0e6b…0e88 »// IF ?7?='' EVALUATE P7=COMP« 0x0e88…0e89 0x33 0x0e89…0e8a 0x81 0x0e8a…0e8b »*« 0x0e8b…0e8c 0x4f 0x0e8c…0e8d 0x96 0x0e8d…0ea3 »* PUT PARMS IN THE LDA« 0x0ea3…0ea4 0x3a 0x0ea4…0ea5 0x81 0x0ea5…0ea6 »*« 0x0ea6…0ea7 0x4f 0x0ea7…0ea8 0x90 0x0ea8…0eb8 »* SELECTION TYPE« 0x0eb8…0eb9 0x40 0x0eb9…0eba 0xa7 0x0eba…0ee1 »// LOCAL AREA-SYSTEM,OFFSET-213,BLANK-1« 0x0ee1…0ee2 0x29 0x0ee2…0ee3 0xb3 0x0ee3…0f16 »// IF ?2?=ALL LOCAL AREA-SYSTEM,OFFSET-213,DATA-'A'« 0x0f16…0f17 0x1d 0x0f17…0f18 0xb7 0x0f18…0f4f »// IF ?2?=LIBRARY LOCAL AREA-SYSTEM,OFFSET-213,DATA-'L'« 0x0f4f…0f50 0x19 0x0f50…0f51 0xb4 0x0f51…0f85 »// IF ?2?=FILE LOCAL AREA-SYSTEM,OFFSET-213,DATA-'F'« 0x0f85…0f86 0x1c 0x0f86…0f87 0xb4 0x0f87…0fbb »// IF ?2?=USER LOCAL AREA-SYSTEM,OFFSET-213,DATA-'U'« 0x0fbb…0fbc 0x1c 0x0fbc…0fbd 0xb6 0x0fbd…0ff3 »// IF ?2?=FOLDER LOCAL AREA-SYSTEM,OFFSET-213,DATA-'W'« 0x0ff3…0ff4 0x1a 0x0ff4…0ff5 0xb8 0x0ff5…102d »// IF ?2?=SPELDICT LOCAL AREA-SYSTEM,OFFSET-213,DATA-'P'« 0x102d…102e 0x18 0x102e…102f 0xb8 0x102f…1067 »// IF ?2?=DATADICT LOCAL AREA-SYSTEM,OFFSET-213,DATA-'D'« 0x1067…1068 0x18 0x1068…1069 0xb3 0x1069…109c »// IF ?2?=NRD LOCAL AREA-SYSTEM,OFFSET-213,DATA-'N'« 0x109c…109d 0x1d 0x109d…109e 0xb6 0x109e…10d4 »// IF ?2?=MASTER LOCAL AREA-SYSTEM,OFFSET-213,DATA-'M'« 0x10d4…10d5 0x1a 0x10d5…10d6 0x81 0x10d6…10d7 »*« 0x10d7…10d8 0x4f 0x10d8…10d9 0x8b 0x10d9…10e4 »* ITEM NAME« 0x10e4…10e5 0x45 0x10e5…10e6 0xb2 0x10e6…1118 »// LOCAL AREA-SYSTEM,OFFSET-214,DATA-'?3?',BLANK-8« 0x1118…1119 0x1e 0x1119…111a 0x81 0x111a…111b »*« 0x111b…111c 0x4f 0x111c…111d 0x86 0x111d…1123 »* DATE« 0x1123…1124 0x4a 0x1124…1125 0xb2 0x1125…1157 »// LOCAL AREA-SYSTEM,OFFSET-222,DATA-'?4?',BLANK-6« 0x1157…1158 0x1e 0x1158…1159 0x81 0x1159…115a »*« 0x115a…115b 0x4f 0x115b…115c 0x8b 0x115c…1167 »* FILE TYPE« 0x1167…1168 0x45 0x1168…1169 0xa7 0x1169…1190 »// LOCAL AREA-SYSTEM,OFFSET-228,BLANK-1« 0x1190…1191 0x29 0x1191…1192 0xb4 0x1192…11c6 »// IF ?5?=DATA LOCAL AREA-SYSTEM,OFFSET-228,DATA-'1'« 0x11c6…11c7 0x1c 0x11c7…11c8 0xb3 0x11c8…11fb »// IF ?5?=FCT LOCAL AREA-SYSTEM,OFFSET-228,DATA-'2'« 0x11fb…11fc 0x1d 0x11fc…11fd 0xb6 0x11fd…1233 »// IF ?5?=STREAM LOCAL AREA-SYSTEM,OFFSET-228,DATA-'3'« 0x1233…1234 0x1a 0x1234…1235 0xb8 0x1235…126d »// IF ?5?=UNFORMAT LOCAL AREA-SYSTEM,OFFSET-228,DATA-'4'« 0x126d…126e 0x18 0x126e…126f 0xb7 0x126f…12a6 »// IF ?5?=BGUGDIF LOCAL AREA-SYSTEM,OFFSET-228,DATA-'5'« 0x12a6…12a7 0x19 0x12a7…12a8 0xb3 0x12a8…12db »// IF ?5?=APF LOCAL AREA-SYSTEM,OFFSET-228,DATA-'6'« 0x12db…12dc 0x1d 0x12dc…12dd 0x81 0x12dd…12de »*« 0x12de…12df 0x4f 0x12df…12e0 0x89 0x12e0…12e9 »* LOADLIB« 0x12e9…12ea 0x47 0x12ea…12eb 0xb2 0x12eb…131d »// LOCAL AREA-SYSTEM,OFFSET-229,DATA-'?6?',BLANK-8« 0x131d…131e 0x1e 0x131e…131f 0x81 0x131f…1320 »*« 0x1320…1321 0x4f 0x1321…1322 0x8d 0x1322…132f »* COMP/NOCOMP« 0x132f…1330 0x43 0x1330…1331 0xbc 0x1331…136d »// IF ?7?=COMP LOCAL AREA-SYSTEM,OFFSET-237,DATA-'1',BLANK-1« 0x136d…136e 0x14 0x136e…136f 0xb5 0x136f…13a4 »// ELSE LOCAL AREA-SYSTEM,OFFSET-237,DATA-'2',BLANK-1« 0x13a4…13a5 0x1b 0x13a5…13a6 0x81 0x13a6…13a7 »*« 0x13a7…13a8 0x4f 0x13a8…13a9 0x95 0x13a9…13be »* SELECTION FILE NAME« 0x13be…13bf 0x3b 0x13bf…13c0 0xb2 0x13c0…13f2 »// LOCAL AREA-SYSTEM,OFFSET-101,DATA-'?8?',BLANK-8« 0x13f2…13f3 0x1e 0x13f3…13f4 0x81 0x13f4…13f5 »*« 0x13f5…13f6 0x4f 0x13f6…13f7 0x97 0x13f7…140e »// IF ?2?=ALL GOTO SALL« 0x140e…140f 0x39 0x140f…1410 0x81 0x1410…1411 »*« 0x1411…1412 0x4f 0x1412…1413 0xc6 0x1413…1459 »* SET UP #MYCR OPCODE (MYLDCUOP) TO ADD A NEW RECORD TO SELECTION FILE« 0x1459…145a 0x0a 0x145a…145b 0x95 0x145b…1470 »* MYLDCUOP = MYLDUPDT« 0x1470…1471 0x3b 0x1471…1472 0xa8 0x1472…149a »// LOCAL AREA-SYSTEM,OFFSET-239,DATA-'2'« 0x149a…149b 0x28 0x149b…149c 0x81 0x149c…149d »*« 0x149d…149e 0x4f 0x149e…149f 0xa4 0x149f…14c3 »* CALL SELECTION FILE UPDATE PROGRAM« 0x14c3…14c4 0x2c 0x14c4…14c5 0x81 0x14c5…14c6 »*« 0x14c6…14c7 0x4f 0x14c7…14c8 0x94 0x14c8…14dc »// LOAD #MYCR,#MYLIB« 0x14dc…14dd 0x3c 0x14dd…14de 0xa6 0x14de…1504 »// FILE NAME-SELECT,LABEL-?8?,DISP-OLD« 0x1504…1505 0x2a 0x1505…1506 0x86 0x1506…150c »// RUN« 0x150c…150d 0x4a 0x150d…150e 0x89 0x150e…1517 »// RETURN« 0x1517…1518 0x47 0x1518…1519 0x81 0x1519…151a »*« 0x151a…151b 0x4f 0x151b…151c 0x8b 0x151c…1527 »// TAG SALL« 0x1527…1528 0x45 0x1528…1529 0x81 0x1529…152a »*« 0x152a…152b 0x4f 0x152b…152c 0x99 0x152c…1545 »* CALL SELECT ALL PROGRAM« 0x1545…1546 0x37 0x1546…1547 0x81 0x1547…1548 »*« 0x1548…1549 0x4f 0x1549…154a 0x94 0x154a…155e »// LOAD #MYSA,#MYLIB« 0x155e…155f 0x3c 0x155f…1560 0x86 0x1560…1566 »// RUN« 0x1566…1567 0x4a 0x1567…1568 0x89 0x1568…1571 »// RETURN« 0x1571…1572 0x47 0x1572…1573 0x81 0x1573…1574 »*« 0x1574…1575 0x4f 0x1575…1576 0xc7 0x1576…15bd »***********************************************************************« 0x15bd…15be 0x09 0x15be…15bf 0x81 0x15bf…15c0 »*« 0x15c0…15c1 0x04 0x15c1…15c2 0x8f 0x15c2…15d1 »MIGRATE ANALYZE« 0x15d1…15d2 0x32 0x15d2…15d3 0x81 0x15d3…15d4 »*« 0x15d4…15d5 0x09 0x15d5…15d6 0xc7 0x15d6…161d »***********************************************************************« 0x161d…161e 0x09 0x161e…161f 0x81 0x161f…1620 »*« 0x1620…1621 0x4f 0x1621…1622 0x8e 0x1622…1630 »// TAG ANALYZE« 0x1630…1631 0x42 0x1631…1632 0x81 0x1632…1633 »*« 0x1633…1634 0x4f 0x1634…1635 0x94 0x1635…1649 »* ERROR CHECK PARM 2« 0x1649…164a 0x3c 0x164a…164b 0x81 0x164b…164c »*« 0x164c…164d 0x4f 0x164d…164e 0xc7 0x164e…1695 »// IFF ?2?/ IFF ?2?/LISTALL IFF ?2?/SYSTEM IFF ?2?/LIBRARY GOTO AN2MORE« 0x1695…1696 0x09 0x1696…1697 0x8e 0x1697…16a5 »// GOTO ANCHK4« 0x16a5…16a6 0x42 0x16a6…16a7 0x81 0x16a7…16a8 »*« 0x16a8…16a9 0x4f 0x16a9…16aa 0x8e 0x16aa…16b8 »// TAG AN2MORE« 0x16b8…16b9 0x42 0x16b9…16ba 0xc5 0x16ba…16ff »// IFF ?2?/SECURITY IFF ?2?/DATADICT IFF ?2?/MASTER BADPARM ANALYZE,2« 0x16ff…1700 0x0b 0x1700…1701 0x81 0x1701…1702 »*« 0x1702…1703 0x4f 0x1703…1704 0x94 0x1704…1718 »* ERROR CHECK PARM 4« 0x1718…1719 0x3c 0x1719…171a 0x81 0x171a…171b »*« 0x171b…171c 0x4f 0x171c…171d 0x8d 0x171d…172a »// TAG ANCHK4« 0x172a…172b 0x43 0x172b…172c 0xbc 0x172c…1768 »// IFF ?4?/ IFF ?4?/ALL IFF ?4?/RPG IFF ?4?/OCL GOTO AN4MORE« 0x1768…1769 0x14 0x1769…176a 0x8f 0x176a…1779 »// GOTO ANCOMBO« 0x1779…177a 0x41 0x177a…177b 0x81 0x177b…177c »*« 0x177c…177d 0x4f 0x177d…177e 0x8e 0x177e…178c »// TAG AN4MORE« 0x178c…178d 0x42 0x178d…178e 0xc1 0x178e…17cf »// IFF ?4?/SOURCE IFF ?4?/LIBRCNF IFF ?4?/QUERY BADPARM ANALYZE,4« 0x17cf…17d0 0x0f 0x17d0…17d1 0x81 0x17d1…17d2 »*« 0x17d2…17d3 0x4f 0x17d3…17d4 0xa3 0x17d4…17f7 »* ERROR CHECK COMBINATIONS OF PARMS« 0x17f7…17f8 0x2d 0x17f8…17f9 0x81 0x17f9…17fa »*« 0x17fa…17fb 0x4f 0x17fb…17fc 0x8e 0x17fc…180a »// TAG ANCOMBO« 0x180a…180b 0x42 0x180b…180c 0xad 0x180c…1839 »// IFF ?3?='' IF ?2?=LISTALL #ERR 1530,3,MIGR« 0x1839…183a 0x23 0x183a…183b 0xac 0x183b…1867 »// IFF ?3?='' IF ?2?=SYSTEM #ERR 1530,3,MIGR« 0x1867…1868 0x24 0x1868…1869 0xae 0x1869…1897 »// IFF ?3?='' IF ?2?=SECURITY #ERR 1530,3,MIGR« 0x1897…1898 0x22 0x1898…1899 0xac 0x1899…18c5 »// IFF ?3?='' IF ?2?=MASTER #ERR 1530,3,MIGR« 0x18c5…18c6 0x24 0x18c6…18c7 0xc1 0x18c7…1908 »// IFF ?3?='' IFF ?2?=LIBRARY IFF ?2?=DATADICT BADPARM ANALYSIS,3« 0x1908…1909 0x0f 0x1909…190a 0xac 0x190a…1936 »// IF ?2?=LIBRARY IF ?3?/ BADPARM ANALYSIS,3« 0x1936…1937 0x24 0x1937…1938 0xad 0x1938…1965 »// IF ?2?=DATADICT IF ?3?/ BADPARM ANALYSIS,3« 0x1965…1966 0x23 0x1966…1967 0xae 0x1967…1995 »// IFF ?4?='' IFF ?2?=LIBRARY #ERR 1531,3,MIGR« 0x1995…1996 0x22 0x1996…1997 0x81 0x1997…1998 »*« 0x1998…1999 0x4f 0x1999…199a 0x99 0x199a…19b3 »* DEFAULT THE BLANK PARMS« 0x19b3…19b4 0x37 0x19b4…19b5 0x81 0x19b5…19b6 »*« 0x19b6…19b7 0x4f 0x19b7…19b8 0xa0 0x19b8…19d8 »// IF ?2?='' EVALUATE P2=LISTALL« 0x19d8…19d9 0x30 0x19d9…19da 0xa9 0x19da…1a03 »// IF ?2?=LIBRARY IF ?4?/ EVALUATE P4=ALL« 0x1a03…1a04 0x27 0x1a04…1a05 0x81 0x1a05…1a06 »*« 0x1a06…1a07 0x4f 0x1a07…1a08 0x9d 0x1a08…1a25 »* SAVE AUDIT FILE NAME IN LDA« 0x1a25…1a26 0x33 0x1a26…1a27 0x81 0x1a27…1a28 »*« 0x1a28…1a29 0x4f 0x1a29…1a2a 0xbb 0x1a2a…1a65 »// IFF ?5?/ LOCAL AREA-SYSTEM,OFFSET-117,DATA-'?5?',BLANK-8« 0x1a65…1a66 0x15 0x1a66…1a67 0x81 0x1a67…1a68 »*« 0x1a68…1a69 0x4f 0x1a69…1a6a 0xa7 0x1a6a…1a91 »* CALL THE COMPONENT ANALYSES REQUESTED« 0x1a91…1a92 0x29 0x1a92…1a93 0x81 0x1a93…1a94 »*« 0x1a94…1a95 0x4f 0x1a95…1a96 0x81 0x1a96…1a97 »*« 0x1a97…1a98 0x02 0x1a98…1a99 0x87 0x1a99…1aa0 »LISTALL« 0x1aa0…1aa1 0x46 0x1aa1…1aa2 0xa2 0x1aa2…1ac4 »// IF ?2?/LISTALL INCLUDE MYREPLST« 0x1ac4…1ac5 0x2e 0x1ac5…1ac6 0x98 0x1ac6…1ade »// IF ?2?/LISTALL RETURN« 0x1ade…1adf 0x38 0x1adf…1ae0 0x81 0x1ae0…1ae1 »*« 0x1ae1…1ae2 0x4f 0x1ae2…1ae3 0x81 0x1ae3…1ae4 »*« 0x1ae4…1ae5 0x02 0x1ae5…1ae6 0x86 0x1ae6…1aec »SYSTEM« 0x1aec…1aed 0x47 0x1aed…1aee 0xa0 0x1aee…1b0e »// IF ?2?/SYSTEM INCLUDE ANLZ001« 0x1b0e…1b0f 0x30 0x1b0f…1b10 0x97 0x1b10…1b27 »// IF ?2?/SYSTEM RETURN« 0x1b27…1b28 0x39 0x1b28…1b29 0x81 0x1b29…1b2a »*« 0x1b2a…1b2b 0x4f 0x1b2b…1b2c 0x81 0x1b2c…1b2d »*« 0x1b2d…1b2e 0x02 0x1b2e…1b2f 0x87 0x1b2f…1b36 »LIBRARY« 0x1b36…1b37 0x46 0x1b37…1b38 0x81 0x1b38…1b39 »*« 0x1b39…1b3a 0x04 0x1b3a…1b3b 0x83 0x1b3b…1b3e »RPG« 0x1b3e…1b3f 0x48 0x1b3f…1b40 0xb4 0x1b40…1b74 »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZRPG ?3?,?5?« 0x1b74…1b75 0x1c 0x1b75…1b76 0xb4 0x1b76…1baa »// IF ?2?/LIBRARY IF ?4?=RPG INCLUDE ANLZRPG ?3?,?5?« 0x1baa…1bab 0x1c 0x1bab…1bac 0x81 0x1bac…1bad »*« 0x1bad…1bae 0x04 0x1bae…1baf 0x83 0x1baf…1bb2 »OCL« 0x1bb2…1bb3 0x48 0x1bb3…1bb4 0xb4 0x1bb4…1be8 »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZOCL ?3?,?5?« 0x1be8…1be9 0x1c 0x1be9…1bea 0xb4 0x1bea…1c1e »// IF ?2?/LIBRARY IF ?4?=OCL INCLUDE ANLZOCL ?3?,?5?« 0x1c1e…1c1f 0x1c 0x1c1f…1c20 0x81 0x1c20…1c21 »*« 0x1c21…1c22 0x04 0x1c22…1c23 0x8e 0x1c23…1c31 »MISSING SOURCE« 0x1c31…1c32 0x3d 0x1c32…1c33 0xb4 0x1c33…1c67 »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZSRC ?3?,?5?« 0x1c67…1c68 0x1c 0x1c68…1c69 0xb7 0x1c69…1ca0 »// IF ?2?/LIBRARY IF ?4?=SOURCE INCLUDE ANLZSRC ?3?,?5?« 0x1ca0…1ca1 0x19 0x1ca1…1ca2 0x81 0x1ca2…1ca3 »*« 0x1ca3…1ca4 0x04 0x1ca4…1ca5 0x85 0x1ca5…1caa »QUERY« 0x1caa…1cab 0x46 0x1cab…1cac 0xb4 0x1cac…1ce0 »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZQRY ?3?,?5?« 0x1ce0…1ce1 0x1c 0x1ce1…1ce2 0xb6 0x1ce2…1d18 »// IF ?2?/LIBRARY IF ?4?=QUERY INCLUDE ANLZQRY ?3?,?5?« 0x1d18…1d19 0x1a 0x1d19…1d1a 0x81 0x1d1a…1d1b »*« 0x1d1b…1d1c 0x04 0x1d1c…1d1d 0x86 0x1d1d…1d23 »CONFIG« 0x1d23…1d24 0x45 0x1d24…1d25 0xbe 0x1d25…1d63 »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZCNFG CNFGMBRS,?3?,?5?« 0x1d63…1d64 0x12 0x1d64…1d65 0xc2 0x1d65…1da7 »// IF ?2?/LIBRARY IF ?4?=LIBRCNF INCLUDE ANLZCNFG CNFGMBRS,?3?,?5?« 0x1da7…1da8 0x0e 0x1da8…1da9 0x98 0x1da9…1dc1 »// IF ?2?/LIBRARY RETURN« 0x1dc1…1dc2 0x38 0x1dc2…1dc3 0x81 0x1dc3…1dc4 »*« 0x1dc4…1dc5 0x4f 0x1dc5…1dc6 0x81 0x1dc6…1dc7 »*« 0x1dc7…1dc8 0x02 0x1dc8…1dc9 0x88 0x1dc9…1dd1 »SECURITY« 0x1dd1…1dd2 0x45 0x1dd2…1dd3 0xa7 0x1dd3…1dfa »// IF ?2?/SECURITY INCLUDE ANLZSECP ?5?« 0x1dfa…1dfb 0x29 0x1dfb…1dfc 0x99 0x1dfc…1e15 »// IF ?2?/SECURITY RETURN« 0x1e15…1e16 0x37 0x1e16…1e17 0x81 0x1e17…1e18 »*« 0x1e18…1e19 0x4f 0x1e19…1e1a 0x81 0x1e1a…1e1b »*« 0x1e1b…1e1c 0x02 0x1e1c…1e1d 0x8d 0x1e1d…1e2a »MASTER CONFIG« 0x1e2a…1e2b 0x40 0x1e2b…1e2c 0xad 0x1e2c…1e59 »// IF ?2?/MASTER INCLUDE ANLZCNFG MASTER,,?5?« 0x1e59…1e5a 0x23 0x1e5a…1e5b 0xaf 0x1e5b…1e8a »// IF ?2?/MASTER INCLUDE ANLZCNFG CNFGFILE,,?5?« 0x1e8a…1e8b 0x21 0x1e8b…1e8c 0x97 0x1e8c…1ea3 »// IF ?2?/MASTER RETURN« 0x1ea3…1ea4 0x39 0x1ea4…1ea5 0x81 0x1ea5…1ea6 »*« 0x1ea6…1ea7 0x4f 0x1ea7…1ea8 0x81 0x1ea8…1ea9 »*« 0x1ea9…1eaa 0x02 0x1eaa…1eab 0x88 0x1eab…1eb3 »DATADICT« 0x1eb3…1eb4 0x45 0x1eb4…1eb5 0xab 0x1eb5…1ee0 »// IF ?2?/DATADICT INCLUDE ANLZIDDP ?3?,?5?« 0x1ee0…1ee1 0x25 0x1ee1…1ee2 0x99 0x1ee2…1efb »// IF ?2?/DATADICT RETURN« 0x1efb…1efc 0x37 0x1efc…1efd 0x81 0x1efd…1efe »*« 0x1efe…1eff 0x4f 0x1eff…1f00 0x89 0x1f00…1f09 »// RETURN« 0x1f09…1f0a 0x47 0x1f0a…1f0b 0x81 0x1f0b…1f0c »*« 0x1f0c…1f0d 0x4f 0x1f0d…1f0e 0xc7 0x1f0e…1f55 »***********************************************************************« 0x1f55…1f56 0x09 0x1f56…1f57 0x81 0x1f57…1f58 »*« 0x1f58…1f59 0x04 0x1f59…1f5a 0x8e 0x1f5a…1f68 »MIGRATE SAVE36« 0x1f68…1f69 0x33 0x1f69…1f6a 0x81 0x1f6a…1f6b »*« 0x1f6b…1f6c 0x09 0x1f6c…1f6d 0xc7 0x1f6d…1fb4 »***********************************************************************« 0x1fb4…1fb5 0x09 0x1fb5…1fb6 0x81 0x1fb6…1fb7 »*« 0x1fb7…1fb8 0x4f 0x1fb8…1fb9 0x8d 0x1fb9…1fc6 »// TAG SAVE36« 0x1fc6…1fc7 0x43 0x1fc7…1fc8 0x81 0x1fc8…1fc9 »*« 0x1fc9…1fca 0x4f 0x1fca…1fcb 0x97 0x1fcb…1fe2 »* ERROR CHECK THE PARMS« 0x1fe2…1fe3 0x39 0x1fe3…1fe4 0x81 0x1fe4…1fe5 »*« 0x1fe5…1fe6 0x4f 0x1fe6…1fe7 0x81 0x1fe7…1fe8 »*« 0x1fe8…1fe9 0x02 0x1fe9…1fea 0xa9 0x1fea…2013 »IF NO MEDIA SPECIFIED DEFAULT TO DISKETTE« 0x2013…2014 0x24 0x2014…2015 0x9f 0x2015…2034 »// IF ?2?/ EVALUATE P2=DISKETTE« 0x2034…2035 0x31 0x2035…2036 0x81 0x2036…2037 »*« 0x2037…2038 0x4f 0x2038…2039 0x81 0x2039…203a »*« 0x203a…203b 0x02 0x203b…203c 0x9b 0x203c…2057 »ERROR CHECK MIGRATION MEDIA« 0x2057…2058 0x32 0x2058…2059 0xbe 0x2059…2097 »// IFF ?2?/DISKETTE IFF ?2?/TAPE IFF ?2?/DISK BADPARM EXPORT,2« 0x2097…2098 0x12 0x2098…2099 0x81 0x2099…209a »*« 0x209a…209b 0x4f 0x209b…209c 0x81 0x209c…209d »*« 0x209d…209e 0x02 0x209e…209f 0xac 0x209f…20cb »MAKE SURE VOLUME ID IS FILLED IN IF NOT DISK« 0x20cb…20cc 0x21 0x20cc…20cd 0xa8 0x20cd…20f5 »// IFF ?2?=DISK IF ?3?/ BADPARM EXPORT,3« 0x20f5…20f6 0x28 0x20f6…20f7 0xaa 0x20f7…2121 »// IF ?2?=DISK IFF ?3?='' BADPARM EXPORT,3« 0x2121…2122 0x26 0x2122…2123 0x81 0x2123…2124 »*« 0x2124…2125 0x4f 0x2125…2126 0x81 0x2126…2127 »*« 0x2127…2128 0x02 0x2128…2129 0xa9 0x2129…2152 »FILL IN DEFAULT LOCATION IF NOT SPECIFIED« 0x2152…2153 0x24 0x2153…2154 0xab 0x2154…217f »// IF ?2?/DISKETTE IF ?4?='' EVALUATE P4=S1« 0x217f…2180 0x25 0x2180…2181 0xa7 0x2181…21a8 »// IF ?2?/TAPE IF ?4?='' EVALUATE P4=T1« 0x21a8…21a9 0x29 0x21a9…21aa 0xa7 0x21aa…21d1 »// IF ?2?/DISK IF ?4?='' EVALUATE P4=A1« 0x21d1…21d2 0x29 0x21d2…21d3 0x81 0x21d3…21d4 »*« 0x21d4…21d5 0x4f 0x21d5…21d6 0x81 0x21d6…21d7 »*« 0x21d7…21d8 0x02 0x21d8…21d9 0x9d 0x21d9…21f6 »ERROR CHECK DISKETTE LOCATION« 0x21f6…21f7 0x30 0x21f7…21f8 0x92 0x21f8…220a »// IF ?2?=DISKETTE« 0x220a…220b 0x29 0x220b…220c 0x81 0x220c…220d »+« 0x220d…220e 0x14 0x220e…220f 0x03 0x220f…2210 0xa0 0x2210…2230 »IFF ?4?=S1 IFF ?4?=S2 IFF ?4?=S3« 0x2230…2231 0x18 0x2231…2232 0x81 0x2232…2233 »+« 0x2233…2234 0x14 0x2234…2235 0x03 0x2235…2236 0xb4 0x2236…226a »IFF ?4?=M1 IFF ?4?=M1.01 IFF ?4?=M1.02 IFF ?4?=M1.03« 0x226a…226b 0x04 0x226b…226c 0x81 0x226c…226d »+« 0x226d…226e 0x14 0x226e…226f 0x03 0x226f…2270 0xb9 0x2270…22a9 »IFF ?4?=M1.04 IFF ?4?=M1.05 IFF ?4?=M1.06 IFF ?4?=M1.07 +« 0x22a9…22aa 0x14 0x22aa…22ab 0x03 0x22ab…22ac 0xa9 0x22ac…22d5 »IFF ?4?=M1.08 IFF ?4?=M1.09 IFF ?4?=M1.10« 0x22d5…22d6 0x0f 0x22d6…22d7 0x81 0x22d7…22d8 »+« 0x22d8…22d9 0x14 0x22d9…22da 0x03 0x22da…22db 0xb4 0x22db…230f »IFF ?4?=M2 IFF ?4?=M2.01 IFF ?4?=M2.02 IFF ?4?=M2.03« 0x230f…2310 0x04 0x2310…2311 0x81 0x2311…2312 »+« 0x2312…2313 0x14 0x2313…2314 0x03 0x2314…2315 0xb9 0x2315…234e »IFF ?4?=M2.04 IFF ?4?=M2.05 IFF ?4?=M2.06 IFF ?4?=M2.07 +« 0x234e…234f 0x14 0x234f…2350 0x03 0x2350…2351 0xa9 0x2351…237a »IFF ?4?=M2.08 IFF ?4?=M2.09 IFF ?4?=M2.10« 0x237a…237b 0x0f 0x237b…237c 0x81 0x237c…237d »+« 0x237d…237e 0x14 0x237e…237f 0x03 0x237f…2380 0x90 0x2380…2390 »BADPARM EXPORT,4« 0x2390…2391 0x3d 0x2391…2392 0x81 0x2392…2393 »*« 0x2393…2394 0x4f 0x2394…2395 0x81 0x2395…2396 »*« 0x2396…2397 0x02 0x2397…2398 0x99 0x2398…23b1 »ERROR CHECK TAPE LOCATION« 0x23b1…23b2 0x34 0x23b2…23b3 0x8e 0x23b3…23c1 »// IF ?2?=TAPE« 0x23c1…23c2 0x2d 0x23c2…23c3 0x81 0x23c3…23c4 »+« 0x23c4…23c5 0x14 0x23c5…23c6 0x03 0x23c6…23c7 0xa0 0x23c7…23e7 »IFF ?4?=T1 IFF ?4?=T2 IFF ?4?=TC« 0x23e7…23e8 0x18 0x23e8…23e9 0x81 0x23e9…23ea »+« 0x23ea…23eb 0x14 0x23eb…23ec 0x03 0x23ec…23ed 0x90 0x23ed…23fd »BADPARM EXPORT,4« 0x23fd…23fe 0x3d 0x23fe…23ff 0x81 0x23ff…2400 »*« 0x2400…2401 0x4f 0x2401…2402 0x81 0x2402…2403 »*« 0x2403…2404 0x02 0x2404…2405 0x99 0x2405…241e »ERROR CHECK DISK LOCATION« 0x241e…241f 0x34 0x241f…2420 0x8e 0x2420…242e »// IF ?2?=DISK« 0x242e…242f 0x2d 0x242f…2430 0x81 0x2430…2431 »+« 0x2431…2432 0x14 0x2432…2433 0x03 0x2433…2434 0xab 0x2434…245f »IFF ?4?=A1 IFF ?4?=A2 IFF ?4?=A3 IFF ?4?=A4« 0x245f…2460 0x0d 0x2460…2461 0x81 0x2461…2462 »+« 0x2462…2463 0x14 0x2463…2464 0x03 0x2464…2465 0x90 0x2465…2475 »BADPARM EXPORT,4« 0x2475…2476 0x3d 0x2476…2477 0x81 0x2477…2478 »*« 0x2478…2479 0x4f 0x2479…247a 0x81 0x247a…247b »*« 0x247b…247c 0x02 0x247c…247d 0x9c 0x247d…2499 »ERROR CHECK AUTO/NOAUTO FLAG« 0x2499…249a 0x31 0x249a…249b 0xaa 0x249b…24c5 »// IFF ?2?=DISK IF ?5?='' EVALUATE P5=AUTO« 0x24c5…24c6 0x26 0x24c6…24c7 0xaa 0x24c7…24f1 »// IF ?2?=DISK IFF ?5?='' BADPARM EXPORT,5« 0x24f1…24f2 0x26 0x24f2…24f3 0xb6 0x24f3…2529 »// IFF ?2?=DISK IFF ?4?=TC IFF ?5?/AUTO IFF ?5?/NOAUTO« 0x2529…252a 0x05 0x252a…252b 0x81 0x252b…252c »+« 0x252c…252d 0x14 0x252d…252e 0x03 0x252e…252f 0x90 0x252f…253f »BADPARM EXPORT,5« 0x253f…2540 0x3d 0x2540…2541 0x81 0x2541…2542 »*« 0x2542…2543 0x4f 0x2543…2544 0x81 0x2544…2545 »*« 0x2545…2546 0x02 0x2546…2547 0xa4 0x2547…256b »ENSURE TAPE PARAMETERS ARE FILLED IN« 0x256b…256c 0x29 0x256c…256d 0xab 0x256d…2598 »// IF ?2?=TAPE IF ?6?='' EVALUATE P6=REWIND« 0x2598…2599 0x25 0x2599…259a 0xbc 0x259a…25d6 »// IF ?2?=TAPE IFF ?6?=REWIND IFF ?6?=LEAVE IFF ?6?=UNLOAD +« 0x25d6…25d7 0x14 0x25d7…25d8 0x03 0x25d8…25d9 0x90 0x25d9…25e9 »BADPARM EXPORT,6« 0x25e9…25ea 0x3d 0x25ea…25eb 0xab 0x25eb…2616 »// IFF ?2?=TAPE IFF ?6?='' BADPARM EXPORT,6« 0x2616…2617 0x25 0x2617…2618 0x81 0x2618…2619 »*« 0x2619…261a 0x4f 0x261a…261b 0xa9 0x261b…2644 »// IF ?2?=TAPE IF ?7?='' BADPARM EXPORT,7« 0x2644…2645 0x27 0x2645…2646 0xab 0x2646…2671 »// IFF ?2?=TAPE IFF ?7?='' BADPARM EXPORT,7« 0x2671…2672 0x25 0x2672…2673 0x81 0x2673…2674 »*« 0x2674…2675 0x4f 0x2675…2676 0x81 0x2676…2677 »*« 0x2677…2678 0x02 0x2678…2679 0x99 0x2679…2692 »ERROR CHECK SECURITY FLAG« 0x2692…2693 0x34 0x2693…2694 0x9f 0x2694…26b3 »// IF ?8?='' EVALUATE P8=SECURE« 0x26b3…26b4 0x31 0x26b4…26b5 0xb3 0x26b5…26e8 »// IFF ?8?/SECURE IFF ?8?/NOSECURE BADPARM EXPORT,8« 0x26e8…26e9 0x1d 0x26e9…26ea 0x81 0x26ea…26eb »*« 0x26eb…26ec 0x4f 0x26ec…26ed 0x81 0x26ed…26ee »*« 0x26ee…26ef 0x02 0x26ef…26f0 0xb5 0x26f0…2725 »DEFAULT AS/400 LIBRARY NAME TO QS36F IF NOT FILLED IN« 0x2725…2726 0x18 0x2726…2727 0x9e 0x2727…2745 »// IF ?9?='' EVALUATE P9=QS36F« 0x2745…2746 0x32 0x2746…2747 0x81 0x2747…2748 »*« 0x2748…2749 0x4f 0x2749…274a 0x81 0x274a…274b »*« 0x274b…274c 0x02 0x274c…274d 0xaa 0x274d…2777 »MAKE SURE SELECTION FILE NAME IS FILLED IN« 0x2777…2778 0x23 0x2778…2779 0x9f 0x2779…2798 »// IF ?10?='' BADPARM EXPORT,10« 0x2798…2799 0x31 0x2799…279a 0x81 0x279a…279b »*« 0x279b…279c 0x4f 0x279c…279d 0x81 0x279d…279e »*« 0x279e…279f 0x02 0x279f…27a0 0xb2 0x27a0…27d2 »DEFAULT AUDIT FILE NAME TO $MYAUD IF NOT FILLED IN« 0x27d2…27d3 0x1b 0x27d3…27d4 0xa1 0x27d4…27f5 »// IF ?11?='' EVALUATE P11=$MYAUD« 0x27f5…27f6 0x2f 0x27f6…27f7 0x81 0x27f7…27f8 »*« 0x27f8…27f9 0x4f 0x27f9…27fa 0x81 0x27fa…27fb »*« 0x27fb…27fc 0x02 0x27fc…27fd 0xaf 0x27fd…282c »ERROR CHECK COMMUNICATIONS PROCEDURE PARAMETERS« 0x282c…282d 0x1e 0x282d…282e 0xab 0x282e…2859 »// IF ?2?=DISK IF ?12?='' BADPARM EXPORT,12« 0x2859…285a 0x25 0x285a…285b 0xaf 0x285b…288a »// IF ?2?=DISK IF ?13?='' EVALUATE P13=#LIBRARY« 0x288a…288b 0x21 0x288b…288c 0x81 0x288c…288d »*« 0x288d…288e 0x4f 0x288e…288f 0x81 0x288f…2890 »*« 0x2890…2891 0x02 0x2891…2892 0x95 0x2892…28a7 »ERROR CHECK DBCS FLAG« 0x28a7…28a8 0x38 0x28a8…28a9 0x9f 0x28a9…28c8 »// IF ?14?='' EVALUATE P14=SBCS« 0x28c8…28c9 0x31 0x28c9…28ca 0xb0 0x28ca…28fa »// IFF ?14?=SBCS IFF ?14?=DBCS BADPARM EXPORT,14« 0x28fa…28fb 0x20 0x28fb…28fc 0x81 0x28fc…28fd »*« 0x28fd…28fe 0x02 0x28fe…28ff 0xb6 0x28ff…2935 »CHANGE PARAMETER 14 TO MATCH THE LDA N=SBCS AND Y=DBCS« 0x2935…2936 0x0d 0x2936…2937 0x81 0x2937…2938 »*« 0x2938…2939 0x09 0x2939…293a 0x9e 0x293a…2958 »// IF ?14?=SBCS EVALUATE P14=N« 0x2958…2959 0x32 0x2959…295a 0x9e 0x295a…2978 »// IF ?14?=DBCS EVALUATE P14=Y« 0x2978…2979 0x32 0x2979…297a 0x81 0x297a…297b »*« 0x297b…297c 0x4f 0x297c…297d 0xc7 0x297d…29c4 »***********************************************************************« 0x29c4…29c5 0x09 0x29c5…29c6 0x81 0x29c6…29c7 »*« 0x29c7…29c8 0x04 0x29c8…29c9 0xbc 0x29c9…2a05 »ENTRY POINT FOR INTERACTIVE SAVE (SKIPS ERROR CHECKING SINCE« 0x2a05…2a06 0x05 0x2a06…2a07 0x81 0x2a07…2a08 »*« 0x2a08…2a09 0x09 0x2a09…2a0a 0x81 0x2a0a…2a0b »*« 0x2a0b…2a0c 0x04 0x2a0c…2a0d 0x9a 0x2a0d…2a27 »SAVE36 PROC ALREADY DID IT« 0x2a27…2a28 0x27 0x2a28…2a29 0x81 0x2a29…2a2a »*« 0x2a2a…2a2b 0x09 0x2a2b…2a2c 0xc7 0x2a2c…2a73 »***********************************************************************« 0x2a73…2a74 0x09 0x2a74…2a75 0x81 0x2a75…2a76 »*« 0x2a76…2a77 0x4f 0x2a77…2a78 0x8d 0x2a78…2a85 »// TAG EXPORT« 0x2a85…2a86 0x43 0x2a86…2a87 0x81 0x2a87…2a88 »*« 0x2a88…2a89 0x4f 0x2a89…2a8a 0xad 0x2a8a…2ab7 »* DELETE THE TAPE SELECTION FILE IF IT EXISTS« 0x2ab7…2ab8 0x23 0x2ab8…2ab9 0xa6 0x2ab9…2adf »// IF DATAF1-$MYMIGR DELETE $MYMIGR,F1« 0x2adf…2ae0 0x2a 0x2ae0…2ae1 0x81 0x2ae1…2ae2 »*« 0x2ae2…2ae3 0x4f 0x2ae3…2ae4 0xa1 0x2ae4…2b05 »* DELETE ACTION FILE IF IT EXISTS« 0x2b05…2b06 0x2f 0x2b06…2b07 0xa4 0x2b07…2b2b »// IF DATAF1-$MYACT DELETE $MYACT,F1« 0x2b2b…2b2c 0x2c 0x2b2c…2b2d 0x81 0x2b2d…2b2e »*« 0x2b2e…2b2f 0x4f 0x2b2f…2b30 0x9e 0x2b30…2b4e »* DELETE END FILE IF IT EXISTS« 0x2b4e…2b4f 0x32 0x2b4f…2b50 0xa4 0x2b50…2b74 »// IF DATAF1-$MYEND DELETE $MYEND,F1« 0x2b74…2b75 0x2c 0x2b75…2b76 0x81 0x2b76…2b77 »*« 0x2b77…2b78 0x4f 0x2b78…2b79 0xc0 0x2b79…2bb9 »* MAKE THE ACTION FILE 80 RECORDS BIGGER THAN THE SELECTION FILE« 0x2bb9…2bba 0x10 0x2bba…2bbb 0xa0 0x2bbb…2bdb »// EVALUATE P59,8=?F'S,?10?'?+80« 0x2bdb…2bdc 0x30 0x2bdc…2bdd 0x81 0x2bdd…2bde »*« 0x2bde…2bdf 0x4f 0x2bdf…2be0 0xa8 0x2be0…2c08 »* USE BLDFILE PROC TO CREATE ACTION FILE« 0x2c08…2c09 0x28 0x2c09…2c0a 0x81 0x2c0a…2c0b »*« 0x2c0b…2c0c 0x4f 0x2c0c…2c0d 0xab 0x2c0d…2c38 »BLDFILE $MYACT,I,R,?59?,32,,,1,9,,DUPKEY,80« 0x2c38…2c39 0x25 0x2c39…2c3a 0x81 0x2c3a…2c3b »*« 0x2c3b…2c3c 0x4f 0x2c3c…2c3d 0xbb 0x2c3d…2c78 »* IF THE MEDIA IS TAPE, THEN CREATE THE TAPE SELECTION FILE« 0x2c78…2c79 0x15 0x2c79…2c7a 0x81 0x2c7a…2c7b »*« 0x2c7b…2c7c 0x4f 0x2c7c…2c7d 0xbb 0x2c7d…2cb8 »// IF ?2?=TAPE BLDFILE $MYMIGR,I,R,?59?,15,,,1,14,DFILE,,40« 0x2cb8…2cb9 0x15 0x2cb9…2cba 0x81 0x2cba…2cbb »*« 0x2cbb…2cbc 0x4f 0x2cbc…2cbd 0xa8 0x2cbd…2ce5 »* USE BLDFILE PROC TO CREATE ENDING FILE« 0x2ce5…2ce6 0x28 0x2ce6…2ce7 0x81 0x2ce7…2ce8 »*« 0x2ce8…2ce9 0x4f 0x2ce9…2cea 0x96 0x2cea…2d00 »BLDFILE $MYEND,S,R,1,1« 0x2d00…2d01 0x3a 0x2d01…2d02 0x81 0x2d02…2d03 »*« 0x2d03…2d04 0x4f 0x2d04…2d05 0xc2 0x2d05…2d47 »* ALLOCATE THE ACTION FILE OUTSIDE A LOAD-RUN TO KEEP IT ALLOCATED« 0x2d47…2d48 0x0e 0x2d48…2d49 0xa0 0x2d49…2d69 »* // FILE NAME-$MYACT,DISP-SHRMR« 0x2d69…2d6a 0x30 0x2d6a…2d6b 0x81 0x2d6b…2d6c »*« 0x2d6c…2d6d 0x4f 0x2d6d…2d6e 0x9f 0x2d6e…2d8d »* SET UP THE LDA WITH THE PARMS« 0x2d8d…2d8e 0x31 0x2d8e…2d8f 0x81 0x2d8f…2d90 »*« 0x2d90…2d91 0x4f 0x2d91…2d92 0x8c 0x2d92…2d9e »* MEDIA TYPE« 0x2d9e…2d9f 0x44 0x2d9f…2da0 0xa7 0x2da0…2dc7 »// LOCAL AREA-SYSTEM,OFFSET-293,BLANK-1« 0x2dc7…2dc8 0x29 0x2dc8…2dc9 0xb8 0x2dc9…2e01 »// IF ?2?=DISKETTE LOCAL AREA-SYSTEM,OFFSET-293,DATA-'1'« 0x2e01…2e02 0x18 0x2e02…2e03 0xb4 0x2e03…2e37 »// IF ?2?=TAPE LOCAL AREA-SYSTEM,OFFSET-293,DATA-'2'« 0x2e37…2e38 0x1c 0x2e38…2e39 0xb4 0x2e39…2e6d »// IF ?2?=DISK LOCAL AREA-SYSTEM,OFFSET-293,DATA-'3'« 0x2e6d…2e6e 0x1c 0x2e6e…2e6f 0x81 0x2e6f…2e70 »*« 0x2e70…2e71 0x4f 0x2e71…2e72 0x87 0x2e72…2e79 »* VOLID« 0x2e79…2e7a 0x49 0x2e7a…2e7b 0xb2 0x2e7b…2ead »// LOCAL AREA-SYSTEM,OFFSET-294,DATA-'?3?',BLANK-6« 0x2ead…2eae 0x1e 0x2eae…2eaf 0x81 0x2eaf…2eb0 »*« 0x2eb0…2eb1 0x4f 0x2eb1…2eb2 0x8a 0x2eb2…2ebc »* LOCATION« 0x2ebc…2ebd 0x46 0x2ebd…2ebe 0xb2 0x2ebe…2ef0 »// LOCAL AREA-SYSTEM,OFFSET-300,DATA-'?4?',BLANK-5« 0x2ef0…2ef1 0x1e 0x2ef1…2ef2 0x81 0x2ef2…2ef3 »*« 0x2ef3…2ef4 0x4f 0x2ef4…2ef5 0x8d 0x2ef5…2f02 »* AUTO/NOAUTO« 0x2f02…2f03 0x43 0x2f03…2f04 0xbc 0x2f04…2f40 »// IF ?5?=AUTO LOCAL AREA-SYSTEM,OFFSET-305,DATA-'1',BLANK-1« 0x2f40…2f41 0x14 0x2f41…2f42 0xb5 0x2f42…2f77 »// ELSE LOCAL AREA-SYSTEM,OFFSET-305,DATA-'2',BLANK-1« 0x2f77…2f78 0x1b 0x2f78…2f79 0x81 0x2f79…2f7a »*« 0x2f7a…2f7b 0x4f 0x2f7b…2f7c 0x97 0x2f7c…2f93 »* USER PROC AND LIBRARY« 0x2f93…2f94 0x39 0x2f94…2f95 0xb3 0x2f95…2fc8 »// LOCAL AREA-SYSTEM,OFFSET-421,BLANK-8,DATA-'?12?'« 0x2fc8…2fc9 0x1d 0x2fc9…2fca 0xb3 0x2fca…2ffd »// LOCAL AREA-SYSTEM,OFFSET-429,BLANK-8,DATA-'?13?'« 0x2ffd…2ffe 0x1d 0x2ffe…2fff 0x81 0x2fff…3000 »*« 0x3000…3001 0x4f 0x3001…3002 0x91 0x3002…3013 »* SECURE/NOSECURE« 0x3013…3014 0x3f 0x3014…3015 0xbe 0x3015…3053 »// IF ?8?=SECURE LOCAL AREA-SYSTEM,OFFSET-308,DATA-'1',BLANK-1« 0x3053…3054 0x12 0x3054…3055 0xb5 0x3055…308a »// ELSE LOCAL AREA-SYSTEM,OFFSET-308,DATA-'2',BLANK-1« 0x308a…308b 0x1b 0x308b…308c 0x81 0x308c…308d »*« 0x308d…308e 0x4f 0x308e…308f 0x90 0x308f…309f »* TARGET LIBRARY« 0x309f…30a0 0x40 0x30a0…30a1 0xb3 0x30a1…30d4 »// LOCAL AREA-SYSTEM,OFFSET-317,DATA-'?9?',BLANK-10« 0x30d4…30d5 0x1d 0x30d5…30d6 0x81 0x30d6…30d7 »*« 0x30d7…30d8 0x4f 0x30d8…30d9 0x90 0x30d9…30e9 »* DBCS INDICATOR« 0x30e9…30ea 0x40 0x30ea…30eb 0xb3 0x30eb…311e »// LOCAL AREA-SYSTEM,OFFSET-343,DATA-'?14?',BLANK-1« 0x311e…311f 0x1d 0x311f…3120 0x81 0x3120…3121 »*« 0x3121…3122 0x4f 0x3122…3123 0xb2 0x3123…3155 »* CHECK VOLID AND TARGET LIBRARY NAME FOR ACCURACY« 0x3155…3156 0x1e 0x3156…3157 0x94 0x3157…316b »// LOAD #MYEC,#MYLIB« 0x316b…316c 0x3c 0x316c…316d 0x86 0x316d…3173 »// RUN« 0x3173…3174 0x4a 0x3174…3175 0xa7 0x3175…319c »// IF ?L'336,1'?/2 #ERR 1545,3,MIGR,?9?« 0x319c…319d 0x29 0x319d…319e 0xb7 0x319e…31d5 »// IF ?L'337,1'?/2 IF ?2?/DISKETTE #ERR 1546,3,MIGR,?3?« 0x31d5…31d6 0x19 0x31d6…31d7 0x81 0x31d7…31d8 »*« 0x31d8…31d9 0x4f 0x31d9…31da 0x9b 0x31da…31f5 »* SELECTION FILE MUST EXIST« 0x31f5…31f6 0x35 0x31f6…31f7 0xa8 0x31f7…321f »// IFF DATAF1-?10? #ERR 1511,3,MIGR,?10?« 0x321f…3220 0x28 0x3220…3221 0x81 0x3221…3222 »*« 0x3222…3223 0x4f 0x3223…3224 0x95 0x3224…3239 »* SELECTION FILE NAME« 0x3239…323a 0x3b 0x323a…323b 0xa9 0x323b…3264 »* (INTERACTIVE PATH MUST FILL IN PARM 10)« 0x3264…3265 0x27 0x3265…3266 0xb3 0x3266…3299 »// LOCAL AREA-SYSTEM,OFFSET-101,DATA-'?10?',BLANK-8« 0x3299…329a 0x1d 0x329a…329b 0x81 0x329b…329c »*« 0x329c…329d 0x4f 0x329d…329e 0xbd 0x329e…32db »* AUDIT FILE NAME (IF BLANK, 117 WILL CONTAIN DEFAULT $MYAUD)« 0x32db…32dc 0x13 0x32dc…32dd 0x8c 0x32dd…32e9 »// IFF ?11?/« 0x32e9…32ea 0x02 0x32ea…32eb 0xb0 0x32eb…331b »LOCAL AREA-SYSTEM,OFFSET-117,DATA-'?11?',BLANK-8« 0x331b…331c 0x12 0x331c…331d 0x81 0x331d…331e »*« 0x331e…331f 0x4f 0x331f…3320 0xaf 0x3320…334f »* DELETE TEMP FILES AND LIBRARIES IF THEY EXIST« 0x334f…3350 0x21 0x3350…3351 0xb3 0x3351…3384 »// IF DATAF1-$MYPROF DELETE $MYPROF,F1,SCRATCH,,ALL« 0x3384…3385 0x1d 0x3385…3386 0xb4 0x3386…33ba »// IF DATAF1-#MYLIB2 DELETE #MYLIB2,F1,SCRATCH,,LIBR« 0x33ba…33bb 0x1c 0x33bb…33bc 0xb4 0x33bc…33f0 »// IF DATAF1-#MYLIB4 DELETE #MYLIB4,F1,SCRATCH,,LIBR« 0x33f0…33f1 0x1c 0x33f1…33f2 0x9d 0x33f2…340f »* CREATE TEMP LIBRARY #MYLIB4« 0x340f…3410 0x33 0x3410…3411 0x8e 0x3411…341f »// LOAD $MAINT« 0x341f…3420 0x42 0x3420…3421 0x86 0x3421…3427 »// RUN« 0x3427…3428 0x4a 0x3428…3429 0xc2 0x3429…346b »// ALLOCATE STATUS-CREATE,LIBRNAME-#MYLIB4,LIBRSIZE-100,DIRSIZE-10« 0x346b…346c 0x0e 0x346c…346d 0x86 0x346d…3473 »// END« 0x3473…3474 0x4a 0x3474…3475 0x81 0x3475…3476 »*« 0x3476…3477 0x4f 0x3477…3478 0xac 0x3478…34a4 »* PUT OUT TRANSPORTATION IN PROGRESS MESSAGE« 0x34a4…34a5 0x24 0x34a5…34a6 0x89 0x34a6…34af »// * 1183« 0x34af…34b0 0x47 0x34b0…34b1 0x81 0x34b1…34b2 »*« 0x34b2…34b3 0x4f 0x34b3…34b4 0xa4 0x34b4…34d8 »* CALL THE ACTION FILE BUILD PROGRAM« 0x34d8…34d9 0x2c 0x34d9…34da 0x94 0x34da…34ee »// LOAD #MYEA,#MYLIB« 0x34ee…34ef 0x3c 0x34ef…34f0 0xab 0x34f0…351b »// FILE NAME-ACTION,LABEL-$MYACT,DISP-SHRMR« 0x351b…351c 0x25 0x351c…351d 0xad 0x351d…354a »// FILE NAME-SELECT,LABEL-?L'101,8'?,DISP-OLD« 0x354a…354b 0x23 0x354b…354c 0x86 0x354c…3552 »// RUN« 0x3552…3553 0x4a 0x3553…3554 0x81 0x3554…3555 »*« 0x3555…3556 0x4f 0x3556…3557 0xc5 0x3557…359c »* IF A PARM 11 IS GIVEN (USER AUDIT FILE) PUT THIS IN LOCAL DATA AREA« 0x359c…359d 0x0b 0x359d…359e 0xbd 0x359e…35db »// IFF ?11?/ LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'?11?'« 0x35db…35dc 0x13 0x35dc…35dd 0xc6 0x35dd…3623 »* CREATE AUDIT FILE IF IT DOESN'T EXIST (DEFAULT-$MYAUD IN 117 OF LDA)« 0x3623…3624 0x0a 0x3624…3625 0xc8 0x3625…366d »// IFF DATAF1-?L'117,8'? BLDFILE ?L'117,8'?,I,R,100,32,,,1,10,,DUPKEY,80« 0x366d…366e 0x08 0x366e…366f 0x81 0x366f…3670 »*« 0x3670…3671 0x4f 0x3671…3672 0x99 0x3672…368b »* CALL THE EXPORT PROGRAM« 0x368b…368c 0x37 0x368c…368d 0x94 0x368d…36a1 »// LOAD #MYEX,#MYLIB« 0x36a1…36a2 0x3c 0x36a2…36a3 0xae 0x36a3…36d1 »// FILE NAME-AUDIT,LABEL-?L'117,8'?,DISP-SHRMM« 0x36d1…36d2 0x22 0x36d2…36d3 0x86 0x36d3…36d9 »// RUN« 0x36d9…36da 0x4a 0x36da…36db 0x81 0x36db…36dc »*« 0x36dc…36dd 0x4f 0x36dd…36de 0xa2 0x36de…3700 »* DELETE TEMP LIBRARY IF IT EXISTS« 0x3700…3701 0x2e 0x3701…3702 0xb4 0x3702…3736 »// IF DATAF1-#MYLIB4 DELETE #MYLIB4,F1,SCRATCH,,LIBR« 0x3736…3737 0x1c 0x3737…3738 0x81 0x3738…3739 »*« 0x3739…373a 0x4f 0x373a…373b 0xbc 0x373b…3777 »* CALL #MYCT TO DELETE SELECTION FILE RECORD IN CONTROL FILE« 0x3777…3778 0x14 0x3778…3779 0xa8 0x3779…37a1 »// LOCAL AREA-SYSTEM,OFFSET-238,DATA-'4'« 0x37a1…37a2 0x28 0x37a2…37a3 0x8d 0x37a3…37b0 »// LOAD #MYCT« 0x37b0…37b1 0x43 0x37b1…37b2 0x86 0x37b2…37b8 »// RUN« 0x37b8…37b9 0x4a 0x37b9…37ba 0x81 0x37ba…37bb »*« 0x37bb…37bc 0x4f 0x37bc…37bd 0x97 0x37bd…37d4 »* DELETE SELECTION FILE« 0x37d4…37d5 0x39 0x37d5…37d6 0xac 0x37d6…3802 »// IF DATAF1-?L'101,8'? DELETE ?L'101,8'?,F1« 0x3802…3803 0x24 0x3803…3804 0x81 0x3804…3805 »*« 0x3805…3806 0x4f 0x3806…3807 0xaa 0x3807…3831 »* CALL EXCEPTION REPORT GENERATION PROGRAM« 0x3831…3832 0x26 0x3832…3833 0x93 0x3833…3846 »// INCLUDE MYREPEXP« 0x3846…3847 0x3d 0x3847…3848 0x81 0x3848…3849 »*« 0x3849…384a 0x4f 0x384a…384b 0x98 0x384b…3863 »* DELETE ACTION FILE NOW« 0x3863…3864 0x38 0x3864…3865 0xa4 0x3865…3889 »// IF DATAF1-$MYACT DELETE $MYACT,F1« 0x3889…388a 0x2c 0x388a…388b 0x81 0x388b…388c »*« 0x388c…388d 0x4f 0x388d…388e 0x98 0x388e…38a6 »* DELETE ENDING FILE NOW« 0x38a6…38a7 0x38 0x38a7…38a8 0xa4 0x38a8…38cc »// IF DATAF1-$MYEND DELETE $MYEND,F1« 0x38cc…38cd 0x2c 0x38cd…38ce 0x81 0x38ce…38cf »*« 0x38cf…38d0 0x4f 0x38d0…38d1 0x89 0x38d1…38da »// RETURN« 0x38da…38db 0x47 0x38db…38dc 0x81 0x38dc…38dd »*« 0x38dd…38de 0x4f 0x38de…38df 0xc7 0x38df…3926 »***********************************************************************« 0x3926…3927 0x09 0x3927…3928 0x81 0x3928…3929 »*« 0x3929…392a 0x04 0x392a…392b 0x8f 0x392b…393a »MIGRATE REPORTS« 0x393a…393b 0x32 0x393b…393c 0x81 0x393c…393d »*« 0x393d…393e 0x09 0x393e…393f 0xc7 0x393f…3986 »***********************************************************************« 0x3986…3987 0x09 0x3987…3988 0x81 0x3988…3989 »*« 0x3989…398a 0x4f 0x398a…398b 0x8e 0x398b…3999 »// TAG REPORTS« 0x3999…399a 0x42 0x399a…399b 0x81 0x399b…399c »*« 0x399c…399d 0x4f 0x399d…399e 0xa4 0x399e…39c2 »// IF DATAF1-$MYWK0 DELETE $MYWK0,F1« 0x39c2…39c3 0x2c 0x39c3…39c4 0xa4 0x39c4…39e8 »// IF DATAF1-$MYWK1 DELETE $MYWK1,F1« 0x39e8…39e9 0x2c 0x39e9…39ea 0xa4 0x39ea…3a0e »// IF DATAF1-$MYIND DELETE $MYIND,F1« 0x3a0e…3a0f 0x2c 0x3a0f…3a10 0xa6 0x3a10…3a36 »// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1« 0x3a36…3a37 0x2a 0x3a37…3a38 0x81 0x3a38…3a39 »*« 0x3a39…3a3a 0x4f 0x3a3a…3a3b 0xa3 0x3a3b…3a5e »* IF PARMS WERE BLANK, DEFAULT THEM« 0x3a5e…3a5f 0x2d 0x3a5f…3a60 0x81 0x3a60…3a61 »*« 0x3a61…3a62 0x4f 0x3a62…3a63 0xa1 0x3a63…3a84 »// IF ?2?='' EVALUATE P2=MIGRATED« 0x3a84…3a85 0x2f 0x3a85…3a86 0xb0 0x3a86…3ab6 »// IF ?3?='' IF ?2?=MIGRATED EVALUATE P3=SORTRUN« 0x3ab6…3ab7 0x20 0x3ab7…3ab8 0xad 0x3ab8…3ae5 »// IF ?4?='' IF ?2?=MIGRATED EVALUATE P4=LAST« 0x3ae5…3ae6 0x23 0x3ae6…3ae7 0xad 0x3ae7…3b14 »// IF ?5?='' IFF ?2?=ANALYZED EVALUATE P5=ALL« 0x3b14…3b15 0x23 0x3b15…3b16 0x81 0x3b16…3b17 »*« 0x3b17…3b18 0x4f 0x3b18…3b19 0xa8 0x3b19…3b41 »* ERROR CHECK COMBINATIONS OF PARAMETERS« 0x3b41…3b42 0x28 0x3b42…3b43 0x81 0x3b43…3b44 »*« 0x3b44…3b45 0x4f 0x3b45…3b46 0xaf 0x3b46…3b75 »// IFF ?2?=MIGRATED IFF ?3?='' #ERR 1550,3,MIGR« 0x3b75…3b76 0x21 0x3b76…3b77 0xaf 0x3b77…3ba6 »// IFF ?2?=MIGRATED IFF ?4?='' #ERR 1551,3,MIGR« 0x3ba6…3ba7 0x21 0x3ba7…3ba8 0xae 0x3ba8…3bd6 »// IF ?2?=ANALYZED IFF ?5?='' BADPARM EXPORT,5« 0x3bd6…3bd7 0x22 0x3bd7…3bd8 0xa9 0x3bd8…3c01 »// IF ?4?=ALL IFF ?7?='' #ERR 1553,3,MIGR« 0x3c01…3c02 0x27 0x3c02…3c03 0x81 0x3c03…3c04 »*« 0x3c04…3c05 0x4f 0x3c05…3c06 0xa6 0x3c06…3c2c »* HANDLE BATCH INTERFACE IF NECCESSARY« 0x3c2c…3c2d 0x2a 0x3c2d…3c2e 0x81 0x3c2e…3c2f »*« 0x3c2f…3c30 0x4f 0x3c30…3c31 0xa8 0x3c31…3c59 »// LOCAL AREA-SYSTEM,DATA-' ',OFFSET-359« 0x3c59…3c5a 0x28 0x3c5a…3c5b 0x9b 0x3c5b…3c76 »// IF ?4?=FILE GOTO ALLRUNS« 0x3c76…3c77 0x35 0x3c77…3c78 0x9a 0x3c78…3c92 »// IF ?4?=ALL GOTO ALLRUNS« 0x3c92…3c93 0x36 0x3c93…3c94 0x9c 0x3c94…3cb0 »// IFF ?4?=LAST GOTO NOTLAST« 0x3cb0…3cb1 0x34 0x3cb1…3cb2 0xa8 0x3cb2…3cda »// LOCAL AREA-SYSTEM,DATA-'L',OFFSET-359« 0x3cda…3cdb 0x28 0x3cdb…3cdc 0x8f 0x3cdc…3ceb »// GOTO MYRRTAG« 0x3ceb…3cec 0x41 0x3cec…3ced 0x8e 0x3ced…3cfb »// TAG NOTLAST« 0x3cfb…3cfc 0x42 0x3cfc…3cfd 0xa8 0x3cfd…3d25 »// LOCAL AREA-SYSTEM,DATA-'F',OFFSET-359« 0x3d25…3d26 0x28 0x3d26…3d27 0xb2 0x3d27…3d59 »// LOCAL AREA-SYSTEM,DATA-'?4?',OFFSET-378,BLANK-8« 0x3d59…3d5a 0x1e 0x3d5a…3d5b 0x8e 0x3d5b…3d69 »// TAG MYRRTAG« 0x3d69…3d6a 0x42 0x3d6a…3d6b 0x94 0x3d6b…3d7f »// LOAD #MYRR,#MYLIB« 0x3d7f…3d80 0x3c 0x3d80…3d81 0x86 0x3d81…3d87 »// RUN« 0x3d87…3d88 0x4a 0x3d88…3d89 0x99 0x3d89…3da2 »// EVALUATE P7=?L'378,8'?« 0x3da2…3da3 0x37 0x3da3…3da4 0x93 0x3da4…3db7 »// EVALUATE P4=FILE« 0x3db7…3db8 0x3d 0x3db8…3db9 0x8e 0x3db9…3dc7 »// TAG ALLRUNS« 0x3dc7…3dc8 0x42 0x3dc8…3dc9 0x81 0x3dc9…3dca »*« 0x3dca…3dcb 0x4f 0x3dcb…3dcc 0xc8 0x3dcc…3e14 »* MYEC PUTS SESSION DATE FORMAT INTO LDA (AS WELL AS THE CHECKING FUNCT)« 0x3e14…3e15 0x08 0x3e15…3e16 0x94 0x3e16…3e2a »// LOAD #MYEC,#MYLIB« 0x3e2a…3e2b 0x3c 0x3e2b…3e2c 0x86 0x3e2c…3e32 »// RUN« 0x3e32…3e33 0x4a 0x3e33…3e34 0x81 0x3e34…3e35 »*« 0x3e35…3e36 0x4f 0x3e36…3e37 0x97 0x3e37…3e4e »* ERROR CHECK THE PARMS« 0x3e4e…3e4f 0x39 0x3e4f…3e50 0xc6 0x3e50…3e96 »// IFF ?2?/MIGRATED IFF ?2?/NOTMIGR IFF ?2?/ANALYZED BADPARM REPORTS,2« 0x3e96…3e97 0x0a 0x3e97…3e98 0xa3 0x3e98…3ebb »// IFF ?3?/SORTRUN IFF ?3?/SORTITEM« 0x3ebb…3ebc 0x02 0x3ebc…3ebd 0x9a 0x3ebd…3ed7 »IFF ?3?/ BADPARM REPORTS,3« 0x3ed7…3ed8 0x11 0x3ed8…3ed9 0x9f 0x3ed9…3ef8 »// IF ?2?/ANALYZED GOTO RECOMBO« 0x3ef8…3ef9 0x31 0x3ef9…3efa 0xc6 0x3efa…3f40 »// IFF ?5?/LDA IFF ?5?/LIBRARY IFF ?5?/FILE IFF ?5?/USER GOTO RE5MORE1« 0x3f40…3f41 0x0a 0x3f41…3f42 0x8f 0x3f42…3f51 »// GOTO RECOMBO« 0x3f51…3f52 0x41 0x3f52…3f53 0x81 0x3f53…3f54 »*« 0x3f54…3f55 0x4f 0x3f55…3f56 0x8f 0x3f56…3f65 »// TAG RE5MORE1« 0x3f65…3f66 0x41 0x3f66…3f67 0xcd 0x3f67…3fb4 »// IFF ?5?/FOLDER IFF ?5?/SPELDICT IFF ?5?/DATADICT IFF ?5?/NRD GOTO RE5MORE2« 0x3fb4…3fb5 0x03 0x3fb5…3fb6 0x8f 0x3fb6…3fc5 »// GOTO RECOMBO« 0x3fc5…3fc6 0x41 0x3fc6…3fc7 0x81 0x3fc7…3fc8 »*« 0x3fc8…3fc9 0x4f 0x3fc9…3fca 0x8f 0x3fca…3fd9 »// TAG RE5MORE2« 0x3fd9…3fda 0x41 0x3fda…3fdb 0xae 0x3fdb…4009 »// IFF ?5?/MASTER IFF ?5?/ALL BADPARM EXPORT,5« 0x4009…400a 0x22 0x400a…400b 0x8e 0x400b…4019 »// TAG RECOMBO« 0x4019…401a 0x42 0x401a…401b 0x81 0x401b…401c »*« 0x401c…401d 0x4f 0x401d…401e 0x9f 0x401e…403d »* SET UP THE LDA WITH THE PARMS« 0x403d…403e 0x31 0x403e…403f 0x81 0x403f…4040 »*« 0x4040…4041 0x4f 0x4041…4042 0x8d 0x4042…404f »* REPORT TYPE« 0x404f…4050 0x43 0x4050…4051 0xa7 0x4051…4078 »// LOCAL AREA-SYSTEM,OFFSET-357,BLANK-1« 0x4078…4079 0x29 0x4079…407a 0xb8 0x407a…40b2 »// IF ?2?=MIGRATED LOCAL AREA-SYSTEM,OFFSET-357,DATA-'M'« 0x40b2…40b3 0x18 0x40b3…40b4 0xb7 0x40b4…40eb »// IF ?2?=NOTMIGR LOCAL AREA-SYSTEM,OFFSET-357,DATA-'N'« 0x40eb…40ec 0x19 0x40ec…40ed 0xb8 0x40ed…4125 »// IF ?2?=ANALYZED LOCAL AREA-SYSTEM,OFFSET-357,DATA-'A'« 0x4125…4126 0x18 0x4126…4127 0x81 0x4127…4128 »*« 0x4128…4129 0x4f 0x4129…412a 0x8b 0x412a…4135 »* SORT TYPE« 0x4135…4136 0x45 0x4136…4137 0xbf 0x4137…4176 »// IF ?3?=SORTRUN LOCAL AREA-SYSTEM,OFFSET-358,DATA-'R',BLANK-1« 0x4176…4177 0x11 0x4177…4178 0xb5 0x4178…41ad »// ELSE LOCAL AREA-SYSTEM,OFFSET-358,DATA-'I',BLANK-1« 0x41ad…41ae 0x1b 0x41ae…41af 0x81 0x41af…41b0 »*« 0x41b0…41b1 0x4f 0x41b1…41b2 0x8a 0x41b2…41bc »* RUN FLAG« 0x41bc…41bd 0x46 0x41bd…41be 0xb3 0x41be…41f1 »// IF ?4?=ALL LOCAL AREA-SYSTEM,OFFSET-359,DATA-'A'« 0x41f1…41f2 0x1d 0x41f2…41f3 0xad 0x41f3…4220 »// ELSE LOCAL AREA-SYSTEM,OFFSET-359,DATA-'F'« 0x4220…4221 0x23 0x4221…4222 0x81 0x4222…4223 »*« 0x4223…4224 0x4f 0x4224…4225 0x98 0x4225…423d »* RUN NUMBER FILE IN LDA« 0x423d…423e 0x38 0x423e…423f 0xb2 0x423f…4271 »// LOCAL AREA-SYSTEM,OFFSET-378,BLANK-8,DATA-'?7?'« 0x4271…4272 0x1e 0x4272…4273 0x81 0x4273…4274 »*« 0x4274…4275 0x4f 0x4275…4276 0xbe 0x4276…42b4 »* PUT USER AUDIT FILE IN LDA IF PRESENT (ELSE WILL USE $MYAUD)« 0x42b4…42b5 0x12 0x42b5…42b6 0x8b 0x42b6…42c1 »// IFF ?6?/« 0x42c1…42c2 0x02 0x42c2…42c3 0xaf 0x42c3…42f2 »LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'?6?'« 0x42f2…42f3 0x14 0x42f3…42f4 0x81 0x42f4…42f5 »*« 0x42f5…42f6 0x4f 0x42f6…42f7 0xbe 0x42f7…4335 »* MIGRATION OBJECT TO REPORT ON (LDA MEANS LDA ALREADY SET UP)« 0x4335…4336 0x12 0x4336…4337 0xc7 0x4337…437e »// IF ?5?=LDA IFF ?8?/ LOCAL AREA-SYSTEM,OFFSET-360,BLANK-18,DATA-'?8?'« 0x437e…437f 0x09 0x437f…4380 0x9a 0x4380…439a »// IF ?5?=LDA GOTO REPROGS« 0x439a…439b 0x36 0x439b…439c 0xa8 0x439c…43c4 »// LOCAL AREA-SYSTEM,OFFSET-360,BLANK-18« 0x43c4…43c5 0x28 0x43c5…43c6 0xb3 0x43c6…43f9 »// IF ?5?=ALL LOCAL AREA-SYSTEM,DATA-'1',OFFSET-360« 0x43f9…43fa 0x1d 0x43fa…43fb 0xb7 0x43fb…4432 »// IF ?5?=LIBRARY LOCAL AREA-SYSTEM,DATA-'1',OFFSET-361« 0x4432…4433 0x19 0x4433…4434 0xb4 0x4434…4468 »// IF ?5?=FILE LOCAL AREA-SYSTEM,DATA-'1',OFFSET-362« 0x4468…4469 0x1c 0x4469…446a 0xb4 0x446a…449e »// IF ?5?=USER LOCAL AREA-SYSTEM,DATA-'1',OFFSET-363« 0x449e…449f 0x1c 0x449f…44a0 0xb6 0x44a0…44d6 »// IF ?5?=FOLDER LOCAL AREA-SYSTEM,DATA-'1',OFFSET-364« 0x44d6…44d7 0x1a 0x44d7…44d8 0xb8 0x44d8…4510 »// IF ?5?=SPELDICT LOCAL AREA-SYSTEM,DATA-'1',OFFSET-365« 0x4510…4511 0x18 0x4511…4512 0xb8 0x4512…454a »// IF ?5?=DATADICT LOCAL AREA-SYSTEM,DATA-'1',OFFSET-366« 0x454a…454b 0x18 0x454b…454c 0xb3 0x454c…457f »// IF ?5?=NRD LOCAL AREA-SYSTEM,DATA-'1',OFFSET-367« 0x457f…4580 0x1d 0x4580…4581 0xb6 0x4581…45b7 »// IF ?5?=MASTER LOCAL AREA-SYSTEM,DATA-'1',OFFSET-368« 0x45b7…45b8 0x1a 0x45b8…45b9 0x81 0x45b9…45ba »*« 0x45ba…45bb 0x4f 0x45bb…45bc 0x9a 0x45bc…45d6 »* CALL THE REPORT PROGRAMS« 0x45d6…45d7 0x36 0x45d7…45d8 0x8e 0x45d8…45e6 »// TAG REPROGS« 0x45e6…45e7 0x42 0x45e7…45e8 0x81 0x45e8…45e9 »*« 0x45e9…45ea 0x4f 0x45ea…45eb 0x81 0x45eb…45ec »*« 0x45ec…45ed 0x02 0x45ed…45ee 0x88 0x45ee…45f6 »MIGRATED« 0x45f6…45f7 0x45 0x45f7…45f8 0xa3 0x45f8…461b »// IF ?2?=MIGRATED INCLUDE MYREPMIG« 0x461b…461c 0x2d 0x461c…461d 0x9f 0x461d…463c »// IF ?2?=MIGRATED GOTO DONEREP« 0x463c…463d 0x31 0x463d…463e 0x81 0x463e…463f »*« 0x463f…4640 0x4f 0x4640…4641 0x81 0x4641…4642 »*« 0x4642…4643 0x02 0x4643…4644 0x8c 0x4644…4650 »NOT MIGRATED« 0x4650…4651 0x41 0x4651…4652 0xa2 0x4652…4674 »// IF ?2?=NOTMIGR INCLUDE MYREPNMG« 0x4674…4675 0x2e 0x4675…4676 0x9e 0x4676…4694 »// IF ?2?=NOTMIGR GOTO DONEREP« 0x4694…4695 0x32 0x4695…4696 0x81 0x4696…4697 »*« 0x4697…4698 0x4f 0x4698…4699 0x81 0x4699…469a »*« 0x469a…469b 0x02 0x469b…469c 0x88 0x469c…46a4 »ANALYZED« 0x46a4…46a5 0x45 0x46a5…46a6 0x88 0x46a6…46ae »MYREPANL« 0x46ae…46af 0x48 0x46af…46b0 0x81 0x46b0…46b1 »*« 0x46b1…46b2 0x4f 0x46b2…46b3 0x97 0x46b3…46ca »* DELETE ANY WORK FILES« 0x46ca…46cb 0x39 0x46cb…46cc 0x8e 0x46cc…46da »// TAG DONEREP« 0x46da…46db 0x42 0x46db…46dc 0xa4 0x46dc…4700 »// IF DATAF1-$MYWK0 DELETE $MYWK0,F1« 0x4700…4701 0x2c 0x4701…4702 0xa4 0x4702…4726 »// IF DATAF1-$MYWK1 DELETE $MYWK1,F1« 0x4726…4727 0x2c 0x4727…4728 0xa4 0x4728…474c »// IF DATAF1-$MYIND DELETE $MYIND,F1« 0x474c…474d 0x2c 0x474d…474e 0xa6 0x474e…4774 »// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1« 0x4774…4775 0x2a 0x4775…4776 0xbc 0x4776…47b2 »// IFF ?L'378,8'?/ IF DATAF1-?L'378,8'? DELETE ?L'378,8'?,F1« 0x47b2…47b3 0x14 0x47b3…47b4 0x89 0x47b4…47bd »// RETURN« 0x47bd…47be 0x47 0x47be…47bf 0xc6 0x47bf…4805 »**********************************************************************« 0x4805…4806 0x0a 0x4806…4807 0x81 0x4807…4808 »*« 0x4808…4809 0x4f 0x4809…480a 0x91 0x480a…481b »* TITLE : MIGRATE« 0x481b…481c 0x3f 0x481c…481d 0x81 0x481d…481e »*« 0x481e…481f 0x4f 0x481f…4820 0xb8 0x4820…4858 »* DESCRIPTIVE NAME : MIGRATION BATCH INTERFACE PROCEDURE« 0x4858…4859 0x18 0x4859…485a 0x81 0x485a…485b »*« 0x485b…485c 0x4f 0x485c…485d 0x8c 0x485d…4869 »* FUNCTION :« 0x4869…486a 0x02 0x486a…486b 0xb7 0x486b…48a2 »THIS PROC PROVIDES A SCREEN-LESS INTERFACE TO MIGRATION« 0x48a2…48a3 0x0b 0x48a3…48a4 0x9e 0x48a4…48c2 »* FOR THE ADVANCED PROGRAMMER.« 0x48c2…48c3 0x02 0x48c3…48c4 0x9e 0x48c4…48e2 »IT IS ALSO USED BY SOME OF THE« 0x48e2…48e3 0x12 0x48e3…48e4 0xbc 0x48e4…4920 »* INTERACTIVE PATHS FOR FUNCTIONS SUCH AS EXPORT OR REPORTS.« 0x4920…4921 0x14 0x4921…4922 0x81 0x4922…4923 »*« 0x4923…4924 0x4f 0x4924…4925 0xc4 0x4925…4969 »* FUNCTION FLOW: THE FIRST PARAMETER IS USED TO ROUTE CONTROL TO THE« 0x4969…496a 0x0c 0x496a…496b 0x92 0x496b…497d »* DESIRED FUNCTION« 0x497d…497e 0x3e 0x497e…497f 0x81 0x497f…4980 »*« 0x4980…4981 0x4f 0x4981…4982 0x81 0x4982…4983 »*« 0x4983…4984 0x4f 0x4984…4985 0x91 0x4985…4996 »* GOTO MAIN MENU:« 0x4996…4997 0x3f 0x4997…4998 0x81 0x4998…4999 »*« 0x4999…499a 0x03 0x499a…499b 0x87 0x499b…49a2 »MIGRATE« 0x49a2…49a3 0x45 0x49a3…49a4 0x81 0x49a4…49a5 »*« 0x49a5…49a6 0x4f 0x49a6…49a7 0x9a 0x49a7…49c1 »* CREATE A SELECTION FILE:« 0x49c1…49c2 0x36 0x49c2…49c3 0x81 0x49c3…49c4 »*« 0x49c4…49c5 0x03 0x49c5…49c6 0xc4 0x49c6…4a0a »MIGRATE CREATE, SELECTION_FILE, SEL_FILE_DESCRIPTION, NUMBER_OF_RECS« 0x4a0a…4a0b 0x08 0x4a0b…4a0c 0x81 0x4a0c…4a0d »*« 0x4a0d…4a0e 0x4f 0x4a0e…4a0f 0xa6 0x4a0f…4a35 »* ADD A SELECTION TO A SELECTION FILE:« 0x4a35…4a36 0x2a 0x4a36…4a37 0x81 0x4a37…4a38 »*« 0x4a38…4a39 0x03 0x4a39…4a3a 0xbb 0x4a3a…4a75 »MIGRATE SELECT, ITEM_TYPE, ITEM_NAME, ITEM_DATE, FILE_TYPE,« 0x4a75…4a76 0x11 0x4a76…4a77 0x81 0x4a77…4a78 »*« 0x4a78…4a79 0x0b 0x4a79…4a7a 0xae 0x4a7a…4aa8 »ALTERNATE_LIBRAY, COMPILE_FLAG, SELECTION_FILE« 0x4aa8…4aa9 0x16 0x4aa9…4aaa 0x81 0x4aaa…4aab »*« 0x4aab…4aac 0x4f 0x4aac…4aad 0xa1 0x4aad…4ace »* ANALYZE FOR UNMIGRATABLE ITEMS:« 0x4ace…4acf 0x2f 0x4acf…4ad0 0x81 0x4ad0…4ad1 »*« 0x4ad1…4ad2 0x03 0x4ad2…4ad3 0xc4 0x4ad3…4b17 »MIGRATE ANALYZE, ANLZ_TYPE, ITEM_NAME, LIBRARY_ANLZ_TYPE, AUDIT_FILE« 0x4b17…4b18 0x08 0x4b18…4b19 0x81 0x4b19…4b1a »*« 0x4b1a…4b1b 0x4f 0x4b1b…4b1c 0xa1 0x4b1c…4b3d »* EXPORT ITEMS TO TARGET MACHINE:« 0x4b3d…4b3e 0x2f 0x4b3e…4b3f 0x81 0x4b3f…4b40 »*« 0x4b40…4b41 0x03 0x4b41…4b42 0xbc 0x4b42…4b7e »MIGRATE EXPORT, MEDIA, VOLID, LOCATION, AUTO_FLAG, TAPE_END,« 0x4b7e…4b7f 0x10 0x4b7f…4b80 0x81 0x4b80…4b81 »*« 0x4b81…4b82 0x0b 0x4b82…4b83 0xb9 0x4b83…4bbc »SEQUENCE_NUMBER, SECURITY_FLAG, TARGET_LIBRARY_FOR_FILES,« 0x4bbc…4bbd 0x0b 0x4bbd…4bbe 0x81 0x4bbe…4bbf »*« 0x4bbf…4bc0 0x0b 0x4bc0…4bc1 0x9a 0x4bc1…4bdb »SELECTION_FILE, AUDIT_FILE« 0x4bdb…4bdc 0x2a 0x4bdc…4bdd 0x81 0x4bdd…4bde »*« 0x4bde…4bdf 0x4f 0x4bdf…4be0 0x9f 0x4be0…4bff »* PRODUCE REPORTS ON MIGRATION:« 0x4bff…4c00 0x31 0x4c00…4c01 0x81 0x4c01…4c02 »*« 0x4c02…4c03 0x03 0x4c03…4c04 0xc3 0x4c04…4c47 »MIGRATE REPORTS,REPORT_TYPE, SORT_TYPE, RUN_NUMBER_FLAG, ITEM_TYPE,« 0x4c47…4c48 0x09 0x4c48…4c49 0x81 0x4c49…4c4a »*« 0x4c4a…4c4b 0x0b 0x4c4b…4c4c 0x9b 0x4c4c…4c67 »AUDIT_FILE, RUN_NUMBER_FILE« 0x4c67…4c68 0x29 0x4c68…4c69 0x81 0x4c69…4c6a »*« 0x4c6a…4c6b 0x4f 0x4c6b…4c6c 0x81 0x4c6c…4c6d »*« 0x4c6d…4c6e 0x4f 0x4c6e…4c6f 0xc2 0x4c6f…4cb1 »* INVOCATION: USER-CODED PROCEDURES, USER INPUT, INTERACTIVE PATHS« 0x4cb1…4cb2 0x0e 0x4cb2…4cb3 0x81 0x4cb3…4cb4 »*« 0x4cb4…4cb5 0x4f 0x4cb5…4cb6 0x81 0x4cb6…4cb7 »*« 0x4cb7…4cb8 0x0d 0x4cb8…4cb9 0x98 0x4cb9…4cd1 »MIGRATE PARM1,PARM2, ...« 0x4cd1…4cd2 0x10 0x4cd2…4cd3 0x84 0x4cd3…4cd7 »FROM« 0x4cd7…4cd8 0x16 0x4cd8…4cd9 0x81 0x4cd9…4cda »*« 0x4cda…4cdb 0x07 0x4cdb…4cdc 0x82 0x4cdc…4cde »OR« 0x4cde…4cdf 0x04 0x4cdf…4ce0 0xa3 0x4ce0…4d03 »// INCLUDE MIGRATE PARM1,PARM2, ...« 0x4d03…4d04 0x05 0x4d04…4d05 0x83 0x4d05…4d08 »OCL« 0x4d08…4d09 0x17 0x4d09…4d0a 0x81 0x4d0a…4d0b »*« 0x4d0b…4d0c 0x4f 0x4d0c…4d0d 0x81 0x4d0d…4d0e »*« 0x4d0e…4d0f 0x4f 0x4d0f…4d10 0x81 0x4d10…4d11 »*« 0x4d11…4d12 0x4f 0x4d12…4d13 0x8c 0x4d13…4d1f »* PARAMETERS« 0x4d1f…4d20 0x44 0x4d20…4d21 0xc1 0x4d21…4d62 »* ---------------------------------------------------------------« 0x4d62…4d63 0x0f 0x4d63…4d64 0x88 0x4d64…4d6c »* PARM 1« 0x4d6c…4d6d 0x05 0x4d6d…4d6e 0x94 0x4d6e…4d82 »- MIGRATION FUNCTION« 0x4d82…4d83 0x2f 0x4d83…4d84 0xb8 0x4d84…4dbc »* PARM 2 ... - FUNCTION DEPENDENT PARAMETERS (SEE ABOVE)« 0x4dbc…4dbd 0x18 0x4dbd…4dbe 0x81 0x4dbe…4dbf »*« 0x4dbf…4dc0 0x4f 0x4dc0…4dc1 0x81 0x4dc1…4dc2 »*« 0x4dc2…4dc3 0x4f 0x4dc3…4dc4 0x93 0x4dc4…4dd7 »* SCREENS DISPLAYED« 0x4dd7…4dd8 0x02 0x4dd8…4dd9 0x81 0x4dd9…4dda »:« 0x4dda…4ddb 0x02 0x4ddb…4ddc 0x84 0x4ddc…4de0 »NONE« 0x4de0…4de1 0x34 0x4de1…4de2 0x81 0x4de2…4de3 »*« 0x4de3…4de4 0x4f 0x4de4…4de5 0x90 0x4de5…4df5 »* FILES ACCESSED« 0x4df5…4df6 0x05 0x4df6…4df7 0x81 0x4df7…4df8 »:« 0x4df8…4df9 0x02 0x4df9…4dfa 0x8c 0x4dfa…4e06 »CONTROL FILE« 0x4e06…4e07 0x04 0x4e07…4e08 0x99 0x4e08…4e21 »- GET NEXT TEMP FILE NAME« 0x4e21…4e22 0x0f 0x4e22…4e23 0x81 0x4e23…4e24 »*« 0x4e24…4e25 0x17 0x4e25…4e26 0x8e 0x4e26…4e34 »SELECTION FILE« 0x4e34…4e35 0x02 0x4e35…4e36 0x99 0x4e36…4e4f »- CREATE, UPDATE, PROCESS« 0x4e4f…4e50 0x0f 0x4e50…4e51 0x81 0x4e51…4e52 »*« 0x4e52…4e53 0x17 0x4e53…4e54 0x8b 0x4e54…4e5f »ACTION FILE« 0x4e5f…4e60 0x05 0x4e60…4e61 0x99 0x4e61…4e7a »- CREATE, UPDATE, PROCESS« 0x4e7a…4e7b 0x0f 0x4e7b…4e7c 0x81 0x4e7c…4e7d »*« 0x4e7d…4e7e 0x17 0x4e7e…4e7f 0x8a 0x4e7f…4e89 »AUDIT FILE« 0x4e89…4e8a 0x06 0x4e8a…4e8b 0x8d 0x4e8b…4e98 »- ADD RECORDS« 0x4e98…4e99 0x1b 0x4e99…4e9a 0x81 0x4e9a…4e9b »*« 0x4e9b…4e9c 0x4f 0x4e9c…4e9d 0x96 0x4e9d…4eb3 »* NORMAL MODULE EXIT :« 0x4eb3…4eb4 0x02 0x4eb4…4eb5 0xa5 0x4eb5…4eda »RETURN TO CALLER OR COMMAND PROCESSOR« 0x4eda…4edb 0x13 0x4edb…4edc 0x81 0x4edc…4edd »*« 0x4edd…4ede 0x4f 0x4ede…4edf 0x93 0x4edf…4ef2 »* ABNORMAL MOD EXIT« 0x4ef2…4ef3 0x02 0x4ef3…4ef4 0x81 0x4ef4…4ef5 »:« 0x4ef5…4ef6 0x02 0x4ef6…4ef7 0x8b 0x4ef7…4f02 »SYSLOG HALT« 0x4f02…4f03 0x2d 0x4f03…4f04 0x81 0x4f04…4f05 »*« 0x4f05…4f06 0x4f 0x4f06…4f07 0x8d 0x4f07…4f14 »* RETURN CODE« 0x4f14…4f15 0x08 0x4f15…4f16 0x81 0x4f16…4f17 »:« 0x4f17…4f18 0x02 0x4f18…4f19 0x84 0x4f19…4f1d »NONE« 0x4f1d…4f1e 0x34 0x4f1e…4f1f 0x81 0x4f1f…4f20 »*« 0x4f20…4f21 0x4f 0x4f21…4f22 0x93 0x4f22…4f35 »* MESSAGES ISSUED :« 0x4f35…4f36 0x3d 0x4f36…4f37 0x81 0x4f37…4f38 »*« 0x4f38…4f39 0x03 0x4f39…4f3a 0x83 0x4f3a…4f3d »MIC« 0x4f3d…4f3e 0x08 0x4f3e…4f3f 0x8b 0x4f3f…4f4a »DESCRIPTION« 0x4f4a…4f4b 0x36 0x4f4b…4f4c 0xc1 0x4f4c…4f8d »* ------------ --------------------------------------------------« 0x4f8d…4f8e 0x0f 0x4f8e…4f8f 0x8a 0x4f8f…4f99 »* $MICXXXX« 0x4f99…4f9a 0x05 0x4f9a…4f9b 0x8b 0x4f9b…4fa6 »DESCRIPTION« 0x4fa6…4fa7 0x36 0x4fa7…4fa8 0x81 0x4fa8…4fa9 »*« 0x4fa9…4faa 0x4f 0x4faa…4fab 0x92 0x4fab…4fbd »* CROSS REFERENCE:« 0x4fbd…4fbe 0x3e 0x4fbe…4fbf 0x81 0x4fbf…4fc0 »*« 0x4fc0…4fc1 0x4f 0x4fc1…4fc2 0x81 0x4fc2…4fc3 »*« 0x4fc3…4fc4 0x03 0x4fc4…4fc5 0x89 0x4fc5…4fce »CALLED BY« 0x4fce…4fcf 0x02 0x4fcf…4fd0 0x8b 0x4fd0…4fdb »DESCRIPTION« 0x4fdb…4fdc 0x36 0x4fdc…4fdd 0x81 0x4fdd…4fde »*« 0x4fde…4fdf 0x03 0x4fdf…4fe0 0x89 0x4fe0…4fe9 »---------« 0x4fe9…4fea 0x02 0x4fea…4feb 0xa2 0x4feb…500d »----------------------------------« 0x500d…500e 0x1f 0x500e…500f 0x81 0x500f…5010 »*« 0x5010…5011 0x03 0x5011…5012 0x86 0x5012…5018 »EXPORT« 0x5018…5019 0x05 0x5019…501a 0x90 0x501a…502a »EXPORT PROCEDURE« 0x502a…502b 0x31 0x502b…502c 0x81 0x502c…502d »*« 0x502d…502e 0x03 0x502e…502f 0x87 0x502f…5036 »REPORTS« 0x5036…5037 0x04 0x5037…5038 0x91 0x5038…5049 »REPORTS PROCEDURE« 0x5049…504a 0x30 0x504a…504b 0x81 0x504b…504c »*« 0x504c…504d 0x4f 0x504d…504e 0x81 0x504e…504f »*« 0x504f…5050 0x4f 0x5050…5051 0xc6 0x5051…5097 »**********************************************************************« 0x5097…5098 0x0a 0x5098…5099 0x00 0x5099…50a0 c9 d5 d7 e4 e3 6b 40 ┆INPUT, ┆ 0x50a0…50c0 c9 d5 e3 c5 d9 c1 c3 e3 c9 e5 c5 40 d7 c1 e3 c8 e2 0e 81 5c 4f 81 5c 0d 98 d4 c9 c7 d9 c1 e3 c5 ┆INTERACTIVE PATHS a*|a* qMIGRATE┆ 0x50c0…50e0 40 d7 c1 d9 d4 f1 6b d7 c1 d9 d4 f2 6b 40 4b 4b 4b 10 84 c6 d9 d6 d4 16 81 5c 07 82 d6 d9 04 a3 ┆ PARM1,PARM2, ... dFROM a* bOR t┆ 0x50e0…5100 61 61 40 c9 d5 c3 d3 e4 c4 c5 40 d4 c9 c7 d9 c1 e3 c5 40 d7 c1 d9 d4 f1 6b d7 c1 d9 d4 f2 6b 40 ┆// INCLUDE MIGRATE PARM1,PARM2, ┆