1 / 45

Resource Migration

Resource Migration. TmaxSoft Co., Ltd. Contents. 1. MIGRATION OVERVIEW 1.1 Migration Environment 1.2 Migration Type 1.3 Migration Order 2. Migration Utility 2.1 cobgensch 2.2 dsmigin 2.3 dsmigout 2.4 Other Verification ( dsview,dsedit )

laurel-jacobson
Télécharger la présentation

Resource Migration

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Resource Migration TmaxSoft Co., Ltd

  2. Contents 1. MIGRATION OVERVIEW 1.1 Migration Environment 1.2 Migration Type 1.3 Migration Order 2. Migration Utility 2.1 cobgensch 2.2 dsmigin 2.3 dsmigout 2.4 Other Verification(dsview,dsedit) 3. ExerciseCode Conversion and Migration Exercises 3.1 Source Migration Exercise 3.2 Dataset Migration Exercise 3.3 System Table Migration Exercise 4. Source Compile 4.1 Map Compile 4.2 Compile Script Introduction 4.3 Compile andDeploy Exercise(online/batch) 5. Migration Result Verification 5.1 Online 5.2 Batch

  3. 1. Migration Overview 1.1 Migration Environment 1.2 MigrationType 1.3 Migration Order

  4. 1.1 Migration Environment

  5. 1.2 Migration Type • Application Migration EBCDIC Application Source file Application Object OpenFrame Application Object ASCII Application Source file convert compile deploy • Resource Migration EBCDIC Resource file OpenFrame Resource ASCII Resource file convert import • Database Migration EBCDIC DATA OpenFrame Application Object export & import

  6. 1.2 Migration Order

  7. 2. Migration Utility 2.1 cobgensch 2.2 dsmigin 2.3 dsmigout 2.4 Other Verification(dsview,dsedit)

  8. Conversion 2.1 cobgensch Layout Analysis When migrating a data set, batch code conversion cannot occur in record units if there are multiple character sets (when double-byte characters, packed decimal, and zoned decimal are used) in one record of the UNIX source file, which is the source data file. Accordingly, define code conversion rules by record fields in the schema file. (cobgensch TOOL)

  9. Dataset Migration SCHEMA file CreationUtility 2.1 cobgensch (continued) How to Use Usage: cobgensch <input_file> [-r rec_len] [-o output file] [-v volser] Options Options: -r Specifies the length of the record -o Specifies the output filename -v Specifies the volume serial number -d Displays debugging information -V Displays version information

  10. 2.1 cobgensch (continued) 01 I-REC. 05 I-SAGNO PIC X(11). 05 I-DAMBO PIC X(02). 05 I-PHNO PIC X(03). 05 I-BKNO PIC 9(03). 05 I-BKDT PIC X(10). 05 I-BKDT-I PIC X(01). 05 I-BSGB PIC X(02). 05 I-BSHG PIC X(02). 05 I-CIGB PIC X(02). 05 I-CIHG PIC X(02). 05 I-JHGB PIC X(02). 05 I-TTJC PIC S9(13) COMP-3. 05 I-TTIC PIC S9(13). 05 I-NAME PIC X(20). 05 I-TEST1 PIC Z(10). 05 I-TEST2 PIC +(10). 05 I-TEST3 PIC -(10). 05 I-TEST4 PIC ---------. 05 I-TEST5 PIC ----------. 05 I-TEST6 PIC $(10). 05 I-TEST7 PIC \(10). * Schema Version 5.1 L1, 01, I-REC, NULL, 0, 1, L2, 05, I-SAGNO, EBC_ASC, 11, 1, L3, 05, I-DAMBO, EBC_ASC, 2, 1, L4, 05, I-PHNO, EBC_ASC, 3, 1, L5, 05, I-BKNO, U_ZONED, 3, 1, L6, 05, I-BKDT, EBC_ASC, 10, 1, L7, 05, I-BKDT-I, EBC_ASC, 1, 1, L8, 05, I-BSGB, EBC_ASC, 2, 1, L9, 05, I-BSHG, EBC_ASC, 2, 1, L10, 05, I-CIGB, EBC_ASC, 2, 1, L11, 05, I-CIHG, EBC_ASC, 2, 1, L12, 05, I-JHGB, EBC_ASC, 2, 1, L13, 05, I-TTJC, PACKED, 7, 1, L14, 05, I-TTIC, ZONED, 13, 1, L15, 05, I-NAME, EBC_ASC, 20, 1, L16, 05, I-TEST1, U_ZONED, 10, 1, L17, 05, I-TEST2, U_ZONED, 10, 1, L18, 05, I-TEST3, U_ZONED, 10, 1, L19, 05, I-TEST4, U_ZONED, 9, 1, L20, 05, I-TEST5, U_ZONED, 10, 1, L21, 05, I-TEST6, U_ZONED, 10, 1, L22, 05, I-TEST7, U_ZONED, 10, 1, * Condition L0, "\0", ( L1 L2 L3 L4 L5 L6 L7 L8 L9 L10 L11 L12 L13 L14 L15 L16 L17 L18 L19 L20 L21 L22 ) cobgensch a.cpy a.cpy a.conv

  11. 2.1 cobgensch (continued) (schema file) * Schema Version 5.1 L1, 01, TEST01, NULL, 0, 1, L2, 05, KEY1, EBC_ASC, 10, 1, L3, 05, DATA-01, EBC_ASC, 90, 1, L4, 05, DATA-02, GRAPHIC, 50, 1, L5, 05, DATA-03, COPY, 8, 1, L6, 05, DATA-03, ZONED, 10, 1, * Condition L0, "\0", ( L1 L2 L3 L4 L5 L6 ) Conversion code types EBC_ASC: 1 byte character conversion 2 byte character conversion for normal SOSI GRAPHIC: 2byte character conversion (N,G type) ZONED: signed numeric (S9 type) U_ZONED: unsigned numeric (9 type) PACKED: packed decimal (comp-3) COPY: NO conversion (comp)

  12. 2.1 cobgensch (continued) Single LayoutMigration Example * Schema Version 5.1 L1, 01, FIXEDLENGTH, NULL, 0, 1, L2, 05, KEY, EBC_ASC, 4, 1, L3, 05, TYPE, EBC_ASC, 6, 1, L4, 05, DATA, NULL, 0, 1, L5, 10, EBCDATA, EBC_ASC, 3, 1, L6, 10, ZONEDDATA, ZONED, 3, 1, * Condition L0, "\0", ( L1 L2 L3 L4 L5 L6 ) 01 FIXEDLENGTH. 05 KEY PIC X(4). 05 TYPE PIC X(6). 05 DATA. 10 EBCDATA PIC X(3). 10 ZONEDDATA PIC S9(3). $ cobgensch FL.SAMPLE.cpy FL.SAMPLE.cpy FL.SAMPLE.conv

  13. 2.1 cobgensch (continued) An example of creating the variable length (Variable Layout) schema VB.SAMPLE.raw (RAW DATASET) 0000000105AAAAA 0000000202BB 0000000310CCCCCCCCCC 01 VBROOT1. 05 KEY1 PIC X(8). 05 LENGTH PIC 9(2). 05 DATA. 07 DATA-1 PIC X(1) OCCURS 10 DEPENDING ON LENGTH. * Schema Version 5.1 L1, 01, VBROOT1, NULL, 0, 1, L2, 05, KEY1, EBC_ASC, 8, 1, L3, 05, LENGTH, U_ZONED, 2, 1, L4, 05, DATA, NULL, 0, 1, L5, 07, DATA-1, EBC_ASC, 1, 10, LENGTH * Condition L0, "\0", ( L1 L2 L3 L4 L5 ) $ cobgensch VB.SAMPLE.cpy VB.SAMPLE.cpy VB.SAMPLE.conv

  14. 2.1 cobgensch (continued) Redefine (Multi Layout)Migration Example SYNTAX of $$COND statement $$COND: NAME_01: VALUE_01 [: NAME_02: VALUE_02 … ]: REDEFINE_NAME [...] 01 O-RECORD1. 05 I-TEST1 PIC X(01). 05 I-TEST2 PIC X(02). 05 I-TEST3 PIC X(77). 01 O-RECORD2. 05 I-TEST4 PIC S9(01). 05 I_TEST5 PIC G(01). 05 I-TEST6 PIC X(77). $$COND: I-TEST1: "A": O-RECORD1 $$COND: I-TEST1: "1": I-TEST2: !" ": O-RECORD2 * Schema Version 5.1 L1, 01, O-RECORD1, NULL, 0, 1, L2, 05, I-TEST1, EBC_ASC, 1, 1, L3, 05, I-TEST2, EBC_ASC, 2, 1, L4, 05, I-TEST3, EBC_ASC, 77, 1, L5, 01, O-RECORD2, NULL, 0, 1, L6, 05, I-TEST4, ZONED, 1, 1, L7, 05, I_TEST5, GRAPHIC, 2, 1, L8, 05, I-TEST6, EBC_ASC, 77, 1, * Condition L2, "A", ( L1 L2 L3 L4 ) L2, "1", L3, !" ", ( L5 L6 L7 L8 ) L0, “\0", ( L1 L2 L3 L4 ) RD.SAMPLE.cpy $ cobgensch RD.SAMPLE.cpy RD.SAMPLE.conv

  15. 2.2 dsmigin Convert EBCDIC code to ASCII code. Load a dataset to the OpenFrame Dataset in ASCII code. (dataset Migration) How to use Usage: dsmigin <src_file> <dest_file | dataset_name> [options] Options - <src_file> Specifies the UNIX source file name or file path that performs migration. - <dest_file> or<dataset_name> Specifies the name of a file or a dataset to be created.

  16. 2.2 dsmigin (continued) Options Options: -C, --convert-only Performs the dataset conversion only -I, --import-only Performs the dataset import only -S, --source Converts the source file -m, --member Specifies the member name -u, --unit Specifies the unit of the dataset -v, --volume Specifies the volume of the dataset -c, --catalog Specifies the user catalog -e, --encoding Specifies the encoding type (JP/KR/US)

  17. 2.2 dsmigin (continued) Options (continued) -s, --schema Specifies the schema file name -cob, --cobolSpecifies the COBOL type (MF/NET) -o, --dsorg Specifies the dataset organization -k, --keylen Specifies the key length -p, --keyposSpecifies the key position -l, --lrecl Specifies the length of the record -b, --blksize Specifies the block size -f, --recfm Specifies the record format -i, --ignore Ignores conversion error(s) and skips to the next record -d, --delimiter Specifies the delimiter of the record -w, --lockwaitSpecifies the waiting time for the locked dataset -n, --newline Inserts a newline character at the end of each record -sosi, --sosi-type Specifies the method to convert SOSI -N, --nocatalogDoes not catalog the dataset -R, --recatalogModifies the catalog if the dataset is registered -F, --force Imports after removing the existing catalog and the dataset, if the dataset is already registered in the catalog -D, --debug Displays all debugging information -V, --version Displays the version information of dsmigin

  18. 2.2 dsmigin (continued) VSAMMigration • Migrates to the OpenFrame Non-VSAM dataset by converting the VSAM dataset into theNon-VSAM dataset. • Defines the VSAM dataset using DEFINE commands of the IDCAMS utility. • Copies the record of the Non-VSAM dataset that is migrated by the REPRO command of the IDCAMS utility into the VSAM dataset. VSAMConversion Order • Analyzes the COPY statement of the dataset and creates a schema file using cobgensch. • Loads the source data as the SAM dataset into OpenFrame. (dsmigin) • IDCAMS JCL Execution(DEFINE/REPRO)

  19. 2.2 dsmigin (continued) VSAMDataset Definition //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A //SYSIN DD * DELETE (TEST.KSDS) DEFINE CLUSTER - ( NAME(TEST.KSDS) – VOL(DEFVOL) – RECORDSIZE(250 520) – TRK(20,10) – KEYS(6,0) ) /* VSAMCopy(REPRO) //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A //SYSIN DD * REPRO INDATASET(TEST.NVSM) – OUTDATASET(TEST.KSDS) /* * $ idcams DEFINE CLUSTER -n TEST.KSDS -o KS -k 6,0 -l 250,250

  20. 2.3 dsmigout Exports the OpenFrame dataset (ASCII code) to the UNIX file (EBCDIC code). Usage: dsmigout <dataset_name> <dest_file> [options] Options Options: -X, --export-only Exports data without converting from ASCII to EBCDIC -v, --volume Specifies the volume of the dataset -c, --catalog Specifies the user catalog -e, --encoding Specifies the encoding type (JAK/KEIS/JP/KR/US) -s, --schema Specifies the schema file name -sosi, --sosi-type Specifies the method to convert SOSI -D, --debug Specifies the debug level (1-3, default 1) -V, --version Displays the version information of dsmigout

  21. 2.4 Other Verification(dsview, dsedit) How to Use Usage: dsview [options] <dsname> [<member>] [-v <volser>] [-c <catalog>] CTRL+bPrevious page CTRL+f Next page ^ Go to the first character of the current line. $ Go to the last character of the current line. 125G Go to line 125. :125 Go to line 125. G Go to the last row. h,j,k,l Go above, down, left, and right (respectively). If the numeric value is entered, go as many spaces as the value. E.g., 5h – Go five spaces to the left. /abc Search for abc. /abc 5 Search for abc in row 5. //616263 Search using hexadecimal code. n Search the following. CTRL+l Refresh the screen. :h Help :q Quit ======================================================================================= R The start of the Replace mode. VSAM’s key cannot change. ESC Save what is replaced. Backspace Return changes during the Replace mode.

  22. 3. Code Conversion andMigration Exercises 3.1 SOURCE MigrationExercise 3.2 Dataset MigrationExercise 3.3 System MigrationExercise

  23. 3.1 Source MigrationExercise Convert EBCDIC Source sample intoASCII code. SAMPLE COBOL JCL COPYBOOK MAP PROC Source Download dsmiginExecution Directory Configuration

  24. 3.2 Dataset MigrationExercise 1. Create a SCHEMA file using COPYBOOK sample. - Single Layout - Redefine(Multi Layout) 2. Migrate the EBCDIC dataset sample to ASCII and load it into OpenFrame TSAM. SAMPLE COPYBOOK (single layout/multi layout) NON-VSAM dataset KSDS dataset ESDS dataset RRDS dataset Dataset/ Download COPY statement dsmiginExecution Schema Creation

  25. 3.2 Dataset MigrationExercise (continued) Schema Creation Sample： FB.SAMPLE1.cpy Single LAYOUT 01 IN-REC. 03 IN-CUSTOMER-NUMBER PIC X(6). 03 IN-FIRST-NAME PIC X(20). 03 IN-LAST-NAME PIC X(30). 03 IN-ADDRESS PIC X(30). 03 IN-CITY PIC X(20). 03 IN-STATE PIC X(2) . 03 IN-ZIP-CODE PIC X(10). 03 IN-LAST-UPDATE PIC X(08). * Schema Version 5.1 L1, 01, IN-REC, NULL, 0, 1, L2, 03, IN-CUSTOMER-NUMBER, EBC_ASC, 6, 1, L3, 03, IN-FIRST-NAME, EBC_ASC, 20, 1, L4, 03, IN-LAST-NAME, EBC_ASC, 30, 1, L5, 03, IN-ADDRESS, EBC_ASC, 30, 1, L6, 03, IN-CITY, EBC_ASC, 20, 1, L7, 03, IN-STATE, EBC_ASC, 2, 1, L8, 03, IN-ZIP-CODE, EBC_ASC, 10, 1, L9, 03, IN-LAST-UPDATE, EBC_ASC, 8, 1, * Condition L0, "\0", ( L1 L2 L3 L4 L5 L6 L7 L8 L9 )

  26. 3.2 Dataset MigrationExercise (continued) Schema Creation Sample: RD.SAMPLE1.cpy * Schema Version 5.1 L1, 01, A-REC, NULL, 0, 1, L2, 03, FIELD1, EBC_ASC, 1, 1, L3, 03, FIELD2, NULL, 0, 1, L4, 05, TEST2-1, EBC_ASC, 1, 1, L5, 05, TEST2-2, EBC_ASC, 10, 1, L6, 05, TEST2-3, EBC_ASC, 1, 1, L7, 03, FIELD3, NULL, 0, 1, # REDEFINES FIELD2 L8, 05, TEST3-1, PACKED, 1, 1, L9, 05, TEST3-2, EBC_ASC, 10, 1, L10, 05, TEST3-3, EBC_ASC, 1, 1, L11, 03, FIELD4, NULL, 0, 1, # REDEFINES FIELD2 L12, 05, TEST4-1, PACKED, 1, 1, L13, 05, TEST4-2, PACKED, 10, 1, L14, 05, TEST4-3, PACKED, 1, 1, L15, 03, FIELD5, EBC_ASC, 10, 1, * Condition L4, !"1", ( L1 L2 L3 L4 L5 L6 L15 ) L8, "1", L10, !"1", ( L1 L2 L7 L8 L9 L10 L15 ) L12, "1", L10, "1", ( L1 L2 L11 L12 L13 L14 L15 ) L0, "\0", ( L1 L2 L3 L4 L5 L6 L15 ) Redefine LAYOUT 01 A-REC. 03 FIELD1 PIC X(1). 03 FIELD2. 05 TEST2-1 PIC X(1). 05 TEST2-2 PIC X(10). 05 TEST2-3 PIC X(1). 03 FIELD3 REDEFINES FIELD2. 05 TEST3-1 PIC S9(1) COMP-3. 05 TEST3-2 PIC X(10). 05 TEST3-3 PIC X(1). 03 FIELD4 REDEFINES FIELD2. 05 TEST4-1 PIC S9(1) COMP-3. 05 TEST4-2 PIC S9(19) COMP-3. 05 TEST4-3 PIC S9(1) COMP-3. 03 FIELD5 PIC X(10). Add Conditions $$COND: TEST2-1: !"1": FIELD2 $$COND: TEST3-1: "1": TEST3-3: !"1": FIELD3 $$COND: TEST3-1: "1": TEST3-3: "1": FIELD4

  27. 3.2 Dataset MigrationExercise (continued) Schema Creation Sample： VB.SAMPLE1.cpy * Schema Version 5.1 L1, 01, VBROOT1, NULL, 0, 1, L2, 05, KEY1, EBC_ASC, 8, 1, L3, 05, LENGTH, EBC_ASC, 3, 1, L4, 05, DATA, EBC_ASC, 5, 1, L5, 01, VBROOT2, NULL, 0, 1, L6, 05, KEY2, EBC_ASC, 8, 1, L7, 05, LENGTH, EBC_ASC, 3, 1, L8, 05, DATA, ZONED, 2, 1, L9, 01, VBROOT3, NULL, 0, 1, L10, 05, KEY3, EBC_ASC, 8, 1, L11, 05, LENGTH, EBC_ASC, 3, 1, L12, 05, DATA, U_PACKED, 6, 1, * Condition L2, "00000001", ( L1 L2 L3 L4 ) L6, "00000002", ( L5 L6 L7 L8 ) L10, "00000003", ( L9 L10 L11 L12 ) L0, "\0", ( L1 L2 L3 L4 ) 01 VBROOT1. 05 KEY1 PIC X(8). 05 LENGTH PIC X(3). 05 DATA PIC X(5). 01 VBROOT2. 05 KEY2 PIC X(8). 05 LENGTH PIC X(3). 05 DATA PIC S9(2). 01 VBROOT3. 05 KEY3 PIC X(8). 05 LENGTH PIC X(3). 05 DATA PIC 9(10) COMP-3. Add Conditions

  28. 3.2 Dataset MigrationExercise (continued) Dataset Creation NONVSAM OPENFRAM.DEMO.SAM.OFDI001 Record format: FB Copybook: FB.SAMPLE1.cpy LENGTH: 126 RD.SAMPLE1.PS Record format: FB Copybook: RD.SAMPLE1.cpy LENGTH: 23 VB.SAMPLE1.PS Record format: VB Copybook: VB.SAMPLE1.cpy LENGTH:

  29. 3.2 Dataset MigrationExercise (continued) Dataset Creation VSAM RRDSTEST.KSDS.INPUT VsamTYPE: RRDS Copybook: RRDSTEST.RRDS.INPUT.cpy LENGTH: 40 Create/Repro JCL: RRDSDEMO KSDSTEST.KSDS.INPUT VsamTYPE: KSDS Copybook: KSDSTEST.KSDS.INPUT.cpy LENGTH: 40 Create/Repro JCL: KSDSDEMO EDSDTEST.ESDS.INPUT VsamTYPE: ESDS Copybook: ESDSTEST.ESDS.INPUT.cpy LENGTH: 40 Create/Repro JCL: ESDSDEMO

  30. 3.2 Dataset MigrationExercise (continued) Dataset Creation VSAM RRDSTEST.KSDS.INPUT2 VsamTYPE: RRDS Copybook: RRDSTEST.RRDS.INPUT2.cpy LENGTH: 40 Define/Repro using idcam KSDSTEST.KSDS.INPUT2 VsamTYPE: KSDS Copybook: KSDSTEST.KSDS.INPUT2.cpy LENGTH: 40 Define/Repro using idcam EDSDTEST.ESDS.INPUT2 VsamTYPE: ESDS Copybook: ESDSTEST.ESDS.INPUT2.cpy LENGTH: 40 Define/Repro using idcam

  31. 3.3 System Table MigrationExercise How to Use Usage: oscsdgen <file> <dataset> $ oscsdgen -d OPNFRAME.ONLINE.SDLIB.OSCOIVP oivp_resource.dat [Sample] FCT DEFINE FILE(MSGVSAM) GROUP(FCTA0) DSNAME(message.VSAM) RECORDFORMAT(F) ADD(YES) BROWSE(YES) DELETE(YES) READ(YES) UPDATE(YES) DEFINE FILE(PDTVSAM) GROUP(FCTA0) DSNAME(PRODUCTS.VSAM) RECORDFORMAT(F) ADD(YES) BROWSE(YES) DELETE(YES) READ(YES) UPDATE(YES) DEFINE FILE(PSLVSAM) GROUP(FCTA0) DSNAME(PERSONAL.VSAM) RECORDFORMAT(F) ADD(YES) BROWSE(YES) DELETE(YES) READ(YES) UPDATE(YES) DEFINE FILE(TERMVSAM) GROUP(FCTA0) DSNAME(TERMID.VSAM) RECORDFORMAT(F) ADD(YES) BROWSE(YES) DELETE(YES) READ(YES) UPDATE(YES) ADD GROUP(FCTA0) LIST(GCMMLIST) [Sample] TCT DEFINE CONNECTION(OSCB) GROUP(TEST) NETNAME(OSC00002) TYPE(INTERNAL) INSERVICE(YES) DEFINE TERMINAL(TTRM) GROUP(TEST) TYPETERM(TESTTTRM) NETNAME(TESTTERM) INSERVICE(YES) DEFINE TYPETERM(TESTTTRM) GROUP(TEST) AUDIBLEALARM(NO) COLOR(YES) HILIGHT(YES) IOAREALEN(512,4096) KATAKANA(YES) OUTLINE(YES) PROGSYMBOLS(YES) SOSI(YES) TERMMODEL(2) UCTRAN(NO) ADD GROUP(TEST) LIST(INITLIST) OSCImport using the oscsdgen tool OPNFRAME.ONLINE.OSDLIB.OSCOIVP

  32. 4. Source Compile 4.1 Map Compile 4.2 Compile Script Overview 4.3 Compilation and Deployment Exercise (Online/Batch)

  33. 4.1 Map Compile Mapping Support Structure When mscmapc map is complied, a mapping support structure is created (shown below). As a result of compilation, two maps are created: symbolic map and physical map. The symbolic map is defined as a copy book within the COBOL programs. The physical map converts the 3270 data stream and application data when an application is executed.

  34. 4.1 Map Compile How to Use Usage: mscmapc [options1] <file> | mscmapc [options2] <dir> <file> Option Options: -d Displays input map -h Displays options information -o <dir> Specifies the output directory for OpenStudio -p <1:2> Previews the map (with a 1 or 2 byte character) -r <region> Specifies the OSC region name for the output directory -s <file> Specifies the output symbolic map file name -v Displays version information

  35. 4.2 Compile Script Overview #################### ### environment EDVR=`pwd` otargetdir=$OPENFRAME_HOME/osc/region/OSCOIVP1/tdl/mod btargetdir=$OPENFRAME_HOME/volume_default/SYS1.USERLIB COBCPY=${COBCPY}:${EDVR} ### cics pre-processing or cobol preprocessing cobolprep -c1 -c3 -p2 -f1 .cpy ${base}.cob cicsused=`grep "EXEC.*CICS" ${base}.cob | wc -l` if (( $cicsused != 0 )); then echo "----------------------------------------------" echo " CICS PREPROCESSING ---- " echo "----------------------------------------------" if [ $2 = "online" ]; then osccblppcobolprep_${base}.cob mvosccblpp_cobolprep_${base}.cob ${base}.cbl fi else mvcobolprep_${base}.cob ${base}.cbl fi ################################################################################ ###cobol compile.. if [ $2 = "batch" ]; then cob32 -zav -C DIRECTIVES\"$EDVR/bcompopt\" -o ${base}.so ${base}.cbl -L${OPENFRAME_HOME}/lib –ltextfh mv ${base}.so $btargetdir elif [ $2 = "online" ]; then cob32 -zav -C DIRECTIVES\"$EDVR/ocompopt\" -o ${base}.so ${base}.cbl mv ${base}.so $otargetdir fi

  36. 4.3 Compilation and Deployment Exercise (Online/Batch) Online compile Compile the provided online COBOL sample program and then deploy it. Compile the online demonstration program. (Use $HOME/EXAM2/Online/cobol/compile.sh.) OIVPBROS.cob OIVPDELT.cob OIVPINFO.cob OIVPINQR.cob OIVPINSR.cob OIVPMAIN.cob OIVPUPDT.cob OIVPQUIT.cob Deploy (During the compilation process, deployment is also performed.) $OPENFRAME_HOME/osc/region/OSCOIVP1/tdl/mod Batch compile Compile the provided batch COBOL sample program and then deploy it. Compile the batch demonstration program. (Use $HOME/EXAM2/Batch/compile.sh.) BATDEMO1.cob Deploy (During the compilation process, deployment is also performed.) $OPENFRAME_HOME/volume_default/SYS1.USERLIB

  37. 5.Migration Result Verification 5.1 Online 5.2 Batch

  38. 5.1 Online Main Screen of Online Example

  39. 5.1 Online Online Example- Select

  40. 5.1 Online Online Example– Register

  41. 5.1 Online Online Example- Update

  42. 5.2 Batch BatchExample– job submit

  43. 5.2 Batch BatchExample– psj <JOBID> podd <JOBID> DI=6 5.2 Batch

  44. 5.2 Batch BatchExample– dsview TMAXSOFT.OFRAME.BATDEMO1.OUT2 dsview TMAXSOFT.OFRAME.BATDEMO1.OUT3 5.2 Batch

  45. Thank you TmaxSoft Co., Ltd

More Related