DLG
DLG-ISPEXEC commandproceduresyntax
|
commandproceduresyntax |
Syntax for call executed in Command Procedure (CLIST) format. |
DLG-ISPEXEC CONTROL SPLIT DISABLE
IF DLG-ISPEXEC-RC = 8
/* SPLIT SCREEN ALREADY DISABLED
TRUE SPLIT-SCREEN-DISABLED
ELSE-IF DLG-ISPEXEC-RC = 0
/* SPLIT SCREEN DISABLED
TRUE SPLIT-SCREEN-DISABLED
DLG-ISPEXEC LIBDEF ISPMLIB DATASET
ID('ABC.DEF.ISPMLIB')
IF DLG-ISPEXEC-RC = 0
/* OK
ELSE
DISPLAY '??? LIBDEF ISPMLIB ERROR, RC = ' DLG-
ISPEXEC-RC
DLG-ISPEXEC SELECT CMD(%ALOCFILE ALLOC)
IF DLG-ISPEXEC-RC = 0
/* OK
ELSE
DISPLAY '??? ALOCFILE ERROR, RC = ' DLG-
ISPEXEC-RC