|
| Mapa Físico do Exemplo acima |
*-----------------------------------------------------------*
* 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
01 TCEF5M1I.
05 FILLER PIC X(12).
05 T1DATAL COMP PIC S9(4).
05 T1DATAF PICTURE X.
05 FILLER REDEFINES T1DATAF.
10 T1DATAA PICTURE X.
05 T1DATAI PIC X(8).
05 T1HORAL COMP PIC S9(4).
05 T1HORAF PICTURE X.
05 FILLER REDEFINES T1HORAF.
10 T1HORAA PICTURE X.
05 T1HORAI PIC X(8).
05 T1OPCAOL COMP PIC S9(4).
05 T1OPCAOF PICTURE X.
05 FILLER REDEFINES T1OPCAOF.
10 T1OPCAOA PICTURE X.
05 T1OPCAOI PIC X(1).
05 T1MENSL COMP PIC S9(4).
05 T1MENSF PICTURE X.
05 FILLER REDEFINES T1MENSF.
10 T1MENSA PICTURE X.
05 T1MENSI PIC X(78).
01 TCEF5M1O REDEFINES TCEF5M1I.
05 FILLER PIC X(12).
05 FILLER PICTURE X(3).
05 T1DATAO PIC X(8).
05 FILLER PICTURE X(3).
05 T1HORAO PIC X(8).
05 FILLER PICTURE X(3).
05 T1OPCAOO PIC X(1).
05 FILLER PICTURE X(3).
05 T1MENSO PIC X(78).
© Copyright Plataforma Alta - Mainframe
|
