gtpg2m2w | General Macros |
This general macro can be used to obtain the following:
Format
|
Entry Requirements
Offset | Length | Description | |
---|---|---|---|
Dec | Hex | ||
0 | 0 | 1 | Reserved. The user must set this field to X'00' each time the macro is used. |
1 | 1 | 3 | Three-byte RID or SCBID |
1 | 1 | 1 | Reserved |
2 | 2 | 2 | Two-byte RID |
Offset | Length | Description | |
---|---|---|---|
Dec | Hex | ||
0 | 0 | 8 | Network identification, left-justified and padded with blanks; when unqualified, this field must contain blanks (X'40'). |
8 | 8 | 8 | Name, left-justified and padded with blanks. |
Offset | Length | Description | |
---|---|---|---|
Dec | Hex | ||
0 | 0 | 8 | Old network ID, left-justified and padded with blanks. If the resource name is not qualified, this field must contain blanks (X'40'). |
8 | 8 | 8 | Old resource name, left-justified and padded with blanks. |
16 | 10 | 8 | New network ID, left-justified and padded with blanks. If the resource name is not qualified, this field must contain blanks (X'40'). |
24 | 18 | 8 | New resource name, left-justified and padded with blanks. |
Return Conditions
Offset | Length | Label | Description | |
---|---|---|---|---|
Dec | Hex | |||
0 | 0 | 1 | INQDATA | Reserved (always X'00') |
1 | 1 | 3 | INQRID3 | Three-byte RID or SCBID |
1 | 1 | 1 | Reserved |
|
2 | 2 | 2 | INQRID | Two-byte RID |
4 | 4 | 8 | INQNETID | Network identifier |
12 | C | 8 | INQNAME | Resource name |
20 | 14 | 2 | Reserved for future use by IBM | |
22 | 16 | 1 | INQMODE1 | Mode byte 1 (see note 1) |
23 | 17 | 1 | INQMODE2 | Mode byte 2 (see note 1) |
24 | 18 | 1 | INQMODE3 | Mode byte 3 (see note 1) |
25 | 19 | 1 | Reserved for future use by IBM | |
26 | 1A | 1 | INQNTYP1 | Node type byte 1 (see note 1) |
27 | 1B | 1 | INQNTYP2 | Node type byte 2 (see note 2) |
28 | 1C | 1 | INQCPUID | CPU ID of resource |
29 | 1D | 1 | INQRTNCD | Return code (see note 4). |
INQERROR | Resource was not found (see note 3) (X'04'). | |||
INQNORSC | No resources are available for the ADD or ALLOCATE function (X'40'). | |||
INQDUPL | Name unqualified, duplicates exist (X'80'). | |||
Programming Considerations
Examples
If the input is set up as follows:
and you code: INQRC TYPE=N,AREA=EBW000,LEVEL=D5,ERROR=ROUTINE the output would be: