IBM Mainframe Forum

by **Thomas Ramseier** » Thu Dec 20, 2012 11:04 pm

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

by **dick scherrer** » Fri Dec 21, 2012 12:38 am

Hello,

Does the system use DFSORT or something else?

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

by **Thomas Ramseier** » Fri Dec 21, 2012 1:18 am

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.

Select all

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

Select all

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:

Select all

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

by **dick scherrer** » Fri Dec 21, 2012 1:22 am

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.

by **Thomas Ramseier** » Fri Dec 21, 2012 1:30 am

Sorry about that - we're at level H, I think

Select all

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

by **dick scherrer** » Fri Dec 21, 2012 2:40 am

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

by **skolusu** » Fri Dec 21, 2012 7:09 am

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.

Select all

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')))
//*

by **Thomas Ramseier** » Fri Dec 21, 2012 10:50 am

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

IBM Mainframe Forum

Using /MB with PGM=ICEMAN

Using /MB with PGM=ICEMAN

Re: Using /MB with PGM=ICEMAN

Re: Using /MB with PGM=ICEMAN

Re: Using /MB with PGM=ICEMAN

Re: Using /MB with PGM=ICEMAN

Re: Using /MB with PGM=ICEMAN

Re: Using /MB with PGM=ICEMAN

Re: Using /MB with PGM=ICEMAN