gtps1m49System Macros

PLNAC-Check Symbolic Line Type

Use this system macro to check a symbolic line status table (SLST) entry for one or more specific line types.

Format




label
A symbolic name can be assigned to the macro statement.

CHK
A symbolic line discipline must be specified. The values and their use are as follows:

BS
Check for a BSC line

SLC
Check for a Synchronous Link Control line

C03
Check for a 2703 controlled line (SLC)

PRC
Check for a Prime CRAS terminal

LC
Check for a 3270 Local line

LIST
Check for a list of line disciplines specified in the TYPE parameter

FIND
This parameter is optional if NOFIND is coded, but must be coded if NOFIND is not. The possible values are:

label1
A user-defined label to be branched to if a requested line discipline is found.

NSI
The default of next sequential instruction (NSI) may be explicitly specified.
Note:
FIND cannot equal NOFIND.

NOFIND
This parameter is optional if FIND is coded but must be coded if FIND is not. The possible values are:

label2
A user-defined label to be branched to if a requested line discipline is not found.

NSI
The default of next sequential instruction (NSI) may be explicitly specified.
Note:
NOFIND cannot equal FIND.

TYPE
This parameter is required if CHK=LIST. It is a list of line type suffixes to tag CXELTY defined in LINEQ. These suffixes are separated by commas and enclosed in parentheses. The CXELTY tags in LINEQ follow here.
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

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