A*%%TS  SD  20230816  221045  GARAS18     REL-V7R5M0  5770-WDS
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      INDARA
     A          R P1
     A*%%TS  SD  20230626  204138  GARAS18     REL-V7R5M0  5770-WDS
     A                                      CF03(03 'Salir del programa')
     A                                      CF06(06 'Otra funcion')
     A                                      CF04(04 'Habilita y deshabilita')
     A            FLD001        21A  B  1  3
     A            FLD002        39A  B  1 32
     A  25                                  DSPATR(PR)
     A                                 21 20' '
     A                                  8 20'Dato numerico'
     A                                      COLOR(WHT)
     A                                 21 18' '
     A                                  8 35'para hacer'
     A                                      COLOR(RED)
     A                                  8 47'algo:'
     A                                      COLOR(PNK)
     A            FLD003         9S 0B  8 54
     A                                 21 15' '
     A                                 21 22' '
     A                                 21 24' '
     A                                 21 63'F3 Salir'
     A                                      COLOR(WHT)
     A          R P2
     A*%%TS  SD  20230816  221045  GARAS18     REL-V7R5M0  5770-WDS
     A                                  1  2'         '
     A            FLDA01        50A  B  2  6