APL2® examples

This APL program has six lines in a block, the line 15. Line 1 is (finger)SET THE TABLE VARIABLE. Line 2 is TABLE(backarrow)'XTABLE'. Line 3 is (finger)OPEN THE TABLE. Line 4 is LASTCC(backarrow)ISPEXEC 'TBOPEN &TABLE NOWRITE'. Line 5 is (forwardarrow)(LASTCC = 0)/NORMALCONT. Line 6 is (finger)PROCESS ERRORS HERE Line 15 is NORMALCONT:........

This example uses the LMOPEN service and checks the return code that is placed in variable LASTCC.

LASTCC <- ISPEXEC 'LMOPEN DATAID INPUT'
-> (LASTCC = 0) / NORMALCONT
⋮

Parent topic: APL2