What happens when a RACROUTE REQUEST=EXTRACT is issued for an FDT that doesn't exist on the user.

Document ID : KB000015317
Last Modified Date : 14/02/2018
Show Technical Document Details
Introduction:

How a RACROUTE REQUEST=EXTRACT responds when an FDT field doesn't exist for a user.

Question:

How does RACROUTE REQUEST=EXTRACT behave when you attempt to extract an FDT field from a user and that user doesn't have the FDT field.

 

Answer:

If the field is part of a request of several fields which the user has the return code should be
zero. The call needs to parse throughthe return area to determine what was returned. The field
that is not define will return a x'00000000' in the length field.

Testing is as follows:

1. extract for three fields OPPRTY, SITRAN and TIMEOUT
2. acid has all three fields defined
3. return codes: SFR/RFR: 0/0:0


CAS21D0I TRACEID: BAL EVENT#: 00027605
CAS21D0I JOBNAME: TESTUSERP USERID: TESTUSER ASID: 003B
CAS21D1I PROGRAM: TESTEXTR RB CURR: TESTEXTR APF: YES SFR/RFR: 0/0:0
CAS2200I RACROUTE REQUEST=EXTRACT,CLASS=(=>)'USER',RELEASE=1.9,
CAS2200I SUBPOOL=229,SEGMENT=(=>)'CICS',BRANCH=NO,DERIVE=NO,
CAS2200I ENTITYX=((=>)'TESTUSER'),
CAS2200I FIELDS=(STRUCTURE FLDSLIST,=>,0000787C),FLDACC=NO,
CAS2200I GENERIC=ASIS,MSGSP=0,MATCHGN=NO,TYPE=EXTRACT,
CAS2200I WORKA=(STRUCTURE SAFWORKA,=>,00007D3C)
CAS2203I FIELDS DATA AREA FOLLOWS
CAS2204I 0000787C +000 00000003 D6D7D7D9 E3E84040 E2C9E3D9
*....OPPRTY SITR*
CAS2204I 0000788C +010 C1D54040 E3C9D4C5 D6E4E340 *AN
TIMEOUT *
CAS2203I REG. 1 DATA AREA FOLLOWS
CAS2204I 11100C30 +000 E5000100 00480000 0000003B 80007518
*V...............*
CAS2204I 11100C40 +010 00000000 00000000 D3E4C7C2 D9F0F140
*........TESTUSER *
CAS2204I 11100C50 +020 D6D4E5E2 C7D9D740 00000000 00000000 *OMVSGRP
........*
CAS2204I 11100C60 +030 00000000 00000000 00000000 00000000
*................*
CAS2204I 11100C70 +040 00000000 00000000 00000002 001E0000
*................*
CAS2204I 11100C80 +050 0008C3C5 D4E34040 40400000 0002001E *..CEMT
......*

XXXXXXXXXXXX

Example:

1. Extract for three fields OPPRTY, SITRAN and TIMEOUT
2. Acid has does not have SITRAN and it is the middle field in the extract
3. Return codes: SFR/RFR: 0/0:0
4. Notice when one steps thru the return area, at offset x'48' the first field has length of x'02'
value of x'1E' (OPPRTY), next field has a length of zero (SITRAN), last field length is x'02'.
value x'1e' (TIMEOUT)

CAS21D0I TRACEID: BAL EVENT#: 00030242
CAS21D0I JOBNAME: TESTUSERP USERID: TESTUSER ASID: 003B
CAS21D1I PROGRAM: TESTEXTR RB CURR: TESTEXTR APF: YES SFR/RFR: 0/0:0
CAS2200I RACROUTE REQUEST=EXTRACT,CLASS=(=>)'USER',RELEASE=1.9,
CAS2200I SUBPOOL=229,SEGMENT=(=>)'CICS',BRANCH=NO,DERIVE=NO,
CAS2200I ENTITYX=((=>)'TESTUSER'),
CAS2200I FIELDS=(STRUCTURE FLDSLIST,=>,0000787C),FLDACC=NO,
CAS2200I GENERIC=ASIS,MSGSP=0,MATCHGN=NO,TYPE=EXTRACT,
CAS2200I WORKA=(STRUCTURE SAFWORKA,=>,00007D3C)
CAS2203I FIELDS DATA AREA FOLLOWS
CAS2204I 0000787C +000 00000003 D6D7D7D9 E3E84040 E2C9E3D9
*....OPPRTY SITR*
CAS2204I 0000788C +010 C1D54040 E3C9D4C5 D6E4E340 *AN
TIMEOUT *
CAS2203I REG. 1 DATA AREA FOLLOWS
CAS2204I 11100C38 +000 E5000100 00480000 0000003B 80007518
*V...............*
CAS2204I 11100C48 +010 00000000 00000000 D3E4C7C2 D9F0F140
*........TESTUSER *
CAS2204I 11100C58 +020 D6D4E5E2 C7D9D740 00000000 00000000 *OMVSGRP
........*
CAS2204I 11100C68 +030 00000000 00000000 00000000 00000000
*................*
CAS2204I 11100C78 +040 00000000 00000000 00000002 001E0000
*................*
CAS2204I 11100C88 +050 00000000 0002001E


************************************************************************************************

Example:
1. Extract fro three fields OPPRTY, SITRAN and TIMEOUT
2. Acid has does not have SITRAN and it is the only field in the extract
3. Return codes: SFR/RFR: 4/8:8
4. No return area, just the list of fields that were requested.

CAS21D0I TRACEID: BAL EVENT#: 00032467
CAS21D0I JOBNAME: TESTUSERP USERID: TESTUSER ASID: 003B
CAS21D1I PROGRAM: TESTEXTR RB CURR: TESTEXTR APF: YES SFR/RFR: 4/8:8
CAS2200I RACROUTE REQUEST=EXTRACT,CLASS=(=>)'USER',RELEASE=1.9,
CAS2200I SUBPOOL=229,SEGMENT=(=>)'CICS',BRANCH=NO,DERIVE=NO,
CAS2200I ENTITYX=((=>)'TESTUSER'),
CAS2200I FIELDS=(STRUCTURE FLDSLIST,=>,0000787C),FLDACC=NO,
CAS2200I GENERIC=ASIS,MSGSP=0,MATCHGN=NO,TYPE=EXTRACT,
CAS2200I WORKA=(STRUCTURE SAFWORKA,=>,00007D3C)
CAS2203I FIELDS DATA AREA FOLLOWS
CAS2204I 0000787C +000 00000001 E2C9E3D9 C1D54040
*....SITRAN *