The following example demonstrate the capabilities of the G2C Converting Gener/OL Map statements to BMS
Original Gener/OL Map Code Generated BMS MAP Code Search key-words: ibm legacy mainframe mainframes
main-frame mvs/esa os/390 z/os os390 zos vse dos/vs dos/vse vse/esa z/vse zvse
Gener/OL
Answer:report Gener/OL convert conversion translate translation VSE
MVS z/OS z/VSE source code statements programming language needed
MAP: TEST1 SUBLIB: PROD DESC:
*** MAP EDC FORMAT ***
C J B N I B R U M M S A
DESCRIPTION OR H M R U N N E N F E E T
SEQ EF FIELD NAME OCC TY LNGTH ROW:COL G P T M V CLR K V L L N L N MASK
----- -- ---------- --- -- ----- ------- - - - - - --- - - - - - - - --------
0039 E05AM1
.0001 'CLASSIFICATION RECORD TARIFF NUMBER RECONCILIATION'
2:013 N N Y N N DEF N N N N N N N
.0002 '1 PREVIOUS MONTHLY BATCH'
4:028 N N N N N DEF N N N N N N N
.0003 '2 CURRENT MONTHLY BATCH'
5:028 N N N N N DEF N N N N N N N
.0004 '3 SPECIAL BATCH' 6:028 N N N N N DEF N N N N N N N
.0005 '4 USER BATCH' 7:028 N N N N N DEF N N N N N N N
.0006 'APPLICATION DESIRED: ' 9:028 N N N N N DEF N N N N N N N
.0007 R1SELECT N 1 9:050 Y Y N Y N DEF N N N N N N N PLAIN1
.0008 'ENTER YOUR INITIALS:' 10:028 N N N N N DEF N N N N N N N
.0009 R1INITIAL C 3 10:050 Y N N N N DEF N N N N N N N DEFAULT
.0010 'CLASSIFICATION PROCESS REQUEST'
12:006 N N N N N DEF N N N N N N N
.0011 'DATABASE PROCESS REQUEST'
12:049 N N N N N DEF N N N N N N N
.0012 '' ' - NO ACTION' 13:011 N N N N N DEF N N N N N N N
.0013 '' ' - NO ACTION' 13:054 N N N N N DEF N N N N N N N
.0014 ' P - PRINT ONLY' 14:011 N N N N N DEF N N N N N N N
.0015 ' P - PRINT ONLY' 14:054 N N N N N DEF N N N N N N N
.0016 ' U - UPDATE, NO PRINT' 15:011 N N N N N DEF N N N N N N N
.0017 ' U - UPDATE & PRINT' 15:054 N N N N N DEF N N N N N N N
.0018 ' B - PRINT & UPDATE' 16:011 N N N N N DEF N N N N N N N
.0019 'CLASSIFICATION REQUEST: '
18:006 N N N N N DEF N N N N N N N
.0020 R1CPROCESS C 1 18:031 Y N N N N DEF N N N N N N N
.0021 'DATABASE REQUEST: ' 19:006 N N N N N DEF N N N N N N N
.0022 R1DPROCESS C 1 19:025 Y N N N N DEF N N N N N N N DEFAULT
.0023 'ENTER=BROWSE BATCH' 20:013 N N Y N N DEF N N N N N N N
.0024 'PF4=UPDATE CLASS, DB REQUEST'
20:047 N N Y N N DEF N N N N N N N
.0025 'PF1=SIGN OFF' 21:013 N N Y N N DEF N N N N N N N
.0026 'PF6=DELETE USER BATCH' 21:047 N N Y N N DEF N N N N N N N
.0027 'PF2=CREATE NEW USER BATCH'
22:013 N N Y N N DEF N N N N N N N
.0028 'PF9=DELETE SPECIAL BATCH'
22:047 N N Y N N DEF N N N N N N N
.0029 RWNOTICE C 72 24:002 N Y Y N N DEF N N N N N N N
.0030 'E05-A1' 24:074 N N Y N N DEF N N N N N N N
CURSOR FIELD: R1SELECT LINE OVERFLOW: N
MAP: E05AM1 SUBLIB: PROD DESC:
PROGRAM RETURN LABELS
PA01: PA02: ; PA03: ENTR:
PF01: PF02: PF03: PF04:
PF05: PF06: PF07: PF08:
PF09: PF10: PF11: PF12:
PF13: PF14: PF15: PF16:
PF17: PF18: PF19: PF20:
PF21: PF22: PF23: PF24:
AUTOMATIC PROGRAMMED OPTIONS
RECORD KEY/FIELD
TITLE 'TEST1 MAP CONVERTED FROM GENER/OL TO BMS'
E05AM11 DFHMSD TYPE=&SYSPARM,MODE=INOUT,LANG=COBOL, X
STORAGE=AUTO,TIOAPFX=YES
E05AM1 DFHMDI SIZE=(24,80),CTRL=(PRINT,FREEKB)
DFHMDF POS=(2,013),LENGTH=35, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,BRT) X
INITIAL='CLASSIFICATION RECORD TARIFF NUMBER'
DFHMDF POS=(2,49),LENGTH=15, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,BRT) X
'INITIAL=' RECONCILIATION'
DFHMDF POS=(4,028),LENGTH=26, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='1 PREVIOUS MONTHLY BATCH'
DFHMDF POS=(5,028),LENGTH=25, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='2 CURRENT MONTHLY BATCH'
DFHMDF POS=(6,028),LENGTH=17, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='3 SPECIAL BATCH'
DFHMDF POS=(7,028),LENGTH=14, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='4 USER BATCH'
DFHMDF POS=(9,028),LENGTH=21, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='APPLICATION DESIRED: '
R1SELECT DFHMDF POS=(9,050),LENGTH=21, X
COLOR=BLUE, X
ATTRB=(UNPROT,NUM,FSET,IC) X
INITIAL=' '
DFHMDF POS=(9,72),LENGTH=1, X
ATTRB=(PROT,ASKIP),INITIAL=' '
DFHMDF POS=(10,028),LENGTH=20, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='ENTER YOUR INITIALS:'
R1INITIAL DFHMDF POS=(10,050),LENGTH=20, X
COLOR=BLUE, X
ATTRB=(UNPROT,FSET) X
INITIAL=' '
DFHMDF POS=(10,71),LENGTH=1, X
ATTRB=(PROT,ASKIP),INITIAL=' '
DFHMDF POS=(12,006),LENGTH=30, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='CLASSIFICATION PROCESS REQUEST'
DFHMDF POS=(12,049),LENGTH=24, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='DATABASE PROCESS REQUEST'
DFHMDF POS=(13,011),LENGTH=12, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL=' - NO ACTION'
DFHMDF POS=(13,054),LENGTH=12, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL=' - NO ACTION'
DFHMDF POS=(14,011),LENGTH=16, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL=' P - PRINT ONLY'
DFHMDF POS=(14,054),LENGTH=16, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL=' P - PRINT ONLY'
DFHMDF POS=(15,011),LENGTH=22, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL=' U - UPDATE, NO PRINT'
DFHMDF POS=(15,054),LENGTH=20, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL=' U - UPDATE & PRINT'
DFHMDF POS=(16,011),LENGTH=20, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL=' B - PRINT & UPDATE'
DFHMDF POS=(18,006),LENGTH=24, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='CLASSIFICATION REQUEST: '
R1CPROCESS DFHMDF POS=(18,031),LENGTH=24, X
COLOR=BLUE, X
ATTRB=(UNPROT,FSET) X
INITIAL=' '
DFHMDF POS=(18,56),LENGTH=1, X
ATTRB=(PROT,ASKIP),INITIAL=' '
DFHMDF POS=(19,006),LENGTH=18, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP) X
INITIAL='DATABASE REQUEST: '
R1DPROCESS DFHMDF POS=(19,025),LENGTH=18, X
COLOR=BLUE, X
ATTRB=(UNPROT,FSET) X
INITIAL=' '
DFHMDF POS=(19,44),LENGTH=1, X
ATTRB=(PROT,ASKIP),INITIAL=' '
DFHMDF POS=(20,013),LENGTH=18, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,BRT) X
INITIAL='ENTER=BROWSE BATCH'
DFHMDF POS=(20,047),LENGTH=28, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,BRT) X
INITIAL='PF4=UPDATE CLASS, DB REQUEST'
DFHMDF POS=(21,013),LENGTH=12, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,BRT) X
INITIAL='PF1=SIGN OFF'
DFHMDF POS=(21,047),LENGTH=21, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,BRT) X
INITIAL='PF6=DELETE USER BATCH'
DFHMDF POS=(22,013),LENGTH=25, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,BRT) X
INITIAL='PF2=CREATE NEW USER BATCH'
DFHMDF POS=(22,047),LENGTH=24, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,BRT) X
INITIAL='PF9=DELETE SPECIAL BATCH'
RWNOTICE DFHMDF POS=(24,002),LENGTH=24, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,ASKIP,BRT,FSET) X
INITIAL=' '
DFHMDF POS=(24,27),LENGTH=1, X
ATTRB=(PROT,ASKIP),INITIAL=' '
DFHMDF POS=(24,074),LENGTH=6, X
COLOR=BLUE, X
ATTRB=(PROT,ASKIP,BRT) X
INITIAL='E05-A1'
DFHMSD TYPE=FINAL
END