|
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: 22272 (0x5700)
Notes: MEMBER_P, Member_Text
Names: »MIGRATE «
└─⟦c8ae05145⟧ Bits:30009820 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 5 Created 19950301 Level 01 Seq 001 of 011
└─⟦9496929ef⟧
└─⟦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 IFF ?4?/COBOL 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?
* COBOL
// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZCBL ?3?,?5?
// IF ?2?/LIBRARY IF ?4?=COBOL INCLUDE ANLZCBL ?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
*
* IF $MYSYSID DOES NOT EXIST, ERROR MESSAGE
*
// IFF DATAF1-$MYSYSID #ERR 1312,3,MIGR,$MYSYSID
*
* 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 IFF ?2?/DATALINK +
BADPARM EXPORT,2
*
* MAKE SURE VOLUME ID IS FILLED IN IF NOT DISK OR DATALINK
// IFF ?2?=DISK IFF ?2?=DATALINK IF ?3?/ BADPARM EXPORT,3
// IF ?2?=DISK IFF ?3?='' BADPARM EXPORT,3
// IF ?2?=DATALINK 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
// IF ?2?=DATALINK IFF ?4?='' BADPARM EXPORT,4
*
* 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 IFF ?2?=DATALINK IF ?5?='' EVALUATE P5=AUTO
// IF ?2?=DISK IFF ?5?='' BADPARM EXPORT,5
// IF ?2?=DATALINK IFF ?5?='' BADPARM EXPORT,5
// IFF ?2?=DISK IFF ?4?=TC IFF ?5?/AUTO IFF ?5?/NOAUTO +
IFF ?2?=DATALINK 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 FOR S/36FILES 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
*
* CHECK DATA LINK PARAMETERS IF NECCESSARY
// IFF ?2?=DATALINK GOTO EXPORT
// IF ?15?='' IF ?16?='' IF ?17?='' IF ?18?='' +
IF ?19?='' IF ?20?='' IF ?21?='' BADPARM EXPORT,15
*
// IFF ?C15?=002 IFF ?C15?=000 BADPARM EXPORT,15
// IFF ?C16?=002 IFF ?C16?=000 BADPARM EXPORT,16
// IFF ?C17?=002 IFF ?C17?=000 BADPARM EXPORT,17
// IFF ?C18?=002 IFF ?C18?=000 BADPARM EXPORT,18
// IFF ?C19?=002 IFF ?C19?=000 BADPARM EXPORT,19
// IFF ?C20?=002 IFF ?C20?=000 BADPARM EXPORT,20
// IFF ?C21?=002 IFF ?C21?=000 BADPARM EXPORT,21
*
// IF ?22?='' EVALUATE P22=QMGRDTA01
// LOCAL AREA-SYSTEM,OFFSET-472,DATA-'?15?',BLANK-2
// LOCAL AREA-SYSTEM,OFFSET-474,DATA-'?16?',BLANK-2
// LOCAL AREA-SYSTEM,OFFSET-476,DATA-'?17?',BLANK-2
// LOCAL AREA-SYSTEM,OFFSET-478,DATA-'?18?',BLANK-2
// LOCAL AREA-SYSTEM,OFFSET-480,DATA-'?19?',BLANK-2
// LOCAL AREA-SYSTEM,OFFSET-482,DATA-'?20?',BLANK-2
// LOCAL AREA-SYSTEM,OFFSET-484,DATA-'?21?',BLANK-2
// LOCAL AREA-SYSTEM,OFFSET-486,DATA-'?22?',BLANK-10
*
***********************************************************************
* 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 END 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'
// IF ?2?=DATALINK LOCAL AREA-SYSTEM,OFFSET-293,DATA-'4'
*
* 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?='' #ERR 1552,3,MIGR
// 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 0xca 0x172c…1776 »// IFF ?4?/ IFF ?4?/ALL IFF ?4?/RPG IFF ?4?/OCL IFF ?4?/COBOL GOTO AN4MORE« 0x1776…1777 0x06 0x1777…1778 0x8f 0x1778…1787 »// GOTO ANCOMBO« 0x1787…1788 0x41 0x1788…1789 0x81 0x1789…178a »*« 0x178a…178b 0x4f 0x178b…178c 0x8e 0x178c…179a »// TAG AN4MORE« 0x179a…179b 0x42 0x179b…179c 0xc1 0x179c…17dd »// IFF ?4?/SOURCE IFF ?4?/LIBRCNF IFF ?4?/QUERY BADPARM ANALYZE,4« 0x17dd…17de 0x0f 0x17de…17df 0x81 0x17df…17e0 »*« 0x17e0…17e1 0x4f 0x17e1…17e2 0xa3 0x17e2…1805 »* ERROR CHECK COMBINATIONS OF PARMS« 0x1805…1806 0x2d 0x1806…1807 0x81 0x1807…1808 »*« 0x1808…1809 0x4f 0x1809…180a 0x8e 0x180a…1818 »// TAG ANCOMBO« 0x1818…1819 0x42 0x1819…181a 0xad 0x181a…1847 »// IFF ?3?='' IF ?2?=LISTALL #ERR 1530,3,MIGR« 0x1847…1848 0x23 0x1848…1849 0xac 0x1849…1875 »// IFF ?3?='' IF ?2?=SYSTEM #ERR 1530,3,MIGR« 0x1875…1876 0x24 0x1876…1877 0xae 0x1877…18a5 »// IFF ?3?='' IF ?2?=SECURITY #ERR 1530,3,MIGR« 0x18a5…18a6 0x22 0x18a6…18a7 0xac 0x18a7…18d3 »// IFF ?3?='' IF ?2?=MASTER #ERR 1530,3,MIGR« 0x18d3…18d4 0x24 0x18d4…18d5 0xc1 0x18d5…1916 »// IFF ?3?='' IFF ?2?=LIBRARY IFF ?2?=DATADICT BADPARM ANALYSIS,3« 0x1916…1917 0x0f 0x1917…1918 0xac 0x1918…1944 »// IF ?2?=LIBRARY IF ?3?/ BADPARM ANALYSIS,3« 0x1944…1945 0x24 0x1945…1946 0xad 0x1946…1973 »// IF ?2?=DATADICT IF ?3?/ BADPARM ANALYSIS,3« 0x1973…1974 0x23 0x1974…1975 0xae 0x1975…19a3 »// IFF ?4?='' IFF ?2?=LIBRARY #ERR 1531,3,MIGR« 0x19a3…19a4 0x22 0x19a4…19a5 0x81 0x19a5…19a6 »*« 0x19a6…19a7 0x4f 0x19a7…19a8 0x99 0x19a8…19c1 »* DEFAULT THE BLANK PARMS« 0x19c1…19c2 0x37 0x19c2…19c3 0x81 0x19c3…19c4 »*« 0x19c4…19c5 0x4f 0x19c5…19c6 0xa0 0x19c6…19e6 »// IF ?2?='' EVALUATE P2=LISTALL« 0x19e6…19e7 0x30 0x19e7…19e8 0xa9 0x19e8…1a11 »// IF ?2?=LIBRARY IF ?4?/ EVALUATE P4=ALL« 0x1a11…1a12 0x27 0x1a12…1a13 0x81 0x1a13…1a14 »*« 0x1a14…1a15 0x4f 0x1a15…1a16 0x9d 0x1a16…1a33 »* SAVE AUDIT FILE NAME IN LDA« 0x1a33…1a34 0x33 0x1a34…1a35 0x81 0x1a35…1a36 »*« 0x1a36…1a37 0x4f 0x1a37…1a38 0xbb 0x1a38…1a73 »// IFF ?5?/ LOCAL AREA-SYSTEM,OFFSET-117,DATA-'?5?',BLANK-8« 0x1a73…1a74 0x15 0x1a74…1a75 0x81 0x1a75…1a76 »*« 0x1a76…1a77 0x4f 0x1a77…1a78 0xa7 0x1a78…1a9f »* CALL THE COMPONENT ANALYSES REQUESTED« 0x1a9f…1aa0 0x29 0x1aa0…1aa1 0x81 0x1aa1…1aa2 »*« 0x1aa2…1aa3 0x4f 0x1aa3…1aa4 0x81 0x1aa4…1aa5 »*« 0x1aa5…1aa6 0x02 0x1aa6…1aa7 0x87 0x1aa7…1aae »LISTALL« 0x1aae…1aaf 0x46 0x1aaf…1ab0 0xa2 0x1ab0…1ad2 »// IF ?2?/LISTALL INCLUDE MYREPLST« 0x1ad2…1ad3 0x2e 0x1ad3…1ad4 0x98 0x1ad4…1aec »// IF ?2?/LISTALL RETURN« 0x1aec…1aed 0x38 0x1aed…1aee 0x81 0x1aee…1aef »*« 0x1aef…1af0 0x4f 0x1af0…1af1 0x81 0x1af1…1af2 »*« 0x1af2…1af3 0x02 0x1af3…1af4 0x86 0x1af4…1afa »SYSTEM« 0x1afa…1afb 0x47 0x1afb…1afc 0xa0 0x1afc…1b1c »// IF ?2?/SYSTEM INCLUDE ANLZ001« 0x1b1c…1b1d 0x30 0x1b1d…1b1e 0x97 0x1b1e…1b35 »// IF ?2?/SYSTEM RETURN« 0x1b35…1b36 0x39 0x1b36…1b37 0x81 0x1b37…1b38 »*« 0x1b38…1b39 0x4f 0x1b39…1b3a 0x81 0x1b3a…1b3b »*« 0x1b3b…1b3c 0x02 0x1b3c…1b3d 0x87 0x1b3d…1b44 »LIBRARY« 0x1b44…1b45 0x46 0x1b45…1b46 0x81 0x1b46…1b47 »*« 0x1b47…1b48 0x04 0x1b48…1b49 0x83 0x1b49…1b4c »RPG« 0x1b4c…1b4d 0x48 0x1b4d…1b4e 0xb4 0x1b4e…1b82 »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZRPG ?3?,?5?« 0x1b82…1b83 0x1c 0x1b83…1b84 0xb4 0x1b84…1bb8 »// IF ?2?/LIBRARY IF ?4?=RPG INCLUDE ANLZRPG ?3?,?5?« 0x1bb8…1bb9 0x1c 0x1bb9…1bba 0x81 0x1bba…1bbb »*« 0x1bbb…1bbc 0x04 0x1bbc…1bbd 0x85 0x1bbd…1bc2 »COBOL« 0x1bc2…1bc3 0x46 0x1bc3…1bc4 0xb4 0x1bc4…1bf8 »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZCBL ?3?,?5?« 0x1bf8…1bf9 0x1c 0x1bf9…1bfa 0xb6 0x1bfa…1c30 »// IF ?2?/LIBRARY IF ?4?=COBOL INCLUDE ANLZCBL ?3?,?5?« 0x1c30…1c31 0x1a 0x1c31…1c32 0x81 0x1c32…1c33 »*« 0x1c33…1c34 0x04 0x1c34…1c35 0x83 0x1c35…1c38 »OCL« 0x1c38…1c39 0x48 0x1c39…1c3a 0xb4 0x1c3a…1c6e »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZOCL ?3?,?5?« 0x1c6e…1c6f 0x1c 0x1c6f…1c70 0xb4 0x1c70…1ca4 »// IF ?2?/LIBRARY IF ?4?=OCL INCLUDE ANLZOCL ?3?,?5?« 0x1ca4…1ca5 0x1c 0x1ca5…1ca6 0x81 0x1ca6…1ca7 »*« 0x1ca7…1ca8 0x04 0x1ca8…1ca9 0x8e 0x1ca9…1cb7 »MISSING SOURCE« 0x1cb7…1cb8 0x3d 0x1cb8…1cb9 0xb4 0x1cb9…1ced »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZSRC ?3?,?5?« 0x1ced…1cee 0x1c 0x1cee…1cef 0xb7 0x1cef…1d26 »// IF ?2?/LIBRARY IF ?4?=SOURCE INCLUDE ANLZSRC ?3?,?5?« 0x1d26…1d27 0x19 0x1d27…1d28 0x81 0x1d28…1d29 »*« 0x1d29…1d2a 0x04 0x1d2a…1d2b 0x85 0x1d2b…1d30 »QUERY« 0x1d30…1d31 0x46 0x1d31…1d32 0xb4 0x1d32…1d66 »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZQRY ?3?,?5?« 0x1d66…1d67 0x1c 0x1d67…1d68 0xb6 0x1d68…1d9e »// IF ?2?/LIBRARY IF ?4?=QUERY INCLUDE ANLZQRY ?3?,?5?« 0x1d9e…1d9f 0x1a 0x1d9f…1da0 0x81 0x1da0…1da1 »*« 0x1da1…1da2 0x04 0x1da2…1da3 0x86 0x1da3…1da9 »CONFIG« 0x1da9…1daa 0x45 0x1daa…1dab 0xbe 0x1dab…1de9 »// IF ?2?/LIBRARY IF ?4?=ALL INCLUDE ANLZCNFG CNFGMBRS,?3?,?5?« 0x1de9…1dea 0x12 0x1dea…1deb 0xc2 0x1deb…1e2d »// IF ?2?/LIBRARY IF ?4?=LIBRCNF INCLUDE ANLZCNFG CNFGMBRS,?3?,?5?« 0x1e2d…1e2e 0x0e 0x1e2e…1e2f 0x98 0x1e2f…1e47 »// IF ?2?/LIBRARY RETURN« 0x1e47…1e48 0x38 0x1e48…1e49 0x81 0x1e49…1e4a »*« 0x1e4a…1e4b 0x4f 0x1e4b…1e4c 0x81 0x1e4c…1e4d »*« 0x1e4d…1e4e 0x02 0x1e4e…1e4f 0x88 0x1e4f…1e57 »SECURITY« 0x1e57…1e58 0x45 0x1e58…1e59 0xa7 0x1e59…1e80 »// IF ?2?/SECURITY INCLUDE ANLZSECP ?5?« 0x1e80…1e81 0x29 0x1e81…1e82 0x99 0x1e82…1e9b »// IF ?2?/SECURITY RETURN« 0x1e9b…1e9c 0x37 0x1e9c…1e9d 0x81 0x1e9d…1e9e »*« 0x1e9e…1e9f 0x4f 0x1e9f…1ea0 0x81 0x1ea0…1ea1 »*« 0x1ea1…1ea2 0x02 0x1ea2…1ea3 0x8d 0x1ea3…1eb0 »MASTER CONFIG« 0x1eb0…1eb1 0x40 0x1eb1…1eb2 0xad 0x1eb2…1edf »// IF ?2?/MASTER INCLUDE ANLZCNFG MASTER,,?5?« 0x1edf…1ee0 0x23 0x1ee0…1ee1 0xaf 0x1ee1…1f10 »// IF ?2?/MASTER INCLUDE ANLZCNFG CNFGFILE,,?5?« 0x1f10…1f11 0x21 0x1f11…1f12 0x97 0x1f12…1f29 »// IF ?2?/MASTER RETURN« 0x1f29…1f2a 0x39 0x1f2a…1f2b 0x81 0x1f2b…1f2c »*« 0x1f2c…1f2d 0x4f 0x1f2d…1f2e 0x81 0x1f2e…1f2f »*« 0x1f2f…1f30 0x02 0x1f30…1f31 0x88 0x1f31…1f39 »DATADICT« 0x1f39…1f3a 0x45 0x1f3a…1f3b 0xab 0x1f3b…1f66 »// IF ?2?/DATADICT INCLUDE ANLZIDDP ?3?,?5?« 0x1f66…1f67 0x25 0x1f67…1f68 0x99 0x1f68…1f81 »// IF ?2?/DATADICT RETURN« 0x1f81…1f82 0x37 0x1f82…1f83 0x81 0x1f83…1f84 »*« 0x1f84…1f85 0x4f 0x1f85…1f86 0x89 0x1f86…1f8f »// RETURN« 0x1f8f…1f90 0x47 0x1f90…1f91 0x81 0x1f91…1f92 »*« 0x1f92…1f93 0x4f 0x1f93…1f94 0xc7 0x1f94…1fdb »***********************************************************************« 0x1fdb…1fdc 0x09 0x1fdc…1fdd 0x81 0x1fdd…1fde »*« 0x1fde…1fdf 0x04 0x1fdf…1fe0 0x8e 0x1fe0…1fee »MIGRATE SAVE36« 0x1fee…1fef 0x33 0x1fef…1ff0 0x81 0x1ff0…1ff1 »*« 0x1ff1…1ff2 0x09 0x1ff2…1ff3 0xc7 0x1ff3…203a »***********************************************************************« 0x203a…203b 0x09 0x203b…203c 0x81 0x203c…203d »*« 0x203d…203e 0x4f 0x203e…203f 0x8d 0x203f…204c »// TAG SAVE36« 0x204c…204d 0x43 0x204d…204e 0x81 0x204e…204f »*« 0x204f…2050 0x4f 0x2050…2051 0xab 0x2051…207c »* IF $MYSYSID DOES NOT EXIST, ERROR MESSAGE« 0x207c…207d 0x25 0x207d…207e 0x81 0x207e…207f »*« 0x207f…2080 0x4f 0x2080…2081 0xb0 0x2081…20b1 »// IFF DATAF1-$MYSYSID #ERR 1312,3,MIGR,$MYSYSID« 0x20b1…20b2 0x20 0x20b2…20b3 0x81 0x20b3…20b4 »*« 0x20b4…20b5 0x4f 0x20b5…20b6 0x97 0x20b6…20cd »* ERROR CHECK THE PARMS« 0x20cd…20ce 0x39 0x20ce…20cf 0x81 0x20cf…20d0 »*« 0x20d0…20d1 0x4f 0x20d1…20d2 0x81 0x20d2…20d3 »*« 0x20d3…20d4 0x02 0x20d4…20d5 0xa9 0x20d5…20fe »IF NO MEDIA SPECIFIED DEFAULT TO DISKETTE« 0x20fe…20ff 0x24 0x20ff…2100 0x9f 0x2100…211f »// IF ?2?/ EVALUATE P2=DISKETTE« 0x211f…2120 0x31 0x2120…2121 0x81 0x2121…2122 »*« 0x2122…2123 0x4f 0x2123…2124 0x81 0x2124…2125 »*« 0x2125…2126 0x02 0x2126…2127 0x9b 0x2127…2142 »ERROR CHECK MIGRATION MEDIA« 0x2142…2143 0x32 0x2143…2144 0xc0 0x2144…2184 »// IFF ?2?/DISKETTE IFF ?2?/TAPE IFF ?2?/DISK IFF ?2?/DATALINK +« 0x2184…2185 0x10 0x2185…2186 0x07 0x2186…2187 0x90 0x2187…2197 »BADPARM EXPORT,2« 0x2197…2198 0x39 0x2198…2199 0x81 0x2199…219a »*« 0x219a…219b 0x4f 0x219b…219c 0x81 0x219c…219d »*« 0x219d…219e 0x02 0x219e…219f 0xb8 0x219f…21d7 »MAKE SURE VOLUME ID IS FILLED IN IF NOT DISK OR DATALINK« 0x21d7…21d8 0x15 0x21d8…21d9 0xb9 0x21d9…2212 »// IFF ?2?=DISK IFF ?2?=DATALINK IF ?3?/ BADPARM EXPORT,3« 0x2212…2213 0x17 0x2213…2214 0xaa 0x2214…223e »// IF ?2?=DISK IFF ?3?='' BADPARM EXPORT,3« 0x223e…223f 0x26 0x223f…2240 0xae 0x2240…226e »// IF ?2?=DATALINK IFF ?3?='' BADPARM EXPORT,3« 0x226e…226f 0x22 0x226f…2270 0x81 0x2270…2271 »*« 0x2271…2272 0x4f 0x2272…2273 0x81 0x2273…2274 »*« 0x2274…2275 0x02 0x2275…2276 0xa9 0x2276…229f »FILL IN DEFAULT LOCATION IF NOT SPECIFIED« 0x229f…22a0 0x24 0x22a0…22a1 0xab 0x22a1…22cc »// IF ?2?/DISKETTE IF ?4?='' EVALUATE P4=S1« 0x22cc…22cd 0x25 0x22cd…22ce 0xa7 0x22ce…22f5 »// IF ?2?/TAPE IF ?4?='' EVALUATE P4=T1« 0x22f5…22f6 0x29 0x22f6…22f7 0xa7 0x22f7…231e »// IF ?2?/DISK IF ?4?='' EVALUATE P4=A1« 0x231e…231f 0x29 0x231f…2320 0xae 0x2320…234e »// IF ?2?=DATALINK IFF ?4?='' BADPARM EXPORT,4« 0x234e…234f 0x22 0x234f…2350 0x81 0x2350…2351 »*« 0x2351…2352 0x4f 0x2352…2353 0x81 0x2353…2354 »*« 0x2354…2355 0x02 0x2355…2356 0x9d 0x2356…2373 »ERROR CHECK DISKETTE LOCATION« 0x2373…2374 0x30 0x2374…2375 0x92 0x2375…2387 »// IF ?2?=DISKETTE« 0x2387…2388 0x29 0x2388…2389 0x81 0x2389…238a »+« 0x238a…238b 0x14 0x238b…238c 0x03 0x238c…238d 0xa0 0x238d…23ad »IFF ?4?=S1 IFF ?4?=S2 IFF ?4?=S3« 0x23ad…23ae 0x18 0x23ae…23af 0x81 0x23af…23b0 »+« 0x23b0…23b1 0x14 0x23b1…23b2 0x03 0x23b2…23b3 0xb4 0x23b3…23e7 »IFF ?4?=M1 IFF ?4?=M1.01 IFF ?4?=M1.02 IFF ?4?=M1.03« 0x23e7…23e8 0x04 0x23e8…23e9 0x81 0x23e9…23ea »+« 0x23ea…23eb 0x14 0x23eb…23ec 0x03 0x23ec…23ed 0xb9 0x23ed…2426 »IFF ?4?=M1.04 IFF ?4?=M1.05 IFF ?4?=M1.06 IFF ?4?=M1.07 +« 0x2426…2427 0x14 0x2427…2428 0x03 0x2428…2429 0xa9 0x2429…2452 »IFF ?4?=M1.08 IFF ?4?=M1.09 IFF ?4?=M1.10« 0x2452…2453 0x0f 0x2453…2454 0x81 0x2454…2455 »+« 0x2455…2456 0x14 0x2456…2457 0x03 0x2457…2458 0xb4 0x2458…248c »IFF ?4?=M2 IFF ?4?=M2.01 IFF ?4?=M2.02 IFF ?4?=M2.03« 0x248c…248d 0x04 0x248d…248e 0x81 0x248e…248f »+« 0x248f…2490 0x14 0x2490…2491 0x03 0x2491…2492 0xb9 0x2492…24cb »IFF ?4?=M2.04 IFF ?4?=M2.05 IFF ?4?=M2.06 IFF ?4?=M2.07 +« 0x24cb…24cc 0x14 0x24cc…24cd 0x03 0x24cd…24ce 0xa9 0x24ce…24f7 »IFF ?4?=M2.08 IFF ?4?=M2.09 IFF ?4?=M2.10« 0x24f7…24f8 0x0f 0x24f8…24f9 0x81 0x24f9…24fa »+« 0x24fa…24fb 0x14 0x24fb…24fc 0x03 0x24fc…24fd 0x90 0x24fd…250d »BADPARM EXPORT,4« 0x250d…250e 0x3d 0x250e…250f 0x81 0x250f…2510 »*« 0x2510…2511 0x4f 0x2511…2512 0x81 0x2512…2513 »*« 0x2513…2514 0x02 0x2514…2515 0x99 0x2515…252e »ERROR CHECK TAPE LOCATION« 0x252e…252f 0x34 0x252f…2530 0x8e 0x2530…253e »// IF ?2?=TAPE« 0x253e…253f 0x2d 0x253f…2540 0x81 0x2540…2541 »+« 0x2541…2542 0x14 0x2542…2543 0x03 0x2543…2544 0xa0 0x2544…2564 »IFF ?4?=T1 IFF ?4?=T2 IFF ?4?=TC« 0x2564…2565 0x18 0x2565…2566 0x81 0x2566…2567 »+« 0x2567…2568 0x14 0x2568…2569 0x03 0x2569…256a 0x90 0x256a…257a »BADPARM EXPORT,4« 0x257a…257b 0x3d 0x257b…257c 0x81 0x257c…257d »*« 0x257d…257e 0x4f 0x257e…257f 0x81 0x257f…2580 »*« 0x2580…2581 0x02 0x2581…2582 0x99 0x2582…259b »ERROR CHECK DISK LOCATION« 0x259b…259c 0x34 0x259c…259d 0x8e 0x259d…25ab »// IF ?2?=DISK« 0x25ab…25ac 0x2d 0x25ac…25ad 0x81 0x25ad…25ae »+« 0x25ae…25af 0x14 0x25af…25b0 0x03 0x25b0…25b1 0xab 0x25b1…25dc »IFF ?4?=A1 IFF ?4?=A2 IFF ?4?=A3 IFF ?4?=A4« 0x25dc…25dd 0x0d 0x25dd…25de 0x81 0x25de…25df »+« 0x25df…25e0 0x14 0x25e0…25e1 0x03 0x25e1…25e2 0x90 0x25e2…25f2 »BADPARM EXPORT,4« 0x25f2…25f3 0x3d 0x25f3…25f4 0x81 0x25f4…25f5 »*« 0x25f5…25f6 0x4f 0x25f6…25f7 0x81 0x25f7…25f8 »*« 0x25f8…25f9 0x02 0x25f9…25fa 0x9c 0x25fa…2616 »ERROR CHECK AUTO/NOAUTO FLAG« 0x2616…2617 0x31 0x2617…2618 0xbb 0x2618…2653 »// IFF ?2?=DISK IFF ?2?=DATALINK IF ?5?='' EVALUATE P5=AUTO« 0x2653…2654 0x15 0x2654…2655 0xaa 0x2655…267f »// IF ?2?=DISK IFF ?5?='' BADPARM EXPORT,5« 0x267f…2680 0x26 0x2680…2681 0xae 0x2681…26af »// IF ?2?=DATALINK IFF ?5?='' BADPARM EXPORT,5« 0x26af…26b0 0x22 0x26b0…26b1 0xb6 0x26b1…26e7 »// IFF ?2?=DISK IFF ?4?=TC IFF ?5?/AUTO IFF ?5?/NOAUTO« 0x26e7…26e8 0x05 0x26e8…26e9 0x81 0x26e9…26ea »+« 0x26ea…26eb 0x14 0x26eb…26ec 0x03 0x26ec…26ed 0xa1 0x26ed…270e »IFF ?2?=DATALINK BADPARM EXPORT,5« 0x270e…270f 0x2c 0x270f…2710 0x81 0x2710…2711 »*« 0x2711…2712 0x4f 0x2712…2713 0x81 0x2713…2714 »*« 0x2714…2715 0x02 0x2715…2716 0xa4 0x2716…273a »ENSURE TAPE PARAMETERS ARE FILLED IN« 0x273a…273b 0x29 0x273b…273c 0xab 0x273c…2767 »// IF ?2?=TAPE IF ?6?='' EVALUATE P6=REWIND« 0x2767…2768 0x25 0x2768…2769 0xbc 0x2769…27a5 »// IF ?2?=TAPE IFF ?6?=REWIND IFF ?6?=LEAVE IFF ?6?=UNLOAD +« 0x27a5…27a6 0x14 0x27a6…27a7 0x03 0x27a7…27a8 0x90 0x27a8…27b8 »BADPARM EXPORT,6« 0x27b8…27b9 0x3d 0x27b9…27ba 0xab 0x27ba…27e5 »// IFF ?2?=TAPE IFF ?6?='' BADPARM EXPORT,6« 0x27e5…27e6 0x25 0x27e6…27e7 0x81 0x27e7…27e8 »*« 0x27e8…27e9 0x4f 0x27e9…27ea 0xa9 0x27ea…2813 »// IF ?2?=TAPE IF ?7?='' BADPARM EXPORT,7« 0x2813…2814 0x27 0x2814…2815 0xab 0x2815…2840 »// IFF ?2?=TAPE IFF ?7?='' BADPARM EXPORT,7« 0x2840…2841 0x25 0x2841…2842 0x81 0x2842…2843 »*« 0x2843…2844 0x4f 0x2844…2845 0x81 0x2845…2846 »*« 0x2846…2847 0x02 0x2847…2848 0x99 0x2848…2861 »ERROR CHECK SECURITY FLAG« 0x2861…2862 0x34 0x2862…2863 0x9f 0x2863…2882 »// IF ?8?='' EVALUATE P8=SECURE« 0x2882…2883 0x31 0x2883…2884 0xb3 0x2884…28b7 »// IFF ?8?/SECURE IFF ?8?/NOSECURE BADPARM EXPORT,8« 0x28b7…28b8 0x1d 0x28b8…28b9 0x81 0x28b9…28ba »*« 0x28ba…28bb 0x4f 0x28bb…28bc 0x81 0x28bc…28bd »*« 0x28bd…28be 0x02 0x28be…28bf 0xbe 0x28bf…28fd »DEFAULT AS/400 LIBRARY FOR S/36FILES TO QS36F IF NOT FILLED IN« 0x28fd…28fe 0x0f 0x28fe…28ff 0x9e 0x28ff…291d »// IF ?9?='' EVALUATE P9=QS36F« 0x291d…291e 0x32 0x291e…291f 0x81 0x291f…2920 »*« 0x2920…2921 0x4f 0x2921…2922 0x81 0x2922…2923 »*« 0x2923…2924 0x02 0x2924…2925 0xaa 0x2925…294f »MAKE SURE SELECTION FILE NAME IS FILLED IN« 0x294f…2950 0x23 0x2950…2951 0x9f 0x2951…2970 »// IF ?10?='' BADPARM EXPORT,10« 0x2970…2971 0x31 0x2971…2972 0x81 0x2972…2973 »*« 0x2973…2974 0x4f 0x2974…2975 0x81 0x2975…2976 »*« 0x2976…2977 0x02 0x2977…2978 0xb2 0x2978…29aa »DEFAULT AUDIT FILE NAME TO $MYAUD IF NOT FILLED IN« 0x29aa…29ab 0x1b 0x29ab…29ac 0xa1 0x29ac…29cd »// IF ?11?='' EVALUATE P11=$MYAUD« 0x29cd…29ce 0x2f 0x29ce…29cf 0x81 0x29cf…29d0 »*« 0x29d0…29d1 0x4f 0x29d1…29d2 0x81 0x29d2…29d3 »*« 0x29d3…29d4 0x02 0x29d4…29d5 0xaf 0x29d5…2a04 »ERROR CHECK COMMUNICATIONS PROCEDURE PARAMETERS« 0x2a04…2a05 0x1e 0x2a05…2a06 0xab 0x2a06…2a31 »// IF ?2?=DISK IF ?12?='' BADPARM EXPORT,12« 0x2a31…2a32 0x25 0x2a32…2a33 0xaf 0x2a33…2a62 »// IF ?2?=DISK IF ?13?='' EVALUATE P13=#LIBRARY« 0x2a62…2a63 0x21 0x2a63…2a64 0x81 0x2a64…2a65 »*« 0x2a65…2a66 0x4f 0x2a66…2a67 0x81 0x2a67…2a68 »*« 0x2a68…2a69 0x02 0x2a69…2a6a 0x95 0x2a6a…2a7f »ERROR CHECK DBCS FLAG« 0x2a7f…2a80 0x38 0x2a80…2a81 0x9f 0x2a81…2aa0 »// IF ?14?='' EVALUATE P14=SBCS« 0x2aa0…2aa1 0x31 0x2aa1…2aa2 0xb0 0x2aa2…2ad2 »// IFF ?14?=SBCS IFF ?14?=DBCS BADPARM EXPORT,14« 0x2ad2…2ad3 0x20 0x2ad3…2ad4 0x81 0x2ad4…2ad5 »*« 0x2ad5…2ad6 0x02 0x2ad6…2ad7 0xb6 0x2ad7…2b0d »CHANGE PARAMETER 14 TO MATCH THE LDA N=SBCS AND Y=DBCS« 0x2b0d…2b0e 0x17 0x2b0e…2b0f 0x9e 0x2b0f…2b2d »// IF ?14?=SBCS EVALUATE P14=N« 0x2b2d…2b2e 0x32 0x2b2e…2b2f 0x9e 0x2b2f…2b4d »// IF ?14?=DBCS EVALUATE P14=Y« 0x2b4d…2b4e 0x32 0x2b4e…2b4f 0x81 0x2b4f…2b50 »*« 0x2b50…2b51 0x4f 0x2b51…2b52 0x81 0x2b52…2b53 »*« 0x2b53…2b54 0x02 0x2b54…2b55 0xa8 0x2b55…2b7d »CHECK DATA LINK PARAMETERS IF NECCESSARY« 0x2b7d…2b7e 0x25 0x2b7e…2b7f 0x9f 0x2b7f…2b9e »// IFF ?2?=DATALINK GOTO EXPORT« 0x2b9e…2b9f 0x31 0x2b9f…2ba0 0xb0 0x2ba0…2bd0 »// IF ?15?='' IF ?16?='' IF ?17?='' IF ?18?='' +« 0x2bd0…2bd1 0x20 0x2bd1…2bd2 0x03 0x2bd2…2bd3 0xb2 0x2bd3…2c05 »IF ?19?='' IF ?20?='' IF ?21?='' BADPARM EXPORT,15« 0x2c05…2c06 0x1b 0x2c06…2c07 0x81 0x2c07…2c08 »*« 0x2c08…2c09 0x4f 0x2c09…2c0a 0xb0 0x2c0a…2c3a »// IFF ?C15?=002 IFF ?C15?=000 BADPARM EXPORT,15« 0x2c3a…2c3b 0x20 0x2c3b…2c3c 0xb0 0x2c3c…2c6c »// IFF ?C16?=002 IFF ?C16?=000 BADPARM EXPORT,16« 0x2c6c…2c6d 0x20 0x2c6d…2c6e 0xb0 0x2c6e…2c9e »// IFF ?C17?=002 IFF ?C17?=000 BADPARM EXPORT,17« 0x2c9e…2c9f 0x20 0x2c9f…2ca0 0xb0 0x2ca0…2cd0 »// IFF ?C18?=002 IFF ?C18?=000 BADPARM EXPORT,18« 0x2cd0…2cd1 0x20 0x2cd1…2cd2 0xb0 0x2cd2…2d02 »// IFF ?C19?=002 IFF ?C19?=000 BADPARM EXPORT,19« 0x2d02…2d03 0x20 0x2d03…2d04 0xb0 0x2d04…2d34 »// IFF ?C20?=002 IFF ?C20?=000 BADPARM EXPORT,20« 0x2d34…2d35 0x20 0x2d35…2d36 0xb0 0x2d36…2d66 »// IFF ?C21?=002 IFF ?C21?=000 BADPARM EXPORT,21« 0x2d66…2d67 0x20 0x2d67…2d68 0x81 0x2d68…2d69 »*« 0x2d69…2d6a 0x4f 0x2d6a…2d6b 0xa4 0x2d6b…2d8f »// IF ?22?='' EVALUATE P22=QMGRDTA01« 0x2d8f…2d90 0x2c 0x2d90…2d91 0xb3 0x2d91…2dc4 »// LOCAL AREA-SYSTEM,OFFSET-472,DATA-'?15?',BLANK-2« 0x2dc4…2dc5 0x1d 0x2dc5…2dc6 0xb3 0x2dc6…2df9 »// LOCAL AREA-SYSTEM,OFFSET-474,DATA-'?16?',BLANK-2« 0x2df9…2dfa 0x1d 0x2dfa…2dfb 0xb3 0x2dfb…2e2e »// LOCAL AREA-SYSTEM,OFFSET-476,DATA-'?17?',BLANK-2« 0x2e2e…2e2f 0x1d 0x2e2f…2e30 0xb3 0x2e30…2e63 »// LOCAL AREA-SYSTEM,OFFSET-478,DATA-'?18?',BLANK-2« 0x2e63…2e64 0x1d 0x2e64…2e65 0xb3 0x2e65…2e98 »// LOCAL AREA-SYSTEM,OFFSET-480,DATA-'?19?',BLANK-2« 0x2e98…2e99 0x1d 0x2e99…2e9a 0xb3 0x2e9a…2ecd »// LOCAL AREA-SYSTEM,OFFSET-482,DATA-'?20?',BLANK-2« 0x2ecd…2ece 0x1d 0x2ece…2ecf 0xb3 0x2ecf…2f02 »// LOCAL AREA-SYSTEM,OFFSET-484,DATA-'?21?',BLANK-2« 0x2f02…2f03 0x1d 0x2f03…2f04 0xb4 0x2f04…2f38 »// LOCAL AREA-SYSTEM,OFFSET-486,DATA-'?22?',BLANK-10« 0x2f38…2f39 0x1c 0x2f39…2f3a 0x81 0x2f3a…2f3b »*« 0x2f3b…2f3c 0x4f 0x2f3c…2f3d 0xc7 0x2f3d…2f84 »***********************************************************************« 0x2f84…2f85 0x09 0x2f85…2f86 0x81 0x2f86…2f87 »*« 0x2f87…2f88 0x04 0x2f88…2f89 0xbc 0x2f89…2fc5 »ENTRY POINT FOR INTERACTIVE SAVE (SKIPS ERROR CHECKING SINCE« 0x2fc5…2fc6 0x05 0x2fc6…2fc7 0x81 0x2fc7…2fc8 »*« 0x2fc8…2fc9 0x09 0x2fc9…2fca 0x81 0x2fca…2fcb »*« 0x2fcb…2fcc 0x04 0x2fcc…2fcd 0x9a 0x2fcd…2fe7 »SAVE36 PROC ALREADY DID IT« 0x2fe7…2fe8 0x27 0x2fe8…2fe9 0x81 0x2fe9…2fea »*« 0x2fea…2feb 0x09 0x2feb…2fec 0xc7 0x2fec…3033 »***********************************************************************« 0x3033…3034 0x09 0x3034…3035 0x81 0x3035…3036 »*« 0x3036…3037 0x4f 0x3037…3038 0x8d 0x3038…3045 »// TAG EXPORT« 0x3045…3046 0x43 0x3046…3047 0x81 0x3047…3048 »*« 0x3048…3049 0x4f 0x3049…304a 0xad 0x304a…3077 »* DELETE THE TAPE SELECTION FILE IF IT EXISTS« 0x3077…3078 0x23 0x3078…3079 0xa6 0x3079…309f »// IF DATAF1-$MYMIGR DELETE $MYMIGR,F1« 0x309f…30a0 0x2a 0x30a0…30a1 0x81 0x30a1…30a2 »*« 0x30a2…30a3 0x4f 0x30a3…30a4 0xa1 0x30a4…30c5 »* DELETE ACTION FILE IF IT EXISTS« 0x30c5…30c6 0x2f 0x30c6…30c7 0xa4 0x30c7…30eb »// IF DATAF1-$MYACT DELETE $MYACT,F1« 0x30eb…30ec 0x2c 0x30ec…30ed 0x81 0x30ed…30ee »*« 0x30ee…30ef 0x4f 0x30ef…30f0 0x9e 0x30f0…310e »* DELETE END FILE IF IT EXISTS« 0x310e…310f 0x32 0x310f…3110 0xa4 0x3110…3134 »// IF DATAF1-$MYEND DELETE $MYEND,F1« 0x3134…3135 0x2c 0x3135…3136 0x81 0x3136…3137 »*« 0x3137…3138 0x4f 0x3138…3139 0xc0 0x3139…3179 »* MAKE THE ACTION FILE 80 RECORDS BIGGER THAN THE SELECTION FILE« 0x3179…317a 0x10 0x317a…317b 0xa0 0x317b…319b »// EVALUATE P59,8=?F'S,?10?'?+80« 0x319b…319c 0x30 0x319c…319d 0x81 0x319d…319e »*« 0x319e…319f 0x4f 0x319f…31a0 0xa8 0x31a0…31c8 »* USE BLDFILE PROC TO CREATE ACTION FILE« 0x31c8…31c9 0x28 0x31c9…31ca 0x81 0x31ca…31cb »*« 0x31cb…31cc 0x4f 0x31cc…31cd 0xab 0x31cd…31f8 »BLDFILE $MYACT,I,R,?59?,32,,,1,9,,DUPKEY,80« 0x31f8…31f9 0x25 0x31f9…31fa 0x81 0x31fa…31fb »*« 0x31fb…31fc 0x4f 0x31fc…31fd 0xbb 0x31fd…3238 »* IF THE MEDIA IS TAPE, THEN CREATE THE TAPE SELECTION FILE« 0x3238…3239 0x15 0x3239…323a 0x81 0x323a…323b »*« 0x323b…323c 0x4f 0x323c…323d 0xbb 0x323d…3278 »// IF ?2?=TAPE BLDFILE $MYMIGR,I,R,?59?,15,,,1,14,DFILE,,40« 0x3278…3279 0x15 0x3279…327a 0x81 0x327a…327b »*« 0x327b…327c 0x4f 0x327c…327d 0xa5 0x327d…32a2 »* USE BLDFILE PROC TO CREATE END FILE« 0x32a2…32a3 0x2b 0x32a3…32a4 0x81 0x32a4…32a5 »*« 0x32a5…32a6 0x4f 0x32a6…32a7 0x96 0x32a7…32bd »BLDFILE $MYEND,S,R,1,1« 0x32bd…32be 0x3a 0x32be…32bf 0x81 0x32bf…32c0 »*« 0x32c0…32c1 0x4f 0x32c1…32c2 0xc2 0x32c2…3304 »* ALLOCATE THE ACTION FILE OUTSIDE A LOAD-RUN TO KEEP IT ALLOCATED« 0x3304…3305 0x0e 0x3305…3306 0xa0 0x3306…3326 »* // FILE NAME-$MYACT,DISP-SHRMR« 0x3326…3327 0x30 0x3327…3328 0x81 0x3328…3329 »*« 0x3329…332a 0x4f 0x332a…332b 0x9f 0x332b…334a »* SET UP THE LDA WITH THE PARMS« 0x334a…334b 0x31 0x334b…334c 0x81 0x334c…334d »*« 0x334d…334e 0x4f 0x334e…334f 0x8c 0x334f…335b »* MEDIA TYPE« 0x335b…335c 0x44 0x335c…335d 0xa7 0x335d…3384 »// LOCAL AREA-SYSTEM,OFFSET-293,BLANK-1« 0x3384…3385 0x29 0x3385…3386 0xb8 0x3386…33be »// IF ?2?=DISKETTE LOCAL AREA-SYSTEM,OFFSET-293,DATA-'1'« 0x33be…33bf 0x18 0x33bf…33c0 0xb4 0x33c0…33f4 »// IF ?2?=TAPE LOCAL AREA-SYSTEM,OFFSET-293,DATA-'2'« 0x33f4…33f5 0x1c 0x33f5…33f6 0xb4 0x33f6…342a »// IF ?2?=DISK LOCAL AREA-SYSTEM,OFFSET-293,DATA-'3'« 0x342a…342b 0x1c 0x342b…342c 0xb8 0x342c…3464 »// IF ?2?=DATALINK LOCAL AREA-SYSTEM,OFFSET-293,DATA-'4'« 0x3464…3465 0x18 0x3465…3466 0x81 0x3466…3467 »*« 0x3467…3468 0x4f 0x3468…3469 0x87 0x3469…3470 »* VOLID« 0x3470…3471 0x49 0x3471…3472 0xb2 0x3472…34a4 »// LOCAL AREA-SYSTEM,OFFSET-294,DATA-'?3?',BLANK-6« 0x34a4…34a5 0x1e 0x34a5…34a6 0x81 0x34a6…34a7 »*« 0x34a7…34a8 0x4f 0x34a8…34a9 0x8a 0x34a9…34b3 »* LOCATION« 0x34b3…34b4 0x46 0x34b4…34b5 0xb2 0x34b5…34e7 »// LOCAL AREA-SYSTEM,OFFSET-300,DATA-'?4?',BLANK-5« 0x34e7…34e8 0x1e 0x34e8…34e9 0x81 0x34e9…34ea »*« 0x34ea…34eb 0x4f 0x34eb…34ec 0x8d 0x34ec…34f9 »* AUTO/NOAUTO« 0x34f9…34fa 0x43 0x34fa…34fb 0xbc 0x34fb…3537 »// IF ?5?=AUTO LOCAL AREA-SYSTEM,OFFSET-305,DATA-'1',BLANK-1« 0x3537…3538 0x14 0x3538…3539 0xb5 0x3539…356e »// ELSE LOCAL AREA-SYSTEM,OFFSET-305,DATA-'2',BLANK-1« 0x356e…356f 0x1b 0x356f…3570 0x81 0x3570…3571 »*« 0x3571…3572 0x4f 0x3572…3573 0x97 0x3573…358a »* USER PROC AND LIBRARY« 0x358a…358b 0x39 0x358b…358c 0xb3 0x358c…35bf »// LOCAL AREA-SYSTEM,OFFSET-421,BLANK-8,DATA-'?12?'« 0x35bf…35c0 0x1d 0x35c0…35c1 0xb3 0x35c1…35f4 »// LOCAL AREA-SYSTEM,OFFSET-429,BLANK-8,DATA-'?13?'« 0x35f4…35f5 0x1d 0x35f5…35f6 0x81 0x35f6…35f7 »*« 0x35f7…35f8 0x4f 0x35f8…35f9 0x91 0x35f9…360a »* SECURE/NOSECURE« 0x360a…360b 0x3f 0x360b…360c 0xbe 0x360c…364a »// IF ?8?=SECURE LOCAL AREA-SYSTEM,OFFSET-308,DATA-'1',BLANK-1« 0x364a…364b 0x12 0x364b…364c 0xb5 0x364c…3681 »// ELSE LOCAL AREA-SYSTEM,OFFSET-308,DATA-'2',BLANK-1« 0x3681…3682 0x1b 0x3682…3683 0x81 0x3683…3684 »*« 0x3684…3685 0x4f 0x3685…3686 0x90 0x3686…3696 »* TARGET LIBRARY« 0x3696…3697 0x40 0x3697…3698 0xb3 0x3698…36cb »// LOCAL AREA-SYSTEM,OFFSET-317,DATA-'?9?',BLANK-10« 0x36cb…36cc 0x1d 0x36cc…36cd 0x81 0x36cd…36ce »*« 0x36ce…36cf 0x4f 0x36cf…36d0 0x90 0x36d0…36e0 »* DBCS INDICATOR« 0x36e0…36e1 0x40 0x36e1…36e2 0xb3 0x36e2…3715 »// LOCAL AREA-SYSTEM,OFFSET-343,DATA-'?14?',BLANK-1« 0x3715…3716 0x1d 0x3716…3717 0x81 0x3717…3718 »*« 0x3718…3719 0x4f 0x3719…371a 0xb2 0x371a…374c »* CHECK VOLID AND TARGET LIBRARY NAME FOR ACCURACY« 0x374c…374d 0x1e 0x374d…374e 0x94 0x374e…3762 »// LOAD #MYEC,#MYLIB« 0x3762…3763 0x3c 0x3763…3764 0x86 0x3764…376a »// RUN« 0x376a…376b 0x4a 0x376b…376c 0xa7 0x376c…3793 »// IF ?L'336,1'?/2 #ERR 1545,3,MIGR,?9?« 0x3793…3794 0x29 0x3794…3795 0xb7 0x3795…37cc »// IF ?L'337,1'?/2 IF ?2?/DISKETTE #ERR 1546,3,MIGR,?3?« 0x37cc…37cd 0x19 0x37cd…37ce 0x81 0x37ce…37cf »*« 0x37cf…37d0 0x4f 0x37d0…37d1 0x9b 0x37d1…37ec »* SELECTION FILE MUST EXIST« 0x37ec…37ed 0x35 0x37ed…37ee 0xa8 0x37ee…3816 »// IFF DATAF1-?10? #ERR 1511,3,MIGR,?10?« 0x3816…3817 0x28 0x3817…3818 0x81 0x3818…3819 »*« 0x3819…381a 0x4f 0x381a…381b 0x95 0x381b…3830 »* SELECTION FILE NAME« 0x3830…3831 0x3b 0x3831…3832 0xa9 0x3832…385b »* (INTERACTIVE PATH MUST FILL IN PARM 10)« 0x385b…385c 0x27 0x385c…385d 0xb3 0x385d…3890 »// LOCAL AREA-SYSTEM,OFFSET-101,DATA-'?10?',BLANK-8« 0x3890…3891 0x1d 0x3891…3892 0x81 0x3892…3893 »*« 0x3893…3894 0x4f 0x3894…3895 0xbd 0x3895…38d2 »* AUDIT FILE NAME (IF BLANK, 117 WILL CONTAIN DEFAULT $MYAUD)« 0x38d2…38d3 0x13 0x38d3…38d4 0x8c 0x38d4…38e0 »// IFF ?11?/« 0x38e0…38e1 0x02 0x38e1…38e2 0xb0 0x38e2…3912 »LOCAL AREA-SYSTEM,OFFSET-117,DATA-'?11?',BLANK-8« 0x3912…3913 0x12 0x3913…3914 0x81 0x3914…3915 »*« 0x3915…3916 0x4f 0x3916…3917 0xaf 0x3917…3946 »* DELETE TEMP FILES AND LIBRARIES IF THEY EXIST« 0x3946…3947 0x21 0x3947…3948 0xb3 0x3948…397b »// IF DATAF1-$MYPROF DELETE $MYPROF,F1,SCRATCH,,ALL« 0x397b…397c 0x1d 0x397c…397d 0xb4 0x397d…39b1 »// IF DATAF1-#MYLIB2 DELETE #MYLIB2,F1,SCRATCH,,LIBR« 0x39b1…39b2 0x1c 0x39b2…39b3 0xb4 0x39b3…39e7 »// IF DATAF1-#MYLIB4 DELETE #MYLIB4,F1,SCRATCH,,LIBR« 0x39e7…39e8 0x1c 0x39e8…39e9 0x9d 0x39e9…3a06 »* CREATE TEMP LIBRARY #MYLIB4« 0x3a06…3a07 0x33 0x3a07…3a08 0x8e 0x3a08…3a16 »// LOAD $MAINT« 0x3a16…3a17 0x42 0x3a17…3a18 0x86 0x3a18…3a1e »// RUN« 0x3a1e…3a1f 0x4a 0x3a1f…3a20 0xc2 0x3a20…3a62 »// ALLOCATE STATUS-CREATE,LIBRNAME-#MYLIB4,LIBRSIZE-100,DIRSIZE-10« 0x3a62…3a63 0x0e 0x3a63…3a64 0x86 0x3a64…3a6a »// END« 0x3a6a…3a6b 0x4a 0x3a6b…3a6c 0x81 0x3a6c…3a6d »*« 0x3a6d…3a6e 0x4f 0x3a6e…3a6f 0xac 0x3a6f…3a9b »* PUT OUT TRANSPORTATION IN PROGRESS MESSAGE« 0x3a9b…3a9c 0x24 0x3a9c…3a9d 0x89 0x3a9d…3aa6 »// * 1183« 0x3aa6…3aa7 0x47 0x3aa7…3aa8 0x81 0x3aa8…3aa9 »*« 0x3aa9…3aaa 0x4f 0x3aaa…3aab 0xa4 0x3aab…3acf »* CALL THE ACTION FILE BUILD PROGRAM« 0x3acf…3ad0 0x2c 0x3ad0…3ad1 0x94 0x3ad1…3ae5 »// LOAD #MYEA,#MYLIB« 0x3ae5…3ae6 0x3c 0x3ae6…3ae7 0xab 0x3ae7…3b12 »// FILE NAME-ACTION,LABEL-$MYACT,DISP-SHRMR« 0x3b12…3b13 0x25 0x3b13…3b14 0xad 0x3b14…3b41 »// FILE NAME-SELECT,LABEL-?L'101,8'?,DISP-OLD« 0x3b41…3b42 0x23 0x3b42…3b43 0x86 0x3b43…3b49 »// RUN« 0x3b49…3b4a 0x4a 0x3b4a…3b4b 0x81 0x3b4b…3b4c »*« 0x3b4c…3b4d 0x4f 0x3b4d…3b4e 0xc5 0x3b4e…3b93 »* IF A PARM 11 IS GIVEN (USER AUDIT FILE) PUT THIS IN LOCAL DATA AREA« 0x3b93…3b94 0x0b 0x3b94…3b95 0xbd 0x3b95…3bd2 »// IFF ?11?/ LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'?11?'« 0x3bd2…3bd3 0x13 0x3bd3…3bd4 0xc6 0x3bd4…3c1a »* CREATE AUDIT FILE IF IT DOESN'T EXIST (DEFAULT-$MYAUD IN 117 OF LDA)« 0x3c1a…3c1b 0x0a 0x3c1b…3c1c 0xc8 0x3c1c…3c64 »// IFF DATAF1-?L'117,8'? BLDFILE ?L'117,8'?,I,R,100,32,,,1,10,,DUPKEY,80« 0x3c64…3c65 0x08 0x3c65…3c66 0x81 0x3c66…3c67 »*« 0x3c67…3c68 0x4f 0x3c68…3c69 0x99 0x3c69…3c82 »* CALL THE EXPORT PROGRAM« 0x3c82…3c83 0x37 0x3c83…3c84 0x94 0x3c84…3c98 »// LOAD #MYEX,#MYLIB« 0x3c98…3c99 0x3c 0x3c99…3c9a 0xae 0x3c9a…3cc8 »// FILE NAME-AUDIT,LABEL-?L'117,8'?,DISP-SHRMM« 0x3cc8…3cc9 0x22 0x3cc9…3cca 0x86 0x3cca…3cd0 »// RUN« 0x3cd0…3cd1 0x4a 0x3cd1…3cd2 0x81 0x3cd2…3cd3 »*« 0x3cd3…3cd4 0x4f 0x3cd4…3cd5 0xa2 0x3cd5…3cf7 »* DELETE TEMP LIBRARY IF IT EXISTS« 0x3cf7…3cf8 0x2e 0x3cf8…3cf9 0xb4 0x3cf9…3d2d »// IF DATAF1-#MYLIB4 DELETE #MYLIB4,F1,SCRATCH,,LIBR« 0x3d2d…3d2e 0x1c 0x3d2e…3d2f 0x81 0x3d2f…3d30 »*« 0x3d30…3d31 0x4f 0x3d31…3d32 0xbc 0x3d32…3d6e »* CALL #MYCT TO DELETE SELECTION FILE RECORD IN CONTROL FILE« 0x3d6e…3d6f 0x14 0x3d6f…3d70 0xa8 0x3d70…3d98 »// LOCAL AREA-SYSTEM,OFFSET-238,DATA-'4'« 0x3d98…3d99 0x28 0x3d99…3d9a 0x8d 0x3d9a…3da7 »// LOAD #MYCT« 0x3da7…3da8 0x43 0x3da8…3da9 0x86 0x3da9…3daf »// RUN« 0x3daf…3db0 0x4a 0x3db0…3db1 0x81 0x3db1…3db2 »*« 0x3db2…3db3 0x4f 0x3db3…3db4 0x97 0x3db4…3dcb »* DELETE SELECTION FILE« 0x3dcb…3dcc 0x39 0x3dcc…3dcd 0xac 0x3dcd…3df9 »// IF DATAF1-?L'101,8'? DELETE ?L'101,8'?,F1« 0x3df9…3dfa 0x24 0x3dfa…3dfb 0x81 0x3dfb…3dfc »*« 0x3dfc…3dfd 0x4f 0x3dfd…3dfe 0xaa 0x3dfe…3e28 »* CALL EXCEPTION REPORT GENERATION PROGRAM« 0x3e28…3e29 0x26 0x3e29…3e2a 0x93 0x3e2a…3e3d »// INCLUDE MYREPEXP« 0x3e3d…3e3e 0x3d 0x3e3e…3e3f 0x81 0x3e3f…3e40 »*« 0x3e40…3e41 0x4f 0x3e41…3e42 0x98 0x3e42…3e5a »* DELETE ACTION FILE NOW« 0x3e5a…3e5b 0x38 0x3e5b…3e5c 0xa4 0x3e5c…3e80 »// IF DATAF1-$MYACT DELETE $MYACT,F1« 0x3e80…3e81 0x2c 0x3e81…3e82 0x81 0x3e82…3e83 »*« 0x3e83…3e84 0x4f 0x3e84…3e85 0x98 0x3e85…3e9d »* DELETE ENDING FILE NOW« 0x3e9d…3e9e 0x38 0x3e9e…3e9f 0xa4 0x3e9f…3ec3 »// IF DATAF1-$MYEND DELETE $MYEND,F1« 0x3ec3…3ec4 0x2c 0x3ec4…3ec5 0x81 0x3ec5…3ec6 »*« 0x3ec6…3ec7 0x4f 0x3ec7…3ec8 0x89 0x3ec8…3ed1 »// RETURN« 0x3ed1…3ed2 0x47 0x3ed2…3ed3 0x81 0x3ed3…3ed4 »*« 0x3ed4…3ed5 0x4f 0x3ed5…3ed6 0xc7 0x3ed6…3f1d »***********************************************************************« 0x3f1d…3f1e 0x09 0x3f1e…3f1f 0x81 0x3f1f…3f20 »*« 0x3f20…3f21 0x04 0x3f21…3f22 0x8f 0x3f22…3f31 »MIGRATE REPORTS« 0x3f31…3f32 0x32 0x3f32…3f33 0x81 0x3f33…3f34 »*« 0x3f34…3f35 0x09 0x3f35…3f36 0xc7 0x3f36…3f7d »***********************************************************************« 0x3f7d…3f7e 0x09 0x3f7e…3f7f 0x81 0x3f7f…3f80 »*« 0x3f80…3f81 0x4f 0x3f81…3f82 0x8e 0x3f82…3f90 »// TAG REPORTS« 0x3f90…3f91 0x42 0x3f91…3f92 0x81 0x3f92…3f93 »*« 0x3f93…3f94 0x4f 0x3f94…3f95 0xa4 0x3f95…3fb9 »// IF DATAF1-$MYWK0 DELETE $MYWK0,F1« 0x3fb9…3fba 0x2c 0x3fba…3fbb 0xa4 0x3fbb…3fdf »// IF DATAF1-$MYWK1 DELETE $MYWK1,F1« 0x3fdf…3fe0 0x2c 0x3fe0…3fe1 0xa4 0x3fe1…4005 »// IF DATAF1-$MYIND DELETE $MYIND,F1« 0x4005…4006 0x2c 0x4006…4007 0xa6 0x4007…402d »// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1« 0x402d…402e 0x2a 0x402e…402f 0x81 0x402f…4030 »*« 0x4030…4031 0x4f 0x4031…4032 0xa3 0x4032…4055 »* IF PARMS WERE BLANK, DEFAULT THEM« 0x4055…4056 0x2d 0x4056…4057 0x81 0x4057…4058 »*« 0x4058…4059 0x4f 0x4059…405a 0xa1 0x405a…407b »// IF ?2?='' EVALUATE P2=MIGRATED« 0x407b…407c 0x2f 0x407c…407d 0xb0 0x407d…40ad »// IF ?3?='' IF ?2?=MIGRATED EVALUATE P3=SORTRUN« 0x40ad…40ae 0x20 0x40ae…40af 0xad 0x40af…40dc »// IF ?4?='' IF ?2?=MIGRATED EVALUATE P4=LAST« 0x40dc…40dd 0x23 0x40dd…40de 0xad 0x40de…410b »// IF ?5?='' IFF ?2?=ANALYZED EVALUATE P5=ALL« 0x410b…410c 0x23 0x410c…410d 0x81 0x410d…410e »*« 0x410e…410f 0x4f 0x410f…4110 0xa8 0x4110…4138 »* ERROR CHECK COMBINATIONS OF PARAMETERS« 0x4138…4139 0x28 0x4139…413a 0x81 0x413a…413b »*« 0x413b…413c 0x4f 0x413c…413d 0xaf 0x413d…416c »// IFF ?2?=MIGRATED IFF ?3?='' #ERR 1550,3,MIGR« 0x416c…416d 0x21 0x416d…416e 0xaf 0x416e…419d »// IFF ?2?=MIGRATED IFF ?4?='' #ERR 1551,3,MIGR« 0x419d…419e 0x21 0x419e…419f 0xae 0x419f…41cd »// IF ?2?=ANALYZED IFF ?5?='' #ERR 1552,3,MIGR« 0x41cd…41ce 0x22 0x41ce…41cf 0xa9 0x41cf…41f8 »// IF ?4?=ALL IFF ?7?='' #ERR 1553,3,MIGR« 0x41f8…41f9 0x27 0x41f9…41fa 0x81 0x41fa…41fb »*« 0x41fb…41fc 0x4f 0x41fc…41fd 0xa6 0x41fd…4223 »* HANDLE BATCH INTERFACE IF NECCESSARY« 0x4223…4224 0x2a 0x4224…4225 0x81 0x4225…4226 »*« 0x4226…4227 0x4f 0x4227…4228 0xa8 0x4228…4250 »// LOCAL AREA-SYSTEM,DATA-' ',OFFSET-359« 0x4250…4251 0x28 0x4251…4252 0x9b 0x4252…426d »// IF ?4?=FILE GOTO ALLRUNS« 0x426d…426e 0x35 0x426e…426f 0x9a 0x426f…4289 »// IF ?4?=ALL GOTO ALLRUNS« 0x4289…428a 0x36 0x428a…428b 0x9c 0x428b…42a7 »// IFF ?4?=LAST GOTO NOTLAST« 0x42a7…42a8 0x34 0x42a8…42a9 0xa8 0x42a9…42d1 »// LOCAL AREA-SYSTEM,DATA-'L',OFFSET-359« 0x42d1…42d2 0x28 0x42d2…42d3 0x8f 0x42d3…42e2 »// GOTO MYRRTAG« 0x42e2…42e3 0x41 0x42e3…42e4 0x8e 0x42e4…42f2 »// TAG NOTLAST« 0x42f2…42f3 0x42 0x42f3…42f4 0xa8 0x42f4…431c »// LOCAL AREA-SYSTEM,DATA-'F',OFFSET-359« 0x431c…431d 0x28 0x431d…431e 0xb2 0x431e…4350 »// LOCAL AREA-SYSTEM,DATA-'?4?',OFFSET-378,BLANK-8« 0x4350…4351 0x1e 0x4351…4352 0x8e 0x4352…4360 »// TAG MYRRTAG« 0x4360…4361 0x42 0x4361…4362 0x94 0x4362…4376 »// LOAD #MYRR,#MYLIB« 0x4376…4377 0x3c 0x4377…4378 0x86 0x4378…437e »// RUN« 0x437e…437f 0x4a 0x437f…4380 0x99 0x4380…4399 »// EVALUATE P7=?L'378,8'?« 0x4399…439a 0x37 0x439a…439b 0x93 0x439b…43ae »// EVALUATE P4=FILE« 0x43ae…43af 0x3d 0x43af…43b0 0x8e 0x43b0…43be »// TAG ALLRUNS« 0x43be…43bf 0x42 0x43bf…43c0 0x81 0x43c0…43c1 »*« 0x43c1…43c2 0x4f 0x43c2…43c3 0xc8 0x43c3…440b »* MYEC PUTS SESSION DATE FORMAT INTO LDA (AS WELL AS THE CHECKING FUNCT)« 0x440b…440c 0x08 0x440c…440d 0x94 0x440d…4421 »// LOAD #MYEC,#MYLIB« 0x4421…4422 0x3c 0x4422…4423 0x86 0x4423…4429 »// RUN« 0x4429…442a 0x4a 0x442a…442b 0x81 0x442b…442c »*« 0x442c…442d 0x4f 0x442d…442e 0x97 0x442e…4445 »* ERROR CHECK THE PARMS« 0x4445…4446 0x39 0x4446…4447 0xc6 0x4447…448d »// IFF ?2?/MIGRATED IFF ?2?/NOTMIGR IFF ?2?/ANALYZED BADPARM REPORTS,2« 0x448d…448e 0x0a 0x448e…448f 0xa3 0x448f…44b2 »// IFF ?3?/SORTRUN IFF ?3?/SORTITEM« 0x44b2…44b3 0x02 0x44b3…44b4 0x9a 0x44b4…44ce »IFF ?3?/ BADPARM REPORTS,3« 0x44ce…44cf 0x11 0x44cf…44d0 0x9f 0x44d0…44ef »// IF ?2?/ANALYZED GOTO RECOMBO« 0x44ef…44f0 0x31 0x44f0…44f1 0xc6 0x44f1…4537 »// IFF ?5?/LDA IFF ?5?/LIBRARY IFF ?5?/FILE IFF ?5?/USER GOTO RE5MORE1« 0x4537…4538 0x0a 0x4538…4539 0x8f 0x4539…4548 »// GOTO RECOMBO« 0x4548…4549 0x41 0x4549…454a 0x81 0x454a…454b »*« 0x454b…454c 0x4f 0x454c…454d 0x8f 0x454d…455c »// TAG RE5MORE1« 0x455c…455d 0x41 0x455d…455e 0xcd 0x455e…45ab »// IFF ?5?/FOLDER IFF ?5?/SPELDICT IFF ?5?/DATADICT IFF ?5?/NRD GOTO RE5MORE2« 0x45ab…45ac 0x03 0x45ac…45ad 0x8f 0x45ad…45bc »// GOTO RECOMBO« 0x45bc…45bd 0x41 0x45bd…45be 0x81 0x45be…45bf »*« 0x45bf…45c0 0x4f 0x45c0…45c1 0x8f 0x45c1…45d0 »// TAG RE5MORE2« 0x45d0…45d1 0x41 0x45d1…45d2 0xae 0x45d2…4600 »// IFF ?5?/MASTER IFF ?5?/ALL BADPARM EXPORT,5« 0x4600…4601 0x22 0x4601…4602 0x8e 0x4602…4610 »// TAG RECOMBO« 0x4610…4611 0x42 0x4611…4612 0x81 0x4612…4613 »*« 0x4613…4614 0x4f 0x4614…4615 0x9f 0x4615…4634 »* SET UP THE LDA WITH THE PARMS« 0x4634…4635 0x31 0x4635…4636 0x81 0x4636…4637 »*« 0x4637…4638 0x4f 0x4638…4639 0x8d 0x4639…4646 »* REPORT TYPE« 0x4646…4647 0x43 0x4647…4648 0xa7 0x4648…466f »// LOCAL AREA-SYSTEM,OFFSET-357,BLANK-1« 0x466f…4670 0x29 0x4670…4671 0xb8 0x4671…46a9 »// IF ?2?=MIGRATED LOCAL AREA-SYSTEM,OFFSET-357,DATA-'M'« 0x46a9…46aa 0x18 0x46aa…46ab 0xb7 0x46ab…46e2 »// IF ?2?=NOTMIGR LOCAL AREA-SYSTEM,OFFSET-357,DATA-'N'« 0x46e2…46e3 0x19 0x46e3…46e4 0xb8 0x46e4…471c »// IF ?2?=ANALYZED LOCAL AREA-SYSTEM,OFFSET-357,DATA-'A'« 0x471c…471d 0x18 0x471d…471e 0x81 0x471e…471f »*« 0x471f…4720 0x4f 0x4720…4721 0x8b 0x4721…472c »* SORT TYPE« 0x472c…472d 0x45 0x472d…472e 0xbf 0x472e…476d »// IF ?3?=SORTRUN LOCAL AREA-SYSTEM,OFFSET-358,DATA-'R',BLANK-1« 0x476d…476e 0x11 0x476e…476f 0xb5 0x476f…47a4 »// ELSE LOCAL AREA-SYSTEM,OFFSET-358,DATA-'I',BLANK-1« 0x47a4…47a5 0x1b 0x47a5…47a6 0x81 0x47a6…47a7 »*« 0x47a7…47a8 0x4f 0x47a8…47a9 0x8a 0x47a9…47b3 »* RUN FLAG« 0x47b3…47b4 0x46 0x47b4…47b5 0xb3 0x47b5…47e8 »// IF ?4?=ALL LOCAL AREA-SYSTEM,OFFSET-359,DATA-'A'« 0x47e8…47e9 0x1d 0x47e9…47ea 0xad 0x47ea…4817 »// ELSE LOCAL AREA-SYSTEM,OFFSET-359,DATA-'F'« 0x4817…4818 0x23 0x4818…4819 0x81 0x4819…481a »*« 0x481a…481b 0x4f 0x481b…481c 0x98 0x481c…4834 »* RUN NUMBER FILE IN LDA« 0x4834…4835 0x38 0x4835…4836 0xb2 0x4836…4868 »// LOCAL AREA-SYSTEM,OFFSET-378,BLANK-8,DATA-'?7?'« 0x4868…4869 0x1e 0x4869…486a 0x81 0x486a…486b »*« 0x486b…486c 0x4f 0x486c…486d 0xbe 0x486d…48ab »* PUT USER AUDIT FILE IN LDA IF PRESENT (ELSE WILL USE $MYAUD)« 0x48ab…48ac 0x12 0x48ac…48ad 0x8b 0x48ad…48b8 »// IFF ?6?/« 0x48b8…48b9 0x02 0x48b9…48ba 0xaf 0x48ba…48e9 »LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'?6?'« 0x48e9…48ea 0x14 0x48ea…48eb 0x81 0x48eb…48ec »*« 0x48ec…48ed 0x4f 0x48ed…48ee 0xbe 0x48ee…492c »* MIGRATION OBJECT TO REPORT ON (LDA MEANS LDA ALREADY SET UP)« 0x492c…492d 0x12 0x492d…492e 0xc7 0x492e…4975 »// IF ?5?=LDA IFF ?8?/ LOCAL AREA-SYSTEM,OFFSET-360,BLANK-18,DATA-'?8?'« 0x4975…4976 0x09 0x4976…4977 0x9a 0x4977…4991 »// IF ?5?=LDA GOTO REPROGS« 0x4991…4992 0x36 0x4992…4993 0xa8 0x4993…49bb »// LOCAL AREA-SYSTEM,OFFSET-360,BLANK-18« 0x49bb…49bc 0x28 0x49bc…49bd 0xb3 0x49bd…49f0 »// IF ?5?=ALL LOCAL AREA-SYSTEM,DATA-'1',OFFSET-360« 0x49f0…49f1 0x1d 0x49f1…49f2 0xb7 0x49f2…4a29 »// IF ?5?=LIBRARY LOCAL AREA-SYSTEM,DATA-'1',OFFSET-361« 0x4a29…4a2a 0x19 0x4a2a…4a2b 0xb4 0x4a2b…4a5f »// IF ?5?=FILE LOCAL AREA-SYSTEM,DATA-'1',OFFSET-362« 0x4a5f…4a60 0x1c 0x4a60…4a61 0xb4 0x4a61…4a95 »// IF ?5?=USER LOCAL AREA-SYSTEM,DATA-'1',OFFSET-363« 0x4a95…4a96 0x1c 0x4a96…4a97 0xb6 0x4a97…4acd »// IF ?5?=FOLDER LOCAL AREA-SYSTEM,DATA-'1',OFFSET-364« 0x4acd…4ace 0x1a 0x4ace…4acf 0xb8 0x4acf…4b07 »// IF ?5?=SPELDICT LOCAL AREA-SYSTEM,DATA-'1',OFFSET-365« 0x4b07…4b08 0x18 0x4b08…4b09 0xb8 0x4b09…4b41 »// IF ?5?=DATADICT LOCAL AREA-SYSTEM,DATA-'1',OFFSET-366« 0x4b41…4b42 0x18 0x4b42…4b43 0xb3 0x4b43…4b76 »// IF ?5?=NRD LOCAL AREA-SYSTEM,DATA-'1',OFFSET-367« 0x4b76…4b77 0x1d 0x4b77…4b78 0xb6 0x4b78…4bae »// IF ?5?=MASTER LOCAL AREA-SYSTEM,DATA-'1',OFFSET-368« 0x4bae…4baf 0x1a 0x4baf…4bb0 0x81 0x4bb0…4bb1 »*« 0x4bb1…4bb2 0x4f 0x4bb2…4bb3 0x9a 0x4bb3…4bcd »* CALL THE REPORT PROGRAMS« 0x4bcd…4bce 0x36 0x4bce…4bcf 0x8e 0x4bcf…4bdd »// TAG REPROGS« 0x4bdd…4bde 0x42 0x4bde…4bdf 0x81 0x4bdf…4be0 »*« 0x4be0…4be1 0x4f 0x4be1…4be2 0x81 0x4be2…4be3 »*« 0x4be3…4be4 0x02 0x4be4…4be5 0x88 0x4be5…4bed »MIGRATED« 0x4bed…4bee 0x45 0x4bee…4bef 0xa3 0x4bef…4c12 »// IF ?2?=MIGRATED INCLUDE MYREPMIG« 0x4c12…4c13 0x2d 0x4c13…4c14 0x9f 0x4c14…4c33 »// IF ?2?=MIGRATED GOTO DONEREP« 0x4c33…4c34 0x31 0x4c34…4c35 0x81 0x4c35…4c36 »*« 0x4c36…4c37 0x4f 0x4c37…4c38 0x81 0x4c38…4c39 »*« 0x4c39…4c3a 0x02 0x4c3a…4c3b 0x8c 0x4c3b…4c47 »NOT MIGRATED« 0x4c47…4c48 0x41 0x4c48…4c49 0xa2 0x4c49…4c6b »// IF ?2?=NOTMIGR INCLUDE MYREPNMG« 0x4c6b…4c6c 0x2e 0x4c6c…4c6d 0x9e 0x4c6d…4c8b »// IF ?2?=NOTMIGR GOTO DONEREP« 0x4c8b…4c8c 0x32 0x4c8c…4c8d 0x81 0x4c8d…4c8e »*« 0x4c8e…4c8f 0x4f 0x4c8f…4c90 0x81 0x4c90…4c91 »*« 0x4c91…4c92 0x02 0x4c92…4c93 0x88 0x4c93…4c9b »ANALYZED« 0x4c9b…4c9c 0x45 0x4c9c…4c9d 0x88 0x4c9d…4ca5 »MYREPANL« 0x4ca5…4ca6 0x48 0x4ca6…4ca7 0x81 0x4ca7…4ca8 »*« 0x4ca8…4ca9 0x4f 0x4ca9…4caa 0x97 0x4caa…4cc1 »* DELETE ANY WORK FILES« 0x4cc1…4cc2 0x39 0x4cc2…4cc3 0x8e 0x4cc3…4cd1 »// TAG DONEREP« 0x4cd1…4cd2 0x42 0x4cd2…4cd3 0xa4 0x4cd3…4cf7 »// IF DATAF1-$MYWK0 DELETE $MYWK0,F1« 0x4cf7…4cf8 0x2c 0x4cf8…4cf9 0xa4 0x4cf9…4d1d »// IF DATAF1-$MYWK1 DELETE $MYWK1,F1« 0x4d1d…4d1e 0x2c 0x4d1e…4d1f 0xa4 0x4d1f…4d43 »// IF DATAF1-$MYIND DELETE $MYIND,F1« 0x4d43…4d44 0x2c 0x4d44…4d45 0xa6 0x4d45…4d6b »// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1« 0x4d6b…4d6c 0x2a 0x4d6c…4d6d 0xbc 0x4d6d…4da9 »// IFF ?L'378,8'?/ IF DATAF1-?L'378,8'? DELETE ?L'378,8'?,F1« 0x4da9…4daa 0x14 0x4daa…4dab 0x89 0x4dab…4db4 »// RETURN« 0x4db4…4db5 0x47 0x4db5…4db6 0xc6 0x4db6…4dfc »**********************************************************************« 0x4dfc…4dfd 0x0a 0x4dfd…4dfe 0x81 0x4dfe…4dff »*« 0x4dff…4e00 0x4f 0x4e00…4e01 0x91 0x4e01…4e12 »* TITLE : MIGRATE« 0x4e12…4e13 0x3f 0x4e13…4e14 0x81 0x4e14…4e15 »*« 0x4e15…4e16 0x4f 0x4e16…4e17 0xb8 0x4e17…4e4f »* DESCRIPTIVE NAME : MIGRATION BATCH INTERFACE PROCEDURE« 0x4e4f…4e50 0x18 0x4e50…4e51 0x81 0x4e51…4e52 »*« 0x4e52…4e53 0x4f 0x4e53…4e54 0x8c 0x4e54…4e60 »* FUNCTION :« 0x4e60…4e61 0x02 0x4e61…4e62 0xb7 0x4e62…4e99 »THIS PROC PROVIDES A SCREEN-LESS INTERFACE TO MIGRATION« 0x4e99…4e9a 0x0b 0x4e9a…4e9b 0x9e 0x4e9b…4eb9 »* FOR THE ADVANCED PROGRAMMER.« 0x4eb9…4eba 0x02 0x4eba…4ebb 0x9e 0x4ebb…4ed9 »IT IS ALSO USED BY SOME OF THE« 0x4ed9…4eda 0x12 0x4eda…4edb 0xbc 0x4edb…4f17 »* INTERACTIVE PATHS FOR FUNCTIONS SUCH AS EXPORT OR REPORTS.« 0x4f17…4f18 0x14 0x4f18…4f19 0x81 0x4f19…4f1a »*« 0x4f1a…4f1b 0x4f 0x4f1b…4f1c 0xc4 0x4f1c…4f60 »* FUNCTION FLOW: THE FIRST PARAMETER IS USED TO ROUTE CONTROL TO THE« 0x4f60…4f61 0x0c 0x4f61…4f62 0x92 0x4f62…4f74 »* DESIRED FUNCTION« 0x4f74…4f75 0x3e 0x4f75…4f76 0x81 0x4f76…4f77 »*« 0x4f77…4f78 0x4f 0x4f78…4f79 0x81 0x4f79…4f7a »*« 0x4f7a…4f7b 0x4f 0x4f7b…4f7c 0x91 0x4f7c…4f8d »* GOTO MAIN MENU:« 0x4f8d…4f8e 0x3f 0x4f8e…4f8f 0x81 0x4f8f…4f90 »*« 0x4f90…4f91 0x03 0x4f91…4f92 0x87 0x4f92…4f99 »MIGRATE« 0x4f99…4f9a 0x45 0x4f9a…4f9b 0x81 0x4f9b…4f9c »*« 0x4f9c…4f9d 0x4f 0x4f9d…4f9e 0x9a 0x4f9e…4fb8 »* CREATE A SELECTION FILE:« 0x4fb8…4fb9 0x36 0x4fb9…4fba 0x81 0x4fba…4fbb »*« 0x4fbb…4fbc 0x03 0x4fbc…4fbd 0xc4 0x4fbd…5001 »MIGRATE CREATE, SELECTION_FILE, SEL_FILE_DESCRIPTION, NUMBER_OF_RECS« 0x5001…5002 0x08 0x5002…5003 0x81 0x5003…5004 »*« 0x5004…5005 0x4f 0x5005…5006 0xa6 0x5006…502c »* ADD A SELECTION TO A SELECTION FILE:« 0x502c…502d 0x2a 0x502d…502e 0x81 0x502e…502f »*« 0x502f…5030 0x03 0x5030…5031 0xbb 0x5031…506c »MIGRATE SELECT, ITEM_TYPE, ITEM_NAME, ITEM_DATE, FILE_TYPE,« 0x506c…506d 0x11 0x506d…506e 0x81 0x506e…506f »*« 0x506f…5070 0x0b 0x5070…5071 0xae 0x5071…509f »ALTERNATE_LIBRAY, COMPILE_FLAG, SELECTION_FILE« 0x509f…50a0 0x16 0x50a0…50a1 0x81 0x50a1…50a2 »*« 0x50a2…50a3 0x4f 0x50a3…50a4 0xa1 0x50a4…50c5 »* ANALYZE FOR UNMIGRATABLE ITEMS:« 0x50c5…50c6 0x2f 0x50c6…50c7 0x81 0x50c7…50c8 »*« 0x50c8…50c9 0x03 0x50c9…50ca 0xc4 0x50ca…510e »MIGRATE ANALYZE, ANLZ_TYPE, ITEM_NAME, LIBRARY_ANLZ_TYPE, AUDIT_FILE« 0x510e…510f 0x08 0x510f…5110 0x81 0x5110…5111 »*« 0x5111…5112 0x4f 0x5112…5113 0xa1 0x5113…5134 »* EXPORT ITEMS TO TARGET MACHINE:« 0x5134…5135 0x2f 0x5135…5136 0x81 0x5136…5137 »*« 0x5137…5138 0x03 0x5138…5139 0xbc 0x5139…5175 »MIGRATE EXPORT, MEDIA, VOLID, LOCATION, AUTO_FLAG, TAPE_END,« 0x5175…5176 0x10 0x5176…5177 0x81 0x5177…5178 »*« 0x5178…5179 0x0b 0x5179…517a 0xb9 0x517a…51b3 »SEQUENCE_NUMBER, SECURITY_FLAG, TARGET_LIBRARY_FOR_FILES,« 0x51b3…51b4 0x0b 0x51b4…51b5 0x81 0x51b5…51b6 »*« 0x51b6…51b7 0x0b 0x51b7…51b8 0x9a 0x51b8…51d2 »SELECTION_FILE, AUDIT_FILE« 0x51d2…51d3 0x2a 0x51d3…51d4 0x81 0x51d4…51d5 »*« 0x51d5…51d6 0x4f 0x51d6…51d7 0x9f 0x51d7…51f6 »* PRODUCE REPORTS ON MIGRATION:« 0x51f6…51f7 0x31 0x51f7…51f8 0x81 0x51f8…51f9 »*« 0x51f9…51fa 0x03 0x51fa…51fb 0xc3 0x51fb…523e »MIGRATE REPORTS,REPORT_TYPE, SORT_TYPE, RUN_NUMBER_FLAG, ITEM_TYPE,« 0x523e…523f 0x09 0x523f…5240 0x81 0x5240…5241 »*« 0x5241…5242 0x0b 0x5242…5243 0x9b 0x5243…525e »AUDIT_FILE, RUN_NUMBER_FILE« 0x525e…525f 0x29 0x525f…5260 0x81 0x5260…5261 »*« 0x5261…5262 0x4f 0x5262…5263 0x81 0x5263…5264 »*« 0x5264…5265 0x4f 0x5265…5266 0xc2 0x5266…52a8 »* INVOCATION: USER-CODED PROCEDURES, USER INPUT, INTERACTIVE PATHS« 0x52a8…52a9 0x0e 0x52a9…52aa 0x81 0x52aa…52ab »*« 0x52ab…52ac 0x4f 0x52ac…52ad 0x81 0x52ad…52ae »*« 0x52ae…52af 0x0d 0x52af…52b0 0x98 0x52b0…52c8 »MIGRATE PARM1,PARM2, ...« 0x52c8…52c9 0x10 0x52c9…52ca 0x84 0x52ca…52ce »FROM« 0x52ce…52cf 0x16 0x52cf…52d0 0x81 0x52d0…52d1 »*« 0x52d1…52d2 0x07 0x52d2…52d3 0x82 0x52d3…52d5 »OR« 0x52d5…52d6 0x04 0x52d6…52d7 0xa3 0x52d7…52fa »// INCLUDE MIGRATE PARM1,PARM2, ...« 0x52fa…52fb 0x05 0x52fb…52fc 0x83 0x52fc…52ff »OCL« 0x52ff…5300 0x17 0x5300…5301 0x81 0x5301…5302 »*« 0x5302…5303 0x4f 0x5303…5304 0x81 0x5304…5305 »*« 0x5305…5306 0x4f 0x5306…5307 0x81 0x5307…5308 »*« 0x5308…5309 0x4f 0x5309…530a 0x8c 0x530a…5316 »* PARAMETERS« 0x5316…5317 0x44 0x5317…5318 0xc1 0x5318…5359 »* ---------------------------------------------------------------« 0x5359…535a 0x0f 0x535a…535b 0x88 0x535b…5363 »* PARM 1« 0x5363…5364 0x05 0x5364…5365 0x94 0x5365…5379 »- MIGRATION FUNCTION« 0x5379…537a 0x2f 0x537a…537b 0xb8 0x537b…53b3 »* PARM 2 ... - FUNCTION DEPENDENT PARAMETERS (SEE ABOVE)« 0x53b3…53b4 0x18 0x53b4…53b5 0x81 0x53b5…53b6 »*« 0x53b6…53b7 0x4f 0x53b7…53b8 0x81 0x53b8…53b9 »*« 0x53b9…53ba 0x4f 0x53ba…53bb 0x93 0x53bb…53ce »* SCREENS DISPLAYED« 0x53ce…53cf 0x02 0x53cf…53d0 0x81 0x53d0…53d1 »:« 0x53d1…53d2 0x02 0x53d2…53d3 0x84 0x53d3…53d7 »NONE« 0x53d7…53d8 0x34 0x53d8…53d9 0x81 0x53d9…53da »*« 0x53da…53db 0x4f 0x53db…53dc 0x90 0x53dc…53ec »* FILES ACCESSED« 0x53ec…53ed 0x05 0x53ed…53ee 0x81 0x53ee…53ef »:« 0x53ef…53f0 0x02 0x53f0…53f1 0x8c 0x53f1…53fd »CONTROL FILE« 0x53fd…53fe 0x04 0x53fe…53ff 0x99 0x53ff…5418 »- GET NEXT TEMP FILE NAME« 0x5418…5419 0x0f 0x5419…541a 0x81 0x541a…541b »*« 0x541b…541c 0x17 0x541c…541d 0x8e 0x541d…542b »SELECTION FILE« 0x542b…542c 0x02 0x542c…542d 0x99 0x542d…5446 »- CREATE, UPDATE, PROCESS« 0x5446…5447 0x0f 0x5447…5448 0x81 0x5448…5449 »*« 0x5449…544a 0x17 0x544a…544b 0x8b 0x544b…5456 »ACTION FILE« 0x5456…5457 0x05 0x5457…5458 0x99 0x5458…5471 »- CREATE, UPDATE, PROCESS« 0x5471…5472 0x0f 0x5472…5473 0x81 0x5473…5474 »*« 0x5474…5475 0x17 0x5475…5476 0x8a 0x5476…5480 »AUDIT FILE« 0x5480…5481 0x06 0x5481…5482 0x8d 0x5482…548f »- ADD RECORDS« 0x548f…5490 0x1b 0x5490…5491 0x81 0x5491…5492 »*« 0x5492…5493 0x4f 0x5493…5494 0x96 0x5494…54aa »* NORMAL MODULE EXIT :« 0x54aa…54ab 0x02 0x54ab…54ac 0xa5 0x54ac…54d1 »RETURN TO CALLER OR COMMAND PROCESSOR« 0x54d1…54d2 0x13 0x54d2…54d3 0x81 0x54d3…54d4 »*« 0x54d4…54d5 0x4f 0x54d5…54d6 0x93 0x54d6…54e9 »* ABNORMAL MOD EXIT« 0x54e9…54ea 0x02 0x54ea…54eb 0x81 0x54eb…54ec »:« 0x54ec…54ed 0x02 0x54ed…54ee 0x8b 0x54ee…54f9 »SYSLOG HALT« 0x54f9…54fa 0x2d 0x54fa…54fb 0x81 0x54fb…54fc »*« 0x54fc…54fd 0x4f 0x54fd…54fe 0x8d 0x54fe…550b »* RETURN CODE« 0x550b…550c 0x08 0x550c…550d 0x81 0x550d…550e »:« 0x550e…550f 0x02 0x550f…5510 0x84 0x5510…5514 »NONE« 0x5514…5515 0x34 0x5515…5516 0x81 0x5516…5517 »*« 0x5517…5518 0x4f 0x5518…5519 0x93 0x5519…552c »* MESSAGES ISSUED :« 0x552c…552d 0x3d 0x552d…552e 0x81 0x552e…552f »*« 0x552f…5530 0x03 0x5530…5531 0x83 0x5531…5534 »MIC« 0x5534…5535 0x08 0x5535…5536 0x8b 0x5536…5541 »DESCRIPTION« 0x5541…5542 0x36 0x5542…5543 0xc1 0x5543…5584 »* ------------ --------------------------------------------------« 0x5584…5585 0x0f 0x5585…5586 0x8a 0x5586…5590 »* $MICXXXX« 0x5590…5591 0x05 0x5591…5592 0x8b 0x5592…559d »DESCRIPTION« 0x559d…559e 0x36 0x559e…559f 0x81 0x559f…55a0 »*« 0x55a0…55a1 0x4f 0x55a1…55a2 0x92 0x55a2…55b4 »* CROSS REFERENCE:« 0x55b4…55b5 0x3e 0x55b5…55b6 0x81 0x55b6…55b7 »*« 0x55b7…55b8 0x4f 0x55b8…55b9 0x81 0x55b9…55ba »*« 0x55ba…55bb 0x03 0x55bb…55bc 0x89 0x55bc…55c5 »CALLED BY« 0x55c5…55c6 0x02 0x55c6…55c7 0x8b 0x55c7…55d2 »DESCRIPTION« 0x55d2…55d3 0x36 0x55d3…55d4 0x81 0x55d4…55d5 »*« 0x55d5…55d6 0x03 0x55d6…55d7 0x89 0x55d7…55e0 »---------« 0x55e0…55e1 0x02 0x55e1…55e2 0xa2 0x55e2…5604 »----------------------------------« 0x5604…5605 0x1f 0x5605…5606 0x81 0x5606…5607 »*« 0x5607…5608 0x03 0x5608…5609 0x86 0x5609…560f »EXPORT« 0x560f…5610 0x05 0x5610…5611 0x90 0x5611…5621 »EXPORT PROCEDURE« 0x5621…5622 0x31 0x5622…5623 0x81 0x5623…5624 »*« 0x5624…5625 0x03 0x5625…5626 0x87 0x5626…562d »REPORTS« 0x562d…562e 0x04 0x562e…562f 0x91 0x562f…5640 »REPORTS PROCEDURE« 0x5640…5641 0x30 0x5641…5642 0x81 0x5642…5643 »*« 0x5643…5644 0x4f 0x5644…5645 0x81 0x5645…5646 »*« 0x5646…5647 0x4f 0x5647…5648 0xc6 0x5648…568e »**********************************************************************« 0x568e…568f 0x0a 0x568f…5690 0x00 0x5690…56a0 c9 d5 d7 e4 e3 6b 40 c9 d5 e3 c5 d9 c1 c3 e3 c9 ┆INPUT, INTERACTI┆ 0x56a0…56c0 e5 c5 40 d7 c1 e3 c8 e2 0e 81 5c 4f 81 5c 0d 98 d4 c9 c7 d9 c1 e3 c5 40 d7 c1 d9 d4 f1 6b d7 c1 ┆VE PATHS a*|a* qMIGRATE PARM1,PA┆ 0x56c0…56e0 d9 d4 f2 6b 40 4b 4b 4b 10 84 c6 d9 d6 d4 16 81 5c 07 82 d6 d9 04 a3 61 61 40 c9 d5 c3 d3 e4 c4 ┆RM2, ... dFROM a* bOR t// INCLUD┆ 0x56e0…5700 c5 40 d4 c9 c7 d9 c1 e3 c5 40 d7 c1 d9 d4 f1 6b d7 c1 d9 d4 f2 6b 40 4b 4b 4b 05 83 d6 c3 d3 17 ┆E MIGRATE PARM1,PARM2, ... cOCL ┆