! //IB// Src(TESTE54.IBS) Opt("") ! ! ! ! PROGRAM IDENTIFICATION ! ! ! ! SOURCE FILE NAME: TESTE54 ! ! OBJECT FILE NAME: TESTE54 ! ! ! ! TITLE: TEST E54 ON OPEN ! ! ! ! ENTRY FROM: QMONITOR ! ! EXIT TO: QMONITOR ! ! ! !******************************************************************************! ! !====================== PROGRAM VARIABLE DECLARATIVES =======================! ! ! 2700 FORMAT (CS);_ @(0,0);'TEST E54 ON OPEN' 2710 FORMAT_ @(0,4);'TAB TO TEST E54';(TP);(MC);' ';(TP);(RC) ! !========================== EXECUTABLE STATEMENTS ===========================! ! 3000! CLEAR LOCAL ! PRINT (0,2700) ! 3100! PRINT (0,2710) INPUT (0) '' OPEN (1) 'Z1', KEY = 'TESTKEY' ! 9990!=============== END OF JOB ============================================ RUN 'QMONITOR' END