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

PD not working for unsigned packed JOINKEYS -- moved post


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

New User


Joined: 27 Apr 2005
Posts: 43
Location: United States

PostPosted: Tue Aug 29, 2023 4:53 am
Reply with quote

Could some one please point me in the right direction for how to define a unsigned packed field "PIC 9(10) COMP-3." that I am trying to match with a ZD field. There are no syntax errors, but it wont pick up the match until I manually change the input record from 'F' to 'C' .
Code:

W1111     ?           
EFFFF004006002000000
6111120042F22F0F0000   <-- wont find
--------------------

W1111     %           
EFFFF004006002000000
6111120042C22C0C0000    <-- manually chged and does find

I have tried several combinations from here already
Use [URL] BBCode for External Links

This is my coding to OMIT a record from the input file and write that omitted record to another file and rewrite the original file without the omitted recd.
Code:

//STEP01  EXEC PGM=ICEMAN,PARM='CORE=MAX'
//SORTIN  DD Input-file
//OUT1    DD Output-file1
//OUT2    DD Output-file2
//SYMNAMES  DD *
  KEY_LEN1,6
  SRTIN_KY1,6,6,PD     <-- problem here ?
  SORTIN_RECORD,1,80,CH
  JOIN_ID,*,1,CH
  OMIT_KEY1,2,10,ZD
  OMIT_KEY_PD1,*,6,PD  <-- problem here ?
/*
//SYSIN     DD *
 SORT FIELDS=COPY
 JOINKEYS F1=SORTIN,FIELDS=(SRTIN_KY1,A)
 JOINKEYS F2=OMIT,
          FIELDS=(OMIT_KEY_PD1,A)
 JOIN UNPAIRED,F1
 REFORMAT FIELDS=(F1:SORTIN_RECORD,?)
 OUTFIL FNAMES=OUT1,
         INCLUDE=(JOIN_ID,NE,C'B'),
         BUILD=(SORTIN_RECORD)
 OUTFIL FNAMES=OUT2,
         SAVE,
         BUILD=(SORTIN_RECORD)
/*
//OMIT  DD *
 2004004026
/*
//JNF2CNTL  DD *
 INREC OVERLAY=(OMIT_KEY_PD1:OMIT_KEY1,TO=PD,LENGTH=KEY_LEN1)
/*

Thank you for any advice you can give!
Back to top
View user's profile Send private message
Time2Live

New User


Joined: 27 Apr 2005
Posts: 43
Location: United States

PostPosted: Tue Aug 29, 2023 4:55 am
Reply with quote

I did try the suggestion of using formats PDC/PDF but got this syntax error
Code:
ICE270I 0 PROCESSING SYMNAMES STATEMENTS
            SRTIN_KY1,6,6,PDC
                          $
ICE805I 1 JOBNAME: E501920I , STEPNAME: STEP01
ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL
ICE272A 0 SYMBOL, VALUE OR SYNTAX IS INVALID
            OMIT_KEY_PD1,*,6,PDC
                             $
ICE272A 0 SYMBOL, VALUE OR SYNTAX IS INVALID
ICE279A 0 ONE OR MORE ERRORS ENCOUNTERED DURING SYMNAMES PROCESSING
Back to top
View user's profile Send private message
Time2Live

New User


Joined: 27 Apr 2005
Posts: 43
Location: United States

PostPosted: Tue Aug 29, 2023 5:03 am
Reply with quote

Oh! Now I see! You put the PDF on This control card --
Code:
//JNF2CNTL  DD *
 INREC OVERLAY=(OMIT_KEY_PD1:OMIT_KEY1,TO=PDF,LENGTH=KEY_LEN1)


Thanks Everyone!!
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


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

PostPosted: Tue Aug 29, 2023 10:49 am
Reply with quote

So did it work now as expected?
Back to top
View user's profile Send private message
Time2Live

New User


Joined: 27 Apr 2005
Posts: 43
Location: United States

PostPosted: Tue Aug 29, 2023 7:47 pm
Reply with quote

Yes! It Definitely worked exactly as I hoped, even after I added the two other JOINKEYS. Thanks Again Joerg!
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 1992
Location: USA

PostPosted: Tue Aug 29, 2023 8:36 pm
Reply with quote

Time2Live wrote:
Oh! Now I see! You put the PDF on This control card --
Code:
//JNF2CNTL  DD *
 INREC OVERLAY=(OMIT_KEY_PD1:OMIT_KEY1,TO=PDF,LENGTH=KEY_LEN1)


Thanks Everyone!!

BTW: it is allowed to perform this conversion in-place, for not to introduce extra working fields. Usually it doesn't make any harm to other processing.
Code:
//JNF2CNTL  DD *
 INREC OVERLAY=(OMIT_KEY1:OMIT_KEY1,TO=PDF,LENGTH=KEY_LEN1)
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
No new posts Joinkeys - 5 output files DFSORT/ICETOOL 7
No new posts Def PD not working for unsigned packe... JCL & VSAM 3
No new posts Need Help with Packed Decimal Signs DFSORT/ICETOOL 4
No new posts Sort with JOINKEYS using two VB files DFSORT/ICETOOL 1
No new posts data moved using MVI on para-name. PL/I & Assembler 4
Search our Forums:

Back to Top