*
*================================================================*
*                   FUTURE SCHOOL                                *
*----------------------------------------------------------------*
*                                                                *
*  MAPA..........: MAPASM  - LINGUAGEM ASSEMBLY                  *
*  DATA..........: 05/2023                                       *
*  AUTOR.........: LESSA                                         *
*                                                                *
*     OBJETIVO...:  MENU DE OPCOES                               *
*                                                                *
*----------------------------------------------------------------*
*
MAPASM   DFHMSD TYPE=MAP,                                              X
               TIOAPFX=YES,                                            X
               LANG=ASM,                                               X
               MODE=INOUT,                                             X
               CTRL=(FREEKB,FRSET)
MAPASM   DFHMDI SIZE=(24,80),                                          X
               LINE=1,                                                 X
               COLUMN=1
DATA1    DFHMDF POS=(1,1),                                             X
               LENGTH=10,                                              X
               ATTRB=PROT
         DFHMDF POS=(1,25),                                            X
               LENGTH=13,                                              X
               ATTRB=PROT,                                             X
               INITIAL='FUTURE SCHOOL'
HORA     DFHMDF POS=(1,71),                                            X
               LENGTH=8,                                               X
               ATTRB=PROT
         DFHMDF POS=(2,1),                                             X
               LENGTH=10,                                              X
               ATTRB=PROT,                                             X
               INITIAL='TERMINAL:'
TERM     DFHMDF POS=(2,12),                                            X
               LENGTH=4,                                               X
               ATTRB=PROT,                                             X
               INITIAL='    '
         DFHMDF POS=(2,25),                                            X
               LENGTH=13,                                              X
               ATTRB=PROT,                                             X
               INITIAL='CURSO DE CICS'
         DFHMDF POS=(2,60),                                            X
               LENGTH=10,                                              X
               ATTRB=PROT,                                             X
               INITIAL='TRANSACAO:'
TRANS    DFHMDF POS=(2,70),                                            X
               LENGTH=4,                                               X
               ATTRB=PROT,                                             X
               INITIAL='    '
         DFHMDF POS=(03,02),LENGTH=06,ATTRB=PROT,                      X
               INITIAL='CPROG:'
PROGM    DFHMDF POS=(03,08),LENGTH=08,ATTRB=PROT
         DFHMDF POS=(5,25),                                            X
               LENGTH=10,                                              X
               ATTRB=PROT,                                             X
               INITIAL='1-INCLUSAO'
         DFHMDF POS=(6,25),                                            X
               LENGTH=11,                                              X
               ATTRB=PROT,                                             X
               INITIAL='2-ALTERACAO'
         DFHMDF POS=(7,25),                                            X
               LENGTH=10,                                              X
               ATTRB=PROT,                                             X
               INITIAL='3-CONSULTA'
         DFHMDF POS=(8,25),                                            X
               LENGTH=10,                                              X
               ATTRB=PROT,                                             X
               INITIAL='4-EXCLUSAO'
         DFHMDF POS=(9,25),                                            X
               LENGTH=11,                                              X
               ATTRB=PROT,                                             X
               INITIAL='5-RELATORIO'
         DFHMDF POS=(10,25),                                           X
               LENGTH=10,                                              X
               ATTRB=PROT,                                             X
               INITIAL='6-FINALIZA'
         DFHMDF POS=(13,25),                                           X
               LENGTH=15,                                              X
               ATTRB=PROT,                                             X
               INITIAL='QUAL SUA OPCAO:'
OPCAO    DFHMDF POS=(13,42),                                           X
               LENGTH=1,                                               X
               ATTRB=(NUM,UNPROT,IC),                                  X
               INITIAL='0'
         DFHMDF POS=(13,44),                                           X
               ATTRB=ASKIP
         DFHMDF POS=(23,1),                                            X
               LENGTH=9,                                               X
               ATTRB=PROT,                                             X
               INITIAL='MENSAGEM:'
MENSA    DFHMDF POS=(23,11),                                           X
               LENGTH=60,                                              X
               ATTRB=PROT
MENS2    DFHMDF POS=(24,11),                                           X
               LENGTH=60,                                              X
               ATTRB=(ASKIP,BRT)
         DFHMSD TYPE=FINAL
         END