Replace fields with spesific values from other records

f1org · New User Joined: 14 Sep 2015 Posts: 6 Location: greece

Hi
i need your help for this:
cola is the key and i need to put in colb(subkey) if it has spaces with the same value of previeus records
here is a example:

input file(fb)
cola(1,7) colb (8,3)

Nic Clouston · Posted: Tue Sep 15, 2015 3:49 pm

Please use the code tags when presenting code and data - they retain the spacing that the browser would otherwise remove and makes you code/data stand out from your requirement text.

This is similar to many other requests - have you looked through this section of the forum?

Bill Woodger · Posted: Tue Sep 15, 2015 4:36 pm

Nic, not sure (yet) that it is so similar.

f1org, can your data be like this?

Bill Woodger · Posted: Tue Sep 15, 2015 4:57 pm

If your data can be the more exotic example:

f1org · New User Joined: 14 Sep 2015 Posts: 6 Location: greece

ok Nic

i am looking from other request of this forum...
Thanks for your reply

f1org · New User Joined: 14 Sep 2015 Posts: 6 Location: greece

Bill you are the best
Thanks a lot

f1org · New User Joined: 14 Sep 2015 Posts: 6 Location: greece

Bill can you suggest another method without WHEN=GROUP as we don't have the PTF's of DFSORT 1.5 ......

Bill Woodger · Posted: Thu Sep 17, 2015 7:14 pm

Can you run this and paste the sysout from the step please, so that we can see exactly what you do have?

f1org · New User Joined: 14 Sep 2015 Posts: 6 Location: greece

Hi Bill

we are out of support because of re migration process out of mainframe

ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 16:54 ON THU SE
OPTION COPY
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE E5-K31980
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
ICE088I 0 FRAGOS1 .S1 . , INPUT LRECL = 80, BLKSIZE = 80, TYPE = F
ICE093I 0 MAIN STORAGE = (MAX,6291456,6278238)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6200798,6200798)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXIT
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAM
ICE235I 0 OPTIONS: NULLOUT=RC0

Bill Woodger · Posted: Thu Sep 17, 2015 8:14 pm

Well, if you are a small site and not using the Mainframe at capacity, you should be OK.

You don't have WHEN=GROUP, you don't have JOINKEYS.

That leaves ICETOOL's SPLICE operator.

It would be simpler for you to write a small E35 Exit program in COBOL. There are some examples here (search this part of the forum for DIVISION or something like that).

There, do the same thing as the GROUP I suggested. When non-blank, store the three-character value and the key. When blank and key equal to saved key, copy the stored three characters to the record.

Akatsukami · Posted: Thu Sep 17, 2015 8:15 pm

Has not DFSORT V1R5 been out of support since 2007? Is it taking so long to migrate to another platform (and if so, what does that say about the decision to migrate)?

f1org · New User Joined: 14 Sep 2015 Posts: 6 Location: greece

Bill thanks for your advise
I make a cobol program for this

Best Regards