//JCLSTK00 JOB (xxxxxx,,xx,,xxxxxxxx),'RockPainter',
//         CLASS=x,MSGCLASS=x,MSGLEVEL=(1,1),REGION=20M,
//         NOTIFY=&SYSUID
/*JOBPARM  R=xxxxxx
/*ROUTE    PRINT Rxxxx
//*-------------------------------------------------------------------
//* Author:       Bruce R. Gillispie - email: gillispi@texasrock.com  
//* Disclaimer:                                                       
//* The "JCLSTK00" JCL IS NOT in the Public Domain Freeware Software. 
//* You may use the "JCLSTK00" JCL AT YOUR OWN RISK, it is provided    
//* for your enjoyment and neither the Author or his Employer provides 
//* any warranty for its use.
//*-------------------------------------------------------------------                                         
//* - INITIAL --------------------------------- 02/11/1999 - BRG -
//* - ADD BATCH REXX TO CREATE SORT CNTL JS003  02/25/1999 - BRG -
//*
//* JS001 - IDCAMS - DELETE WORK FILES
//* JS002 - STK UTILITY: SLSXVSCN - OUTPUT IN: TEST.STK.SLSXVSCN.RPT
//*         THE OUTPUT PROVIDES DETAILS ABOUT THE LIBRARY VOLUMES
//* JS003 - BATCH REXX: BUILD SORT CONTROLS USED IN JS004
//*         OUTPUT STORED IN: TEST.STK.SORTCNTL
//* JS004 - SORTS DATA FROM JS002 AND BUILDS CONTROL CARDS STATEMENTS.
//*         OUTPUT STORED IN: TEST.STK.MOVE.STATEMENT
//* JS005 - BATCH REXX:
//*       1 ISSUES CONSOLE COMMAND TO DISPLAY NUMBER OF FREE CELLS
//*         & NUMBER OF SCRATCH VOLUMES IN LSM 007.
//*       2 BUILDS SLUADMIN MOVE(VVVVVV) STATEMENTS BASED ON LSM
//*         CELL COUNTS.(MOVE GROUPS MAY HAVE UPTO 100 VOLUMES)
//* JS006 - STK UTILITY: SLUADMIN - READS IN JS004 OUTPUT DATASET
//*         WHICH CONTAINS: MOVE VOLUME(NNNNNN) TLSM(007) STATEMENTS
//* ------------------------------------------------------------------
//JS001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  DEL TEST.STK.SORTCNTL
  DEL TEST.STK.SLSXVSCN.RPT2
  DEL TEST.STK.SLSXVSCN.RPT.SORTED2
  DEL TEST.STK.SLSXVSCN.MOVE.CARDS2
  SET  MAXCC = 0
/*
//JS002    EXEC PGM=SLSXVSCN,PARM='******'
//STEPLIB  DD DSN=HLQ01.HSC.SLSLINK,DISP=SHR
//SLSVARS  DD DISP=(,CATLG,DELETE),
//         UNIT=SYSALLDA,
//         SPACE=(CYL,(4,10),RLSE),
//         DCB=(RECFM=VB,LRECL=136,BLKSIZE=28000),
//         DSN=TEST.STK.SLSXVSCN.RPT2
//*
//SYSOUT   DD  SYSOUT=*                SORT MESSAGES.
//SLSPRINT DD  SYSOUT=*                UTILITY MESSAGES.
//SYSPRINT DD  SYSOUT=*                IEBGENER MESSAGES.
//SLSCNTL  DD  DISP=SHR,DSN=HLQ01.HSC.CDS001
//         DD  DISP=SHR,DSN=HLQ01.HSC.CDS002
/*
//JS003    EXEC PGM=IKJEFT1A,DYNAMNBR=6
//* - - - - - - - - - - - - - - - - - - - - - - -
//* REXX IS LOCATED IN YOUR ??????.USER.EXECS(SORTCNTL)
//* - - - - - - - - - - - - - - - - - - - - - - -
//SYSUT1   DD DSN=&SYSUT1,UNIT=VIO,SPACE=(TRK,(0,5))
//SYSUT2   DD DSN=&SYSUT2,UNIT=VIO,SPACE=(TRK,(0,5))
//SYSUT3   DD DSN=&SYSUT3,UNIT=VIO,SPACE=(TRK,(0,5))
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//ISPLOG   DD DUMMY
//*            DCB=(RECFM=VA,LRECL=125,BLKSIZE=129)
//ISPLIST  DD DUMMY
//*            DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)
//ISPPROF  DD DISP=SHR,DSN=HLQ02.USER.ISPPROF
//ISPLLIB  DD DISP=SHR,DSN=HLQ02.USER.ISPLOAD
//ISPPLIB  DD DISP=SHR,DSN=HLQ02.ISPF.PANELS
//ISPSLIB  DD DISP=SHR,DSN=HLQ02.ISPF.SKELS
//ISPMLIB  DD DISP=SHR,DSN=HLQ02.ISPF.MSGS
//ISPTLIB  DD DISP=SHR,DSN=HLQ08.USER.TABLES
//         DD DISP=SHR,DSN=HLQ02.ISPF.TABLES
//SYSPROC  DD DISP=SHR,DSN=HLQ007.USER.CLIST
//SYSEXEC  DD DISP=SHR,DSN=???????.USER.EXECS,
//            DCB=BUFNO=10
//SYSTSIN  DD *
 ISPSTART CMD(%SORTCNTL)
 END
/*
//SORTPROC PROC RG=9M,           REGION
//        PRM=,                  PARM: DEFAULT LIST CONTROL STATEMENTS
//        DOUT='*',              DUMP SYSOUT CLASS
//        SOUT='*',              MESSAGE SYSOUT CLASS
//        TYP=CYL,               WORK ALLOC TYPE
//        PRI=10,                WORK PRIMARY
//        SEC=5                  WORK SECONDARY
//SYNCSORT EXEC  PGM=SORT,REGION=&RG,
//  PARM=('&PRM.')
//SYSUDUMP DD  SYSOUT=&DOUT
//SORTWK01 DD  UNIT=WORK,SPACE=(&TYP.,(&PRI.,&SEC.),RLSE)
//SORTWK02 DD  UNIT=WORK,SPACE=(&TYP.,(&PRI.,&SEC.),RLSE)
//SORTWK03 DD  UNIT=WORK,SPACE=(&TYP.,(&PRI.,&SEC.),RLSE)
//SYSOUT   DD  SYSOUT=&SOUT
// PEND
//*
//JS004   EXEC SORTPROC
//SYSUDUMP DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//*
//SORTIN   DD  DISP=SHR,DSN=TEST.STK.SLSXVSCN.RPT2,
//         DCB=BUFNO=40
//SORTWK01 DD UNIT=WORK,SPACE=(CYL,(20,20))
//*
//*SORTOUT DD SYSOUT=*
//SORTOUT  DD DSN=TEST.STK.SLSXVSCN.RPT.SORTED2,
//          DISP=(,CATLG,DELETE),
//          UNIT=SYSALLDA,
//          SPACE=(CYL,(4,5),RLSE),
//          DCB=(BLKSIZE=28000,LRECL=80,RECFM=FB)
//SYSIN DD DISP=SHR,DSN=TEST.STK.SORTCNTL
/*
//JS005    EXEC PGM=IKJEFT1A,DYNAMNBR=6
//* - - - - - - - - - - - - - - - - - - - - - - -
//* REXX IS LOCATED IN YOUR ???????.USER.EXECS(STK0000)
//* - - - - - - - - - - - - - - - - - - - - - - -
//SYSUT1   DD DSN=&SYSUT1,UNIT=VIO,SPACE=(TRK,(0,5))
//SYSUT2   DD DSN=&SYSUT2,UNIT=VIO,SPACE=(TRK,(0,5))
//SYSUT3   DD DSN=&SYSUT3,UNIT=VIO,SPACE=(TRK,(0,5))
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//ISPLOG   DD DUMMY
//*            DCB=(RECFM=VA,LRECL=125,BLKSIZE=129)
//ISPLIST  DD DUMMY
//*            DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)
//ISPPROF  DD DISP=SHR,DSN=HLQ02.USER.ISPPROF
//ISPLLIB  DD DISP=SHR,DSN=HLQ02.USER.ISPLOAD
//ISPPLIB  DD DISP=SHR,DSN=HLQ02.ISPF.PANELS
//ISPSLIB  DD DISP=SHR,DSN=HLQ02.ISPF.SKELS
//ISPMLIB  DD DISP=SHR,DSN=HLQ02.ISPF.MSGS
//ISPTLIB  DD DISP=SHR,DSN=HLQ08.USER.TABLES
//         DD DISP=SHR,DSN=HLQ02.ISPF.TABLES
//SYSPROC  DD DISP=SHR,DSN=HLQ007.USER.CLIST
//SYSEXEC  DD DISP=SHR,DSN=???????.USER.EXECS,
//            DCB=BUFNO=10
//SYSTSIN  DD *
 ISPSTART CMD(%STK0000)
 END
/*
//JS006    EXEC PGM=SLUADMIN           UTILITY DRIVER.
//STEPLIB   DD   DSN=HLQ01.HSC.SLSLINK,DISP=SHR
//SLSPRINT DD  SYSOUT=*                     UTILITY MESSAGES.
//SLSIN    DD  DDNAME=SYSIN                 CONTROL STATEMENT
//SYSIN DD DISP=SHR,DSN=TEST.STK.SLSXVSCN.MOVE.CARDS2
/*
//LASTSTEP EXEC PGM=IEFBR14
//