Time2Live
New User
Joined: 27 Apr 2005
Posts: 43
Location: United States
|
|
|
|
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 unsigned to signed (below).
| Code: |
W1111 ?
EFFFF004006002000000
6111120042F22F0F0000 <-- wont find
--------------------
W1111 %
EFFFF004006002000000
6111120042C22C0C0000 <-- manually chged and does find |
I have tried several combinations from here already
www.ibm.com/docs/en/zos/2.3.0?topic=descriptions-dfsort-formats-cobol-data-types
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, besides manually chging the input file  |
|
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2024
Location: USA
|
|
|
|
SYNCSORT:
| Quote: |
| The PDC format represents a PD field and uses a C for the sign of a positive value and D for the sign of a negative value. The ZDC format represents a ZD field and uses a C for the sign of a positive value and D for the sign of a negative value. PDF produces the same numerical value as PD, but uses an F for a positive sign and D for the sign of a negative value. ZDF produces the same numerical value as ZD, but uses an F for a positive sign and D for the sign of a negative value. |
|
|
