gtps1m49 | System Macros |
Use this system macro to check a symbolic line status table (SLST) entry for one or more specific line types.
|
XCELTYn Description CXELTY0 RESERVED CXELTY1 LOCAL 1052-7/3215 CONSOLE-TYPEWRITER CXELTY9 SLC CXELTY10 PSEUDO ALC LINE CXELTY17 BSC CXELTY18 3272 (LOCAL 3270)
Entry Requirements
Return Conditions
Programming Considerations
Table 7. Storage requirements for the PLNAC Macro
FIND or NOFIND but Not Both Specified | Both FIND and NOFIND Specified | |
---|---|---|
CHK=C03 | 16 bytes | 20 bytes |
CHK=LIST, TYPE=(t1,...,tn) | n*8 bytes | n*8+4 bytes |
CHK=all other options | 8 bytes | 12 bytes |
Examples
Checking for line disciplines:
Check whether 3270 local line discipline is being used. If it is, branch to a user routine at CPMAC10. If not, branch to a user routine at CPMAC20.
ABC PLNAC CHK=LC,FIND=CPMAC10,NOFIND=CPMAC20 +ABC DS 0H SYMBOLIC LINE TYPE SEARCH + CLI SLSTTYP,CXELTY18 + BE CPMAC10 + B CPMAC20 +PLNA0077 DS 0H CPMAC10 DS 0H user routine for FIND CPMAC20 DS 0H user routine for NOFIND
Check for low-speed free-running discipline
Check for line disciplines using TYPE parameter:
Check for line disciplines CXELTY9 and CXELTY17 specified in the TYPE parameter. If either is found, control is transferred to location LABEL10. If neither is found, processing continues with the NSI.
CDE PLNAC CHK=LIST,FIND=LABEL10,TYPE=(9,17) +CDE DS 0H SYMBOLIC LINE TYPE SEARCH + CLI SLSTTYP,CXELTY9 + BE LABEL10 + CLI SLSTTYP,CXELTY17 + BE LABEL10 +PLNA0079 DS 0H next sequential instruction LABEL10 DS 0H user routine for FIND