Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

DFSORT/ICETOOL :: TOT & DATE parameter in ICEMAN

$
0
0
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.
------------------------------------------------------------
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)))             
/*                                                   


Viewing all articles
Browse latest Browse all 8500

Trending Articles