Author: hemanthj642
Subject: TOT & DATE parameter in ICEMAN
Posted: Mon Nov 14, 2016 5:19 am (GMT 5.5)
Hi,
Can you please help me with the below:
The input file is VB
My requirement is based on the key in position 5 and of length 6 characters. I need to generate the count of records and also the total amount for each key value. Then populate the output file as mentioned below:
1. Previous Days Date in CCYYMMDD format
2. Key value 6 characters in length
3. Count in ZD format and length is 15
4. Amount value in 956 position in PD format (13,2) and the output in the format PD.
I'm unable to get the date and also the amount is in ZD format.
Can this requirement be achieved in one step.
------------------------------------------------------------
Subject: TOT & DATE parameter in ICEMAN
Posted: Mon Nov 14, 2016 5:19 am (GMT 5.5)
Hi,
Can you please help me with the below:
The input file is VB
My requirement is based on the key in position 5 and of length 6 characters. I need to generate the count of records and also the total amount for each key value. Then populate the output file as mentioned below:
1. Previous Days Date in CCYYMMDD format
2. Key value 6 characters in length
3. Count in ZD format and length is 15
4. Amount value in 956 position in PD format (13,2) and the output in the format PD.
I'm unable to get the date and also the amount is in ZD format.
Can this requirement be achieved in one step.
------------------------------------------------------------
Code: |
//S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //DFSMSG DD SYSOUT=* //* //SORTIN DD DSN=Input Fileâ¦.,DISP=SHR -ï VB and LRECL= 4100 //OUT1 DD DSN=Output file, // DISP=(NEW,CATLG,DELETE), // DCB=(RECFM=FB,LRECL=120,BLKSIZE=0), // SPACE=(CYL,(10,10),RLSE) //* //SYSIN DD * SORT FIELDS=(9,6,CH,A) OUTFIL FNAMES=OUT1,VTOF, NODETAIL,REMOVECC,BUILD=(120X), SECTIONS=(9,6, TRAILER3=(1:DATE=(MD4/),9:9,6,15:C'APPROVED', 23:COUNT=(M11,LENGTH=15), 38:TOT=(960,7,PD,LENGTH=8))) /* |