rajatbagga
Active User
Joined: 11 Mar 2007
Posts: 199
Location: india
|
|
|
|
Hi,
In my requirement I have a file say 'rajat.test.file' (FB/04) in which the number of records should always be made to 99. if the file 'rajat.test.file' is created with 24 records then above these 24 records there should hex. dec. count till 75 i.e (X'01' to X'4B') starting from col. postion 4 of length 1. Everytime the number of records in 'rajat.test.file' may vary. So dynmically the hex. dec. count values should be inserted above the records.
For example.
INPUT FILE i.e 'rajat.test.file'
| Code: |
=COLS> ----
****** ***
000001 CCX
000002 CC1
000003 CC2
000004 CC9
000005 EE1
000006 EE3
000007 EE8
000008 FFY
000009 FF2
000010 FF3
000011 FF9
000012 HH1
000013 HH2
000014 HH9
000015 KK8
000016 NNC
000017 NNY
000018 NN2
000019 NN4
000020 NN8
000021 SE6
000022 UU8
000023 YYE
000024 YYG |
Then this file should be modified to :
| Code: |
=COLS> ----
****** ****
000001 X'01'
000002 X'02'
.
.
.
.
.
.
000075 X'4B'
000076 CCX
000077 CC1
000078 CC2
000079 CC9
000080 EE1
000081 EE3
000082 EE8
000083 FFY
000084 FF2
000085 FF3
000086 FF9
000087 HH1
000088 HH2
000089 HH9
000090 KK8
000091 NNC
000092 NNY
000093 NN2
000094 NN4
000095 NN8
000096 SE6
000097 UU8
000098 YYE
000099 YYG |
Thanks in advance,
Rajat |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will do what you asked for:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (FB/4)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//CTL3CNTL DD DSN=&&C3,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//IN4 DD *
DUMMY
//***> USE A MOD DATA SET FOR //OUT
//OUT DD DISP=MOD,DSN=... MOD output file (FB/4)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
COPY FROM(T1) TO(CTL3CNTL) USING(CTL2)
COPY FROM(IN4) TO(OUT) USING(CTL3)
COPY FROM(IN) TO(OUT)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1,REMOVECC,NODETAIL,
TRAILER1=(COUNT=(EDIT=(TT)))
/*
//CTL2CNTL DD *
INREC BUILD=(2X,
C'OUTFIL FNAMES=OUT,BUILD=(4:SEQNUM,1,BI),REPEAT=',
+99,SUB,1,2,ZD,EDIT=(TT),80:X)
/*
|
|
|
