Using /MB with PGM=ICEMAN



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

Using /MB with PGM=ICEMAN

Postby 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
Thomas Ramseier
 
Posts: 16
Joined: Mon Sep 20, 2010 11:31 am
Has thanked: 0 time
Been thanked: 0 time

Re: Using /MB with PGM=ICEMAN

Postby 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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: Using /MB with PGM=ICEMAN

Postby 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.

   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
Thomas Ramseier
 
Posts: 16
Joined: Mon Sep 20, 2010 11:31 am
Has thanked: 0 time
Been thanked: 0 time

Re: Using /MB with PGM=ICEMAN

Postby 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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: Using /MB with PGM=ICEMAN

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

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
Thomas Ramseier
 
Posts: 16
Joined: Mon Sep 20, 2010 11:31 am
Has thanked: 0 time
Been thanked: 0 time

Re: Using /MB with PGM=ICEMAN

Postby 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
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: Using /MB with PGM=ICEMAN

Postby 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.

  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')))           
//*                                                               
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: Using /MB with PGM=ICEMAN

Postby 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
Thomas Ramseier
 
Posts: 16
Joined: Mon Sep 20, 2010 11:31 am
Has thanked: 0 time
Been thanked: 0 time


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post