DFH5120 I PRIMARY CSD OPENED; DDNAME: DFHCSD
DFH5287 E EXTRACT TERMINATED AT USERS REQUEST RC=10
DFH5103 I ERROR(S) OCCURRED WHILE PROCESSING EXTRACT COMMAND.
DFH5104 W SUBSEQUENT COMMANDS (EXCEPT LIST) ARE NOT EXECUTED BECAUSE OF ERROR(S
DFH5123 I PRIMARY CSD CLOSED; DDNAME: DFHCSD
When I traced the RC=10 message, it points to the below COBOL code (from the member DFH0CRFC in hlq.SDFHSAMP):
Code:
* ************************************************************** *
* A L L O C A T E A D E F I N E D E L E M E N T *
* This subroutine allocates the next available element of *
* DEFINED ELEMENT POOL, if one is available. If not the return *
* code special register is set. DEFINED-ELEMENT-PTR points to *
* new element on exit. *
* ************************************************************** *
ALLOCATE-A-DEFINED-ELEMENT.
IF NOT DEFINED-ELEMENT-FREE THEN
MOVE INSUFFICIENT-DEFINED-ELEMENTS TO RETURN-CODE
SET INSUFFICIENT-STORAGE TO TRUE
ELSE
SET DEFINED-ELEMENT-PTR TO
NEXT-AVAILABLE-DEFINED-ELEMENT
* * **************************************************** *
* * Point to next available element in pool *
* * **************************************************** *
SET NEXT-AVAILABLE-DEFINED-ELEMENT UP BY 1
ADD 1 TO DEFINED-ELEMENTS-ALLOCATED
END-IF.
I am at a loss to understand this RC. Any ideas? _________________ ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Joined: 26 Nov 2002 Posts: 12376 Topics: 75 Location: San Jose
Posted: Wed Aug 10, 2005 12:58 pm Post subject:
Cogito,
check this out
Code:
3 If you specify the EXTRACT command, you may need to:
Concatenate with STEPLIB the libraries that contain your USERPROGRAM programs.
Include a DD statement for any input data set that is defined in your user program. For example, the CICS-supplied user program, DFH$CRFA, needs a DD statement with a ddname of CRFINPT.
The input file specified by CRFINPT is needed by the user programs DFH$CRFx (where x=A for Assembler or x=P for PL/I) and DFH0CRFC (for COBOL) to supply the list of resource types or attributes for which you want a cross-reference listing. You can specify (in uppercase) any resource type known to CEDA, one resource type per line (starting in column 1). For example, your CRFINPT file may contain the following resource types (one per line) to be cross-referenced:
PROGRAM
TRANSACTION
TYPETERM
XTPNAME
DSNAME
For programming information about the use of the CRFINPT file by the programs DFH$CRFx or DFH0CRFC (for COBOL), see the CICS Customization Guide .
4 If you specify the EXTRACT command, you need to include the DD statements for any data sets that receive output from your extract program. The ddname is whatever ddname you define in the user program.
You might want to read this in detail here - Invoking DFHCSDUP as a batch program
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
Posted: Wed Aug 10, 2005 1:02 pm Post subject:
Kolusu,
I had tried that option too. Same result. I do not see any reason for omitting /*. I do not see anything to this effect in the manual.
BTW, I changed the CRFIN to:
Code:
//CRFINPT DD *
PROGRAM TRANSACTION
/*
and then to
Code:
//CRFINPT DD *
TRAN PROGRAM
/*
There is no error in either of the cases. But, niether is there expected output.
Code:
UTILITY COMMAND: EXTRACT GROUP(CICSGRP) OBJECTS USERPROGRAM(DFH0CRFC)
* * * * CROSS REFERENCE OF PROGRAM TRAN * * * *
THERE ARE NO DEFINITIONS/USES OF PROGRAM TRAN IN THE SPECIFIED GROUP/LISTS.
_________________ ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
Posted: Wed Aug 10, 2005 1:28 pm Post subject:
Both are available in that particular PDS. So, no concatenation required (atleast for our site). 8)
Guess what? Change the USERPROGRAM to the Assembler version and provide SYSIN as instream (not as PS file; dunno why ). The results are coming correctly!
Sample output:
Code:
6 USES ARE MADE OF JZXF0050
THEY ARE:
TRANSACTION AYAA IN CICSGRP
TRANSACTION AYAB IN CICSGRP
TRANSACTION AYAC IN CICSGRP
TRANSACTION AYAD IN CICSGRP
TRANSACTION AYAE IN CICSGRP
TRANSACTION AYAF IN CICSGRP
6 USES ARE MADE OF JZXF0060
THEY ARE:
TRANSACTION AYBA IN CICSGRP
TRANSACTION AYBB IN CICSGRP
TRANSACTION AYBC IN CICSGRP
TRANSACTION AYBD IN CICSGRP
TRANSACTION AYBE IN CICSGRP
TRANSACTION AYBF IN CICSGRP
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
). The results are coming correctly!