Issues.
When I am running the same code for FB files of length say 198 with relevant modifications, it works fine. However, When I run it for FB Files of length 4351, it abends with RC = 16
JOINKEYS APPLICATION TERMINATED - SEE DFSMSG MESSAGES
DFSMSG - Doesn't give clarity on the reason of failure.
There is a member in Spool with name DFSMSG - Excerpts from this are given below.
ORIGINAL STATEMENTS FROM CTL2CNTL FOLLOW
JOINKEYS F1=CURRFL,FIELDS=(REC-KEY,A)
JOINKEYS F2=PREVFL,FIELDS=(REC-KEY,A)
JOIN UNPAIRED
REFORMAT FIELDS=(F1:FULL-REC,?,F2:FULL-REC)
OUTFIL REMOVECC,OMIT=(CURR-REC,EQ,PREV-REC),
IFTHEN=(WHEN=(REC-FLAG,EQ,C'1'),BUILD=(CURR-REC,C'I')),
IFTHEN=(WHEN=(REC-FLAG,EQ,C'2'),BUILD=(PREV-REC,C'D')),
IFTHEN=(WHEN=(NONE),BUILD=(CURR-REC,C'U'))
ORIGINAL STATEMENTS FROM PARMLIST FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL2,SORTOUT=TEMP
,DYNALLOC
SORT FIELDS=COPY
PERFORMING SYMBOL SUBSTITUTION AS NEEDED
THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2
JOINKEYS IS USING THE F1 SUBTASK FOR CURRFL - SEE JNF1JMSG MESSAGES
JOINKEYS IS USING THE F2 SUBTASK FOR PREVFL - SEE JNF2JMSG MESSAGES
JOINED RECORDS: TYPE=F, LENGTH=8703
JOINED RECORDS: TYPE=F, LENGTH=8703
RECORD TYPE IS F - DATA STARTS IN POSITION 1
INVALID FIELD OR CONSTANT IN TEMP2 IFTHEN 0 CONDITION 1
C5-I90068 C6-I90068 C7-I76949 C8-I75151 E9-I77769 E7-I76949
BLOCKSET COPY TECHNIQUE SELECTED
VISIT www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
- CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R4 - 07:27 ON TUE MA
JOINKEYS F1=CURRFL,FIELDS=(1,10,A)
JOINKEYS F2=PREVFL,FIELDS=(1,10,A)
JOIN UNPAIRED
REFORMAT FIELDS=(F1:1,4351,?,F2:1,4351)
OUTFIL REMOVECC,OMIT=(1,4351,CH,EQ,4353,4351,CH),IFTHEN=(WHEN=(4352,1
CH,EQ,C'1'),BUILD=(1,4351,C'I')),IFTHEN=(WHEN=(4352,1,C
,EQ,C'2'),BUILD=(4353,4351,C'D')),IFTHEN=(WHEN=(NONE),B
ILD=(1,4351,C'U'))
END OF STATEMENTS FROM CTL2CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL2,SORTOUT=TEM
2,DYNALLOC
Hi,
I am sorry, but i couldn't understand the meaning of this error. The code works fully fine with the same set of statements for file with LRECL=198, but not this one which has bigger length 4351.
Can you please suggest what correction is required.
Hi,
I am sorry, but i couldn't understand the meaning of this error. The code works fully fine with the same set of statements for file with LRECL=198, but not this one which has bigger length 4351.
Can you please suggest what correction is required.
Thanks.
Abhinav
Please, learn how to use the Code button when submitting your code and/or data samples!!!!!!
What are the names REC-FLAG, CURR-REC, PREV-REC in your sample?
Besides of their unknown definition, they have been coded using the syntax not acceptable by SORT utility. Please, read at least one single manual on DFSORT/ICETOOL.
What are the names REC-FLAG, CURR-REC, PREV-REC in your sample?
Besides of their unknown definition, they have been coded using the syntax not acceptable by SORT utility.
Sorry, now hyphens become also allowed as symbolic names for DFSORT. At this point I was wrong.
The problem with the code is, unallowed attempt to compare the fields longer than 256 characters; it is mentioned explicitly in DFSORT manual for comparison operation, and in the description of the error message, too.
Joined: 15 Aug 2015 Posts: 1329 Location: Bamberg, Germany
sergeyken wrote:
The problem with the code is, unallowed attempt to compare the fields longer than 256 characters; it is mentioned explicitly in DFSORT manual for comparison operation, and in the description of the error message, too.
The problem with the code is, unallowed attempt to compare the fields longer than 256 characters; it is mentioned explicitly in DFSORT manual for comparison operation, and in the description of the error message, too.
