IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ICETOOL with JOINKEY for Big record length not working


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
reach2abhinavtyagi

New User


Joined: 04 Aug 2016
Posts: 7
Location: India

PostPosted: Mon May 16, 2022 10:56 am
Reply with quote

Hi,
I am running a JOINKEY on 2 Fixed length files to identify delta records between the two files as below.


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,CH,EQ,C'2'),BUILD=(4353,4351,C'D')),
IFTHEN=(WHEN=(NONE),BUILD=(1,4351,C'U'))


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.


Please suggest. Thanks.

Regards
Abhinav
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 907
Location: Bamberg, Germany

PostPosted: Mon May 16, 2022 11:03 am
Reply with quote

Remember to use code tags when presenting code/data to the forum.

Show all (error) messages of your job, please. See also REGION Size of you job.
Back to top
View user's profile Send private message
reach2abhinavtyagi

New User


Joined: 04 Aug 2016
Posts: 7
Location: India

PostPosted: Mon May 16, 2022 11:28 am
Reply with quote

Hi,
I have tried with REGION=0M, still it fails.

The number of records in the CURRENT and PREV file are < 500.

Regards
Abhinav
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 907
Location: Bamberg, Germany

PostPosted: Mon May 16, 2022 12:05 pm
Reply with quote

What error messages are you seeing? It's hard to guess what is wrong without more information.
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 1614

PostPosted: Mon May 16, 2022 7:32 pm
Reply with quote

reach2abhinavtyagi wrote:

Code:
JOINKEYS APPLICATION TERMINATED - SEE DFSMSG   MESSAGES
DFSMSG - Doesn't give clarity on the reason of failure.

Where exactly did you try to find those DFSMSG messages?
Back to top
View user's profile Send private message
reach2abhinavtyagi

New User


Joined: 04 Aug 2016
Posts: 7
Location: India

PostPosted: Tue May 17, 2022 12:06 pm
Reply with quote

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

SORT FIELDS=COPY
END OF DFSORT
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 907
Location: Bamberg, Germany

PostPosted: Tue May 17, 2022 12:28 pm
Reply with quote

Use code tags when presenting code/data to the forum!!! How difficult can it be. icon_evil.gif

Check what is written here: INVALID FIELD OR CONSTANT IN TEMP2 IFTHEN 0 CONDITION 1, that should be self explaining.
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 907
Location: Bamberg, Germany

PostPosted: Tue May 17, 2022 12:42 pm
Reply with quote

See https://ibmmainframes.com/about65668.html
Back to top
View user's profile Send private message
reach2abhinavtyagi

New User


Joined: 04 Aug 2016
Posts: 7
Location: India

PostPosted: Tue May 17, 2022 4:03 pm
Reply with quote

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
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 1614

PostPosted: Tue May 17, 2022 5:33 pm
Reply with quote

reach2abhinavtyagi wrote:
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.

Code:
         IFTHEN=(WHEN=(REC-FLAG,EQ,C'1'),BUILD=(CURR-REC,C'I')),
         IFTHEN=(WHEN=(REC-FLAG,EQ,C'2'),BUILD=(PREV-REC,C'D')),


Those undefined IDs have been spread anywhere in your sample. How did you create your code?
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 1614

PostPosted: Tue May 17, 2022 7:48 pm
Reply with quote

sergeyken wrote:

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.
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 907
Location: Bamberg, Germany

PostPosted: Tue May 17, 2022 10:55 pm
Reply with quote

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.

See what I have earlier linked to:

Joerg.Findeisen wrote:
See https://ibmmainframes.com/about65668.html
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 1614

PostPosted: Wed May 18, 2022 12:01 am
Reply with quote

Joerg.Findeisen wrote:
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.

See what I have earlier linked to:

Joerg.Findeisen wrote:
See https://ibmmainframes.com/about65668.html


Looks like the TS cannot read by himself... icon_redface.gif

Someone must read it for him, and then reproduce the issue in his own words. icon_evil.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
This topic is locked: you cannot edit posts or make replies. Construct new record using specific f... DFSORT/ICETOOL 6
No new posts Creating CSV file from Variable recs ... DFSORT/ICETOOL 11
No new posts SMF Record Date conversion failing CLIST & REXX 1
No new posts Need help on ICETOOL DFSORT/ICETOOL 18
No new posts Split a record with data in a differe... DFSORT/ICETOOL 8
Search our Forums:

Back to Top