Deck SETTASV

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.settasv +++|*NOSEQ
00002  M00S00002.settasv +++|.PROC,SETTASV*I
00003  M00S00003.settasv +++|,D=(*A,*N=GE)
00004  M00S00004.settasv +++|,F=(*A,*N=I)
00005  M00S00005.settasv +++|,V1=(*S6..6/AD)
00006  M00S00006.settasv +++|,V2=(*S6..6/AD,*N=)
00007  M00S00007.settasv +++|,T=(*F,*N=TAPE)
00008  M00S00008.settasv +++|,VF=(*F,*N=PFVER)
00009  M00S00009.settasv +++|,TFSI=(*N=#DATA)
00010  M00S00010.settasv +++|.
00011  M00S00011.settasv +++|.***************************************
00012  M00S00012.settasv +++|.*                                     *
00013  M00S00013.settasv +++|.*  *SETTASV* IS THE PROCEDURE CALLED  *
00014  M00S00014.settasv +++|.*  BY THE PROGRAM *GETTASV* AFTER IT  *
00015  M00S00015.settasv +++|.*  HAS SELECTED THE SYSTEM VSN(S) TO  *
00016  M00S00016.settasv +++|.*  BE USED FOR TAPE ALTERNATE STORAGE *
00017  M00S00017.settasv +++|.*  FOR DESTAGED MASS STORAGE FILES.   *
00018  M00S00018.settasv +++|.*  *GETTASV* MUST PASS THE DENSITY(D) *
00019  M00S00019.settasv +++|.*  FORMAT(F), ONE OR TWO SYSTEM VSNS  *
00020  M00S00020.settasv +++|.*  (V1,V2), AND THE LFN(S) FOR THE    *
00021  M00S00021.settasv +++|.*  DESTAGE TAPES(T,VF).  *SETTASV*    *
00022  M00S00022.settasv +++|.*  MUST RESERVE THE SELECTED VSN(S)   *
00023  M00S00023.settasv +++|.*  AND REQUEST THE TAPES.  THE VSN(S) *
00024  M00S00024.settasv +++|.*  ARE RESERVED UNDER THE USERNAME IN *
00025  M00S00025.settasv +++|.*  EFFECT AT THE TIME *SETTASV* IS    *
00026  M00S00026.settasv +++|.*  CALLED.  IF THE SIZE OF FILES TO   *
00027  M00S00027.settasv +++|.*  BE DESTAGED EXCEEDS THE CAPACITY   *
00028  M00S00028.settasv +++|.*  OF A SINGLE VSN, ADDITIONAL VSNS   *
00029  M00S00029.settasv +++|.*  WILL BE ASSIGNED FROM THE SCRATCH  *
00030  M00S00030.settasv +++|.*  POOL AS REQUIRED.  ADDITIONAL VSNS *
00031  M00S00031.settasv +++|.*  ASSIGNED WILL NOT BE SYSTEM VSNS.  *
00032  M00S00032.settasv +++|.*                                     *
00033  M00S00033.settasv +++|.*  NOTE- IT IS THE RESPONSIBILITY OF  *
00034  M00S00034.settasv +++|.*  THE JOB CALLING *GETTASV* TO ISSUE *
00035  M00S00035.settasv +++|.*  THE APPROPRIATE *RESOURC* COMMAND  *
00036  M00S00036.settasv +++|.*  IF MULTIPLE TAPES AND/OR PACKS ARE *
00037  M00S00037.settasv +++|.*  REQUIRED BY THE JOB (AS WHERE TWO  *
00038  M00S00038.settasv +++|.*  VSNS ARE REQUIRED FOR DESTAGING).  *
00039  M00S00039.settasv +++|.*                                     *
00040  M00S00040.settasv +++|.***************************************
00041  M00S00041.settasv +++|.SET,USERNAM=STR(USER).
00042  M00S00042.settasv +++|$TFSP,OP=I,I=TFSI.
00043  M00S00043.settasv +++|$UNLOAD,T,TFSI.
00044  M00S00044.settasv +++|$LABEL,T,#D=D,#F=F,PO=W,VSN=V1.
00045  M00S00045.settasv +++|.IF,$V2$.NE.$$,BACK1.
00046  M00S00046.settasv +++|$UNLOAD,VF.
00047  M00S00047.settasv +++|$LABEL,VF,#D=D,#F=F,PO=W,VSN=V2.
00048  M00S00048.settasv +++|.ENDIF,BACK1.
00049  M00S00049.settasv +++|$REVERT,NOLIST.
00050  M00S00050.settasv +++|.DATA,TFSI.
00051  M00S00051.settasv +++|USER=USERNAM
00052  M00S00052.settasv +++|  FILEV=V1
00053  M00S00053.settasv +++|    #D=D
00054  M00S00054.settasv +++|    #F=F
00055  M00S00055.settasv +++|    LB=KL
00056  M00S00056.settasv +++|    M=NULL
00057  M00S00057.settasv +++|    RESERVE
00058  M00S00058.settasv +++|.IF,$V2$.NE.$$,BACK2.
00059  M00S00059.settasv +++|  FILEV=V2
00060  M00S00060.settasv +++|    #D=D
00061  M00S00061.settasv +++|    #F=F
00062  M00S00062.settasv +++|    LB=KL
00063  M00S00063.settasv +++|    M=NULL
00064  M00S00064.settasv +++|    RESERVE
00065  M00S00065.settasv +++|.ENDIF,BACK2.
00066  M00S00066.settasv +++|  DROP
00067  M00S00067.settasv +++|DROP
00068  M00S00068.settasv +++|.*  END OF SETTASV PROCEDURE.