Page 1 of 1

Using /MB with PGM=ICEMAN

PostPosted: Thu Dec 20, 2012 11:04 pm
by Thomas Ramseier
Dear All

I'd like to sum up some big values and totalize them in a report. The job is not PGM=ICETOOL but ICEMAN.
The statement in the TRAILER1-Record is TOT=(big_number_of_bytes,EDIT=('I''III''III''III''III''IIT')) and now I'd like to make this value Megabytes
Is there an equivalent feature of ICETOOL's ON() /MB for formatting values with EDIT= in ICEMAN's TRAILER1? - Couldn't find any hint in the manuals.

Thank you very much for any suggestion and have a great time
Thomas

Re: Using /MB with PGM=ICEMAN

PostPosted: Fri Dec 21, 2012 12:38 am
by dick scherrer
Hello,

Does the system use DFSORT or something else?

Please run any sort and post the informational messages shown - include the message ids.

Re: Using /MB with PGM=ICEMAN

PostPosted: Fri Dec 21, 2012 1:18 am
by Thomas Ramseier
Hi Dick

We're using IBMs DFSORT with zOS 1.12.

Input is from SMF30-records, SMF30TOT is a symbol for a 4 byte binary field containing the total number of bytes of memory allocation.
The line of the TRAILER1-statements is listed below.

   MIN=(SMF30TOT,FI,EDIT=('I''III''III''III''IIT')),3X,
   MAX=(SMF30TOT,FI,EDIT=('I''III''III''III''IIT')),3X,
   AVG=(SMF30TOT,FI,EDIT=('I''III''III''III''IIT')),3X,
   TOT=(SMF30TOT,FI,EDIT=('I''III''III''III''IIT')),3X,


The lines in the report look like

 Max Memory(Byte)
        (SMF30TOT)

                0
    1'674'723'328
       67'982'532
1'057'536'278'528


Now, I'd like to totalize in megybytes, so that the report would show:
 Max Memory(MEGAByte)
        (SMF30TOT)

                0
         1'674.72
            67.98
     1'057'536.28


I don't know how to code the EDIT=-statement to perform this task. In the DFSORT-manuals I read about the /MB-option for ICETOOL-steps, but this report is build with PGM=ICEMAN //SYSIN-statements.
Can this be done at all?

Thanks again
Thomas

Re: Using /MB with PGM=ICEMAN

PostPosted: Fri Dec 21, 2012 1:22 am
by dick scherrer
Hello,

We're using IBMs DFSORT with zOS 1.12.
Ok, but you still need to post the informational messages and message ids . . .

We need specific info about the sort product, not the operating system level.

Re: Using /MB with PGM=ICEMAN

PostPosted: Fri Dec 21, 2012 1:30 am
by Thomas Ramseier
Sorry about that - we're at level H, I think


ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
 ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE   E5-K76585 E7-K70685
 ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED
 ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
 ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 20:58 ON THU DEC 20, 2012 -
0            OPTION COPY
 ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
 ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE   E5-K76585 E7-K70685
 ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
 ICE088I 0 T750K001.STEP0100.        , INPUT LRECL = 80, BLKSIZE = 80, TYPE = F
 ICE093I 0 MAIN STORAGE = (MAX,2097152,2083934)
 ICE156I 0 MAIN STORAGE ABOVE 16MB = (2006494,2006494)
 ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
 ICE128I 0 OPTIONS: SIZE=2097152,MAXLIM=1048576,MINLIM=524288,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=SYSOUT
 ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO   ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N             ,ABCODE=MSG
 ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
 ICE131I 0 OPTIONS: TMAXLIM=2097152,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=0
 ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
 ICE133I 0 OPTIONS: HIPRMAX=50     ,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
 ICE235I 0 OPTIONS: NULLOUT=RC0
 ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
 ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT
 ICE084I 0 BSAM ACCESS METHOD USED FOR SORTIN
 ICE751I 1 EF-BASE   F0-K66717 E8-K79103
 ICE090I 0 OUTPUT LRECL = 80, BLKSIZE = 80, TYPE = F
 ICE055I 0 INSERT 0, DELETE 0
 ICE054I 0 RECORDS - IN: 0, OUT: 0
 ICE173I 0 NO RECORDS FOR THE SORTOUT DATA SET - RC=0
 ICE052I 0 END OF DFSORT

Re: Using /MB with PGM=ICEMAN

PostPosted: Fri Dec 21, 2012 2:40 am
by dick scherrer
Not a problem - my bad also . . . (read on)

It may help if you post the all of the control statements you submitted.

Forgot to mention this last time around . . . :oops:

d

Re: Using /MB with PGM=ICEMAN

PostPosted: Fri Dec 21, 2012 7:09 am
by skolusu
Thomas Ramseier,

You can perform arithmetic on the field and divide the value of 1,000,000 to get the value in megabytes and put it in a temp place or overlay at the same position as SMF30TOT. I prefer a temporary area. Here I chose pos 40 as my temp area. You also you wanted to have 2 decimals, so you need to multiply the field by 100 and then divide by 1,000,000 to retain the decimals. I don't have your complete control cards , so I am just showing you the portion which shows dividing and using that fields in the report.

  OUTREC OVERLAY=(40:(SMF30TOT,FI,MUL,+100),DIV,+1000000,FI,LENGTH=4)
  OUTFIL REMOVECC,NODETAIL,                                       
  TRAILER1=(MIN=(40,4,FI,EDIT=('I''III''III''III.IT')),3X,       
            MAX=(40,4,FI,EDIT=('I''III''III''III.IT')),3X,       
            AVG=(40,4,FI,EDIT=('I''III''III''III.IT')),3X,       
            TOT=(40,4,FI,EDIT=('I''III''III''III.IT')))           
//*                                                               

Re: Using /MB with PGM=ICEMAN

PostPosted: Fri Dec 21, 2012 10:50 am
by Thomas Ramseier
Good Morning Kolusu
Thanks for the hint. In fact, there are other fields in the report computed exactly the way you mentioned. Speciality here was that I'd like to report the #of bytes for the OUTREC-stmt and sum up in MBytes on the total-line only. But now,I'm gonna add a temporary column containing the MB-values.
Thanks again
Thomas