MVSFORUMS.com

[Jaidev]

I need to find out the difference of I/P and O/P for Grand total revenue. Since this is masked field, can I use EDIT in the input of a Sort to get the difference? I tried using the follinwing JCL for this, but it's giving a syntax error:

SORT FIELDS=COPY
OUTREC FIELDS=(1:(46,13,ZD,EDIT=($$,$$$,$99.99CR),ADD,
*
61,13,ZD,EDIT=($$,$$$,$99.99CR)),FS,LENGTH=10)


The Jcl:
//STEP03 EXEC PGM=SYNCSORT
//SORTIN DD DISP=SHR,
// DSN=INPUT1
//SORTOUT DD DSN=TEMP1,
// DISP=OLD,DCB=LRECL=80,
// SPACE=(CYL,(1,5),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(4,19,CH,EQ,C'GRAND TOTAL REVENUE')
/*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//*
//STEP04 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=TEMP1,
// DISP=OLD,DCB=LRECL=80,
// SPACE=(CYL,(1,5),RLSE)
//OUT DD DSN=TEMP,
// DISP=OLD,DCB=LRECL=80,
// SPACE=(CYL,(1,5),RLSE)
//TOOLIN DD *
COPY FROM(IN) TO(OUT) USING(CTL1)
/*
//CTL1CNTL DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:(46,13,ZD,EDIT=($$,$$$,$99.99CR),ADD,
66,13,ZD,EDIT=($$,$$$,$99.99CR)),FS,LENGTH=10)
/*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSDUMP DD SYSOUT=*


The fields positions:
GTR : 4
I/p : 46 - 60 ($$,$$$,$99.$$CR)
o/p : 66 - 80 ($$,$$$,$99.$$CR)

The alternative could be EZ+, but sort can be worth trying.

Snapshot of the input:
FIELD DESCRIPTION I/P DATA O/P DATA
----------------- --------- --------
GRAND TOTAL REVENUE $84.03CR $22.96
TOTAL DDD CHRG AMOUNT $24.50 $24.50
TOTAL CC CHRG AMOUNT $0.00 $0.00


FIELD DESCRIPTION I/P DATA O/P DATA
----------------- --------- --------
GRAND TOTAL REVENUE $61.56 $19.70
TOTAL DDD CHRG AMOUNT $23.76 $23.76
TOTAL CC CHRG AMOUNT $0.00 $0.00



regards,
Jaidev

[kolusu]

Jaidev,

shouldn't the edit mask be $$,$$$,$99.99CR instead of $$,$$$,$99.$$CR??

Assuming that the edit mask is correct, there is way to get the desired results. The varying dollar symbol along with thousands seperator , imbedded decimal is what makes this job a little complicated.

I did not have time to test the job but here is a solution that will work.

Split the input file into 'N' different files depending upon the position of the dollar symbol for the input and output data.Here is an untested code.

[Jaidev]

this JCL indeed worked, with some modifications, thanx a millon...