SeanHoppe.com > Cleo Code Samples > Create Custom EDI Menu Program

CLEO DDS - Create Custom EDI Menu Program

     A                                      PRINT
     A                                      MSGLOC(24)
     A                                      CHGINPDFT
     A                                      HELP(44 'HELP KEY')
     A*
     A          R DTL01
     A                                      CF03(03 'RETURN')
     A                                      BLINK
     A  41                                  ALARM
     A                                  1  3'EDIMENU'
     A                                  1 37'EDI Menu'
     A                                      DSPATR(HI)
     A                                  1 54'User'
     A                                  1 59USER
     A                                  1 72DATE EDTWRD('  /  /  ')
     A                                  2 72TIME
     A                                  5 11'Option'
     A                                  6 12'No.'
     A                                  6 20'Environment'
     A                                  8 12'(1)' DSPATR(HI)
     A                                  8 20'Production'
     A                                 10 12'(2)' DSPATR(HI)
     A                                 10 20'Test'
     A                                 20 19'Select Option:'
     A            OPTION         1   I 20 35DSPATR(HI UL) TEXT('OPTION')
     A                                      VALUES(' ' '1' '2')
     A                                 21  2'                                  -
     A                                                                         -
     A                                               '
     A                                      DSPATR(UL)
     A                                 22  2'F3=Exit'




By: on