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. I added a few more input records for a better test.
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
111111111111111111 00000020000{
111111111111111111 00000030000{
111111111111111111 00000040000{
222222222222222222 00000040000{
222222222222222222 00000050000{
222222222222222222 00000080000{
333333333333333333 00000090000{
333333333333333333 00000090000{
555555555555555555 00000090000{
//IN2 DD *
111111111111111111 00000020000{
222222222222222222 00000080000{
444444444444444444 00000080000{
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN1) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(29,18,CH) WITHALL WITH(1,80) WITH(93,1) -
KEEPBASE KEEPNODUPS USING(CTL3)
//CTL1CNTL DD *
INREC BUILD=(29:13,18,81:47,12,93:C'BB')
//CTL2CNTL DD *
INREC OVERLAY=(93:C'VV')
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,OMIT=(93,2,CH,EQ,C'BB'),
IFOUTLEN=80,
IFTHEN=(WHEN=(57,12,ZD,EQ,81,12,ZD),
OVERLAY=(57:+0,TO=ZDC,LENGTH=12))
/*
|
OUT would have:
Code: |
111111111111111111 00000000000{
111111111111111111 00000030000{
111111111111111111 00000040000{
222222222222222222 00000040000{
222222222222222222 00000050000{
222222222222222222 00000000000{
333333333333333333 00000090000{
333333333333333333 00000090000{
555555555555555555 00000090000{
|
|
|