LayOut Mapa BMS (Basic Mapping Support)
Mapa Físico do Exemplo acima
PRINT NOGEN
*-----------------------------------------------------------*
* MAPA FISICO
DO MENU MANUTENCAO AGENCIAS HABILITADAS
*
*-----------------------------------------------------------*
* PSWD :
TEF5 *
*-----------------------------------------------------------*
TCEF5MS DFHMSD TYPE=MAP, X
TIOAPFX=YES, X
STORAGE=AUTO,
X
CTRL=(FRSET,FREEKB), X
LANG=COBOL, X
MODE=INOUT
TCEF5M1 DFHMDI DATA=FIELD, X
SIZE=(024,080)
***** LINHA 1
DFHMDF
POS=(01,001),
X
LENGTH=014, X
ATTRB=(ASKIP,FSET), X
INITIAL='BANCOEXE'
DFHMDF
POS=(01,028),
X
LENGTH=025, X
ATTRB=(ASKIP,FSET,BRT), X
INITIAL='C A P I T A L I Z A C A O'
T1DATA DFHMDF
POS=(01,071), X
LENGTH=008, X
ATTRB=(ASKIP,FSET)
***** LINHA 2
DFHMDF
POS=(02,001),
X
LENGTH=007, X
ATTRB=(ASKIP,FSET), X
INITIAL='TCEF5MS'
DFHMDF
POS=(02,025),
X
LENGTH=031, X
ATTRB=(ASKIP,FSET,BRT), X
INITIAL='CADASTRO RASPINVEST DE AGENCIAS'
T1HORA DFHMDF
POS=(02,071),
X
LENGTH=008, X
ATTRB=(ASKIP,FSET)
***** LINHA 7
DFHMDF POS=(07,016), X
LENGTH=017, X
ATTRB=(ASKIP,FSET), X
INITIAL='1 - CADASTRAMENTO'
***** LINHA 9
DFHMDF POS=(09,016), X
LENGTH=033, X
ATTRB=(ASKIP,FSET), X
INITIAL='2 - ALTERACAO DE DADOS
CADASTRAIS'
***** LINHA 11
DFHMDF
POS=(11,016),
X
LENGTH=024, X
ATTRB=(ASKIP,FSET), X
INITIAL='3 - CONSULTA DO CADASTRO'
***** LINHA
17
DFHMDF POS=(17,009), X
LENGTH=006, X
ATTRB=(ASKIP,FSET), X
INITIAL='OPCAO:'
T1OPCAO DFHMDF POS=(17,016), X
LENGTH=001, X
ATTRB=(UNPROT,NUM,FSET,IC), X
INITIAL='_'
DFHMDF
POS=(17,018),
X
LENGTH=001, X
ATTRB=ASKIP
***** LINHA 22
T1MENS DFHMDF
POS=(22,001),
X
LENGTH=078, X
ATTRB=(ASKIP,FSET,BRT)
***** LINHA 23
DFHMDF
POS=(23,001),
X
LENGTH=005, X
ATTRB=(ASKIP,FSET), X
INITIAL='ENTER'
DFHMDF
POS=(23,017), X
LENGTH=003, X
ATTRB=(ASKIP,FSET), X
INITIAL='PF1'
DFHMDF
POS=(23,029),
X
LENGTH=003, X
ATTRB=(ASKIP,FSET), X
INITIAL='PF2'
DFHMDF
POS=(23,041),
X
LENGTH=003, X
ATTRB=(ASKIP,FSET), X
INITIAL='PF3'
DFHMDF
POS=(23,054),
X
LENGTH=004, X
ATTRB=(ASKIP,FSET), X
INITIAL='PF12'
***** LINHA
24
DFHMDF POS=(24,001), X
LENGTH=008, X
ATTRB=(ASKIP,FSET), X
INITIAL='PROCESSA'
DFHMDF
POS=(24,017),
X
LENGTH=004, X
ATTRB=(ASKIP,FSET), X
INITIAL='HELP'
DFHMDF
POS=(24,029),
X
LENGTH=004, X
ATTRB=(ASKIP,FSET), X
INITIAL='MENU'
DFHMDF
POS=(24,041),
X
LENGTH=005, X
ATTRB=(ASKIP,FSET), X
INITIAL='VOLTA'
DFHMDF
POS=(24,054),
X
LENGTH=003, X
ATTRB=(ASKIP,FSET), X
INITIAL='FIM'
TCEF5MS DFHMSD TYPE=FINAL
END
Mapa Simbólico ou Lógico
01 TCEF5M1I.
02
FILLER PIC X(12).
02
T1DATAL COMP PIC
S9(4).
02
T1DATAF PICTURE X.
02
FILLER REDEFINES T1DATAF.
03 T1DATAA PICTURE X.
02
T1DATAI PIC X(8).
02
T1HORAL COMP PIC
S9(4).
02
T1HORAF PICTURE X.
02
FILLER REDEFINES T1HORAF.
03 T1HORAA PICTURE X.
02
T1HORAI PIC X(8).
02
T1OPCAOL COMP PIC
S9(4).
02
T1OPCAOF PICTURE X.
02
FILLER REDEFINES T1OPCAOF.
03 T1OPCAOA PICTURE X.
02
T1OPCAOI PIC X(1).
02
T1MENSL COMP PIC
S9(4).
02
T1MENSF PICTURE X.
02
FILLER REDEFINES T1MENSF.
03 T1MENSA PICTURE X.
02
T1MENSI PIC X(78).
01 TCEF5M1O
REDEFINES TCEF5M1I.
02
FILLER PIC X(12).
02
FILLER PICTURE X(3).
02
T1DATAO PIC X(8).
02
FILLER PICTURE X(3).
02
T1HORAO PIC X(8).
02
FILLER PICTURE X(3).
02
T1OPCAOO PIC X(1).
02
FILLER PICTURE X(3).
02
T1MENSO PIC X(78).
Nenhum comentário:
Postar um comentário