gtpg2m3s | General Macros |
This general macro obtains information an application program requests. The information returned includes:
Format
|
Refer to the Entry Requirements that follow.
Entry Requirements
Offset Decimal | Offset Hex | Length | Description |
---|---|---|---|
0 | 0 | 8 | Name of origin application. |
8 | 8 | 8 | Netid of destination application. |
16 | 10 | 8 | Node name of destination application. |
24 | 18 | 2 | Reserved. |
26 | 1A | 1 | Numeric SLU qualifier. |
27 | 1B | 1 | Reserved. |
Offset Decimal | Offset Hex | Length | Description |
---|---|---|---|
0 | 0 | 16 | User input RCPL. |
16 | 10 | 12 | Reserved. |
Return Conditions
Offset Decimal | Offset Hex | Length | Description |
---|---|---|---|
0 | 0 | 16 | SELRCPL - Requested RCPL. |
16 | 10 | 10 | Reserved. |
26 | 1A | 1 | SELQUAL - Numeric SLU qualifier. |
27 | 1B | 1 | SELRTNCD - Error return code. |
Offset Decimal | Offset Hex | Length | Description |
---|---|---|---|
0 | 0 | 8 | SELORIG - Name of origin application. |
8 | 8 | 8 | SELID - Netid of destination application. |
16 | 10 | 8 | SELNAME - Node name of destination application. |
24 | 18 | 2 | Reserved. |
26 | 1A | 1 | SELQUAL - Numeric SLU qualifier. |
27 | 1B | 1 | SELRTNCD - Error return code. |
Programming Considerations
This macro can be executed on any I-stream.
Examples
EBW000 = 'CCCC ' Origin application name EBW008 = 'NET1 ' Destination application netid EBW016 = 'CISB ' Destination application node name EBW026 = X'00' Numeric qualifier
A core block must be attached to the ECB and pointed by R7.
EBW000 = X'000072' Destination RID EBW003 = X'C1' Destination CPUID EBW004 = C'CCCC' Origin application name EBW005 = X'42' Control byte 0 EBW0026= X'01' Numeric SLU Qualifier EBW0027= X'00' Return code
R1 contains the address of the input and output work area.
A core block must be attached to the ECB and pointed by R7.
A core block must be attached to the ECB and pointed by R7.
SELRCPL EQU 0,16 RCPL SELDESS EQU 0,4 DEST SEQ # SELDES3 EQU SELDESS,3 DEST RID (3-byte) SELDESR EQU SELDES3+1,2 DEST RID (2-byte) SELDESP EQU SELDESR+2,1 DEST CPUID SELORG EQU SELDESP+1,4 ORIGIN RESOURCE NAME SELCTL0 EQU SELORG+4,1 CONTROL BYTE 0 SELRESVA EQU SELCTL0+1,7 RESERVED AREA SELRESVB EQU SELRESVA+7,10 RESERVED AREA SELQUAL EQU SELRESVB+10,1 NUMERIC QUALIFIER SELRTNCD EQU SELQUAL+1,1 RETURN CODE * SELORIG EQU 0,8 ORIGIN RESOURCE NAME SELID EQU SELORIG+8,8 NETID SELNAME EQU SELID+8,8 RESOURCE NAME SELREGS EQU 80,28 REG SAVE AREA