Re: Now why did I do that .....

New Message Reply Date view Thread view Subject view Author view Other groups

Subject: Re: Now why did I do that .....
From: Fran Hensler (fjh@zvm.sru.edu)
Date: Fri Aug 22 2008 - 08:19:25 EDT 

Bob -

I ran DP$SVA successfully but I guess to use it to it's full
advantage I would also need your hand-dandy-utilty DPCOMD.

Are you willing to share it?

/Fran Hensler at Slippery Rock University of Pennsylvania USA for 45 years
    mailto:fjh@zvm.sru.edu  http://zvm.sru.edu/~fjh  +1.724.738.2153
              "Yes, Virginia, there is a Slippery Rock"
--------------------------------------------------------------------------
On Fri, 22 Aug 2008 07:24:19 EDT Bob Botsis said:
>Allen and Dave,
>
>
>I've attached a program that will extract phases from SVA load list/s,  print
>their name, their size and whether they are 24-bit or 31-bit. At the end  it
>will list the totals of the 24-bit, 31-bit and total sizes for each, thus
>giving you a listing of what's inside the load lists and more importantly the
>size should you elect to use the load list in your IPL procedure.
>
>Here's sample JCL. Note that I did NOT code the program to end its SYSIPT
>data with something other than a /*, thus the first part uses my
>handy-dandy-utility to remove the /* statement:
>
>* $$ JOB JNM=DP$SVAJ,DISP=D,CLASS=0,PRI=8
>* $$ LST  DISP=H,CLASS=H,PRI=8,DEST=*
>// JOB DP$SVAJ
>// EXEC DTRIATTN,PARM='L  LST,*DP$SVAJ'
>// EXEC DPCOMD,SIZE=DPCOMD
>YLIB     GET,L=PRD2.PROD,M=IGYWESVA.Z,Q=M,-
>LIB=IJSYSRS.SYSLIB,MEM=IGYWESVA.J,-
>F='SET SDL ',T='/* ',I=',SVA '
>YLIB     GET,L=IJSYSRS.SYSLIB,M=SETSDL.PROC,Q=M,-
>LIB=IJSYSRS.SYSLIB,MEM=SETSDL.J,-
>F='SET SDL ',T='/* ',I=',SVA '
>YLIB     GET,L=IJSYSRS.SYSLIB,M=CICSSVA.PROC,Q=M,-
>LIB=IJSYSRS.SYSLIB,MEM=CICSSVA.J,-
>F='SET SDL ',T='/* ',I=',SVA '
>/*
>// EXEC  DP$SVA,SIZE=DP$SVA
>LIST=$$A$SVA
>LIST=$SVAASMA
>LIST=$SVACEE
>LIST=$SVACICS
>LIST=$SVACONN
>LIST=$SVADIT
>LIST=$SVAEDCM
>LIST=$SVAREXX
>LIST=$SVAVTAM
>SET  SDL IGYWESVA
>* $$ SLI MEM=IGYWESVA.J,S=IJSYSRS.SYSLIB
>SET SDL SETSDL
>*  $$ SLI MEM=SETSDL.J,S=IJSYSRS.SYSLIB
>SET SDL CICSSVA
>* $$ SLI  MEM=CICSSVA.J,S=IJSYSRS.SYSLIB
>/*
>// ASSGN SYSLST,IGN
>// EXEC  LIBR,SIZE=512K,PARM='A S=IJSYSRS.SYSLIB;DEL IGYWESVA.J'
>DEL SETSDL.J
>DEL  CICSSVA.J
>/*
>/&
>* $$ EOJ
>
>
>
>**************It's only a deal if it's where you want to go. Find your travel
>deal here.
>(http://information.travel.aol.com/deals?ncid=aoltrv00050000000047)
>

New Message Reply Date view Thread view Subject view Author view Other groups

This archive was generated by hypermail 2b25 : Sat Aug 30 2008 - 00:05:20 EDT