|
View previous topic :: View next topic
|
| Author |
Message |
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 '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 |
|
 |
Time2Live
New User
Joined: 27 Apr 2005
Posts: 43
Location: United States
|
|
|
|
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 |
|
|
Time2Live
New User
Joined: 27 Apr 2005
Posts: 43
Location: United States
|
|
|
|
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 |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1439
Location: Bamberg, Germany
|
|
|
|
| So did it work now as expected? |
|
| Back to top |
|
|
Time2Live
New User
Joined: 27 Apr 2005
Posts: 43
Location: United States
|
|
|
|
| Yes! It Definitely worked exactly as I hoped, even after I added the two other JOINKEYS. Thanks Again Joerg! |
|
| Back to top |
|
|
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2281
Location: USA
|
|
|
|
| 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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
