Deck SETTASV

0 Modifications
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.settasv +++|*NOSEQ
00002  M01S00002.settasv +++|.PROC,SETTASV*I
00003  M01S00003.settasv +++|,D=(*A,*N=GE)
00004  M01S00004.settasv +++|,F=(*A,*N=I)
00005  M01S00005.settasv +++|,V1=(*S6..6/AD)
00006  M01S00006.settasv +++|,V2=(*S6..6/AD,*N=)
00007  M01S00007.settasv +++|,T=(*F,*N=TAPE)
00008  M01S00008.settasv +++|,VF=(*F,*N=PFVER)
00009  M01S00009.settasv +++|,TFSI=(*N=#DATA)
00010  M01S00010.settasv +++|.
00011  M01S00011.settasv +++|.***************************************
00012  M01S00012.settasv +++|.*                                     *
00013  M01S00013.settasv +++|.*  *SETTASV* IS THE PROCEDURE CALLED  *
00014  M01S00014.settasv +++|.*  BY THE PROGRAM *GETTASV* AFTER IT  *
00015  M01S00015.settasv +++|.*  HAS SELECTED THE SYSTEM VSN(S) TO  *
00016  M01S00016.settasv +++|.*  BE USED FOR TAPE ALTERNATE STORAGE *
00017  M01S00017.settasv +++|.*  FOR DESTAGED MASS STORAGE FILES.   *
00018  M01S00018.settasv +++|.*  *GETTASV* MUST PASS THE DENSITY(D) *
00019  M01S00019.settasv +++|.*  FORMAT(F), ONE OR TWO SYSTEM VSNS  *
00020  M01S00020.settasv +++|.*  (V1,V2), AND THE LFN(S) FOR THE    *
00021  M01S00021.settasv +++|.*  DESTAGE TAPES(T,VF).  *SETTASV*    *
00022  M01S00022.settasv +++|.*  MUST RESERVE THE SELECTED VSN(S)   *
00023  M01S00023.settasv +++|.*  AND REQUEST THE TAPES.  THE VSN(S) *
00024  M01S00024.settasv +++|.*  ARE RESERVED UNDER THE USERNAME IN *
00025  M01S00025.settasv +++|.*  EFFECT AT THE TIME *SETTASV* IS    *
00026  M01S00026.settasv +++|.*  CALLED.  IF THE SIZE OF FILES TO   *
00027  M01S00027.settasv +++|.*  BE DESTAGED EXCEEDS THE CAPACITY   *
00028  M01S00028.settasv +++|.*  OF A SINGLE VSN, ADDITIONAL VSNS   *
00029  M01S00029.settasv +++|.*  WILL BE ASSIGNED FROM THE SCRATCH  *
00030  M01S00030.settasv +++|.*  POOL AS REQUIRED.  ADDITIONAL VSNS *
00031  M01S00031.settasv +++|.*  ASSIGNED WILL NOT BE SYSTEM VSNS.  *
00032  M01S00032.settasv +++|.*                                     *
00033  M01S00033.settasv +++|.*  NOTE- IT IS THE RESPONSIBILITY OF  *
00034  M01S00034.settasv +++|.*  THE JOB CALLING *GETTASV* TO ISSUE *
00035  M01S00035.settasv +++|.*  THE APPROPRIATE *RESOURC* COMMAND  *
00036  M01S00036.settasv +++|.*  IF MULTIPLE TAPES AND/OR PACKS ARE *
00037  M01S00037.settasv +++|.*  REQUIRED BY THE JOB (AS WHERE TWO  *
00038  M01S00038.settasv +++|.*  VSNS ARE REQUIRED FOR DESTAGING).  *
00039  M01S00039.settasv +++|.*                                     *
00040  M01S00040.settasv +++|.***************************************
00041  M01S00041.settasv +++|.SET,USERNAM=STR(USER).
00042  M01S00042.settasv +++|$TFSP,OP=I,I=TFSI.
00043  M01S00043.settasv +++|$UNLOAD,T,TFSI.
00044  M01S00044.settasv +++|$LABEL,T,#D=D,#F=F,PO=W,VSN=V1.
00045  M01S00045.settasv +++|.IF,$V2$.NE.$$,BACK1.
00046  M01S00046.settasv +++|$UNLOAD,VF.
00047  M01S00047.settasv +++|$LABEL,VF,#D=D,#F=F,PO=W,VSN=V2.
00048  M01S00048.settasv +++|.ENDIF,BACK1.
00049  M01S00049.settasv +++|$REVERT,NOLIST.
00050  M01S00050.settasv +++|.DATA,TFSI.
00051  M01S00051.settasv +++|USER=USERNAM
00052  M01S00052.settasv +++|  FILEV=V1
00053  M01S00053.settasv +++|    #D=D
00054  M01S00054.settasv +++|    #F=F
00055  M01S00055.settasv +++|    LB=KL
00056  M01S00056.settasv +++|    M=NULL
00057  M01S00057.settasv +++|    RESERVE
00058  M01S00058.settasv +++|.IF,$V2$.NE.$$,BACK2.
00059  M01S00059.settasv +++|  FILEV=V2
00060  M01S00060.settasv +++|    #D=D
00061  M01S00061.settasv +++|    #F=F
00062  M01S00062.settasv +++|    LB=KL
00063  M01S00063.settasv +++|    M=NULL
00064  M01S00064.settasv +++|    RESERVE
00065  M01S00065.settasv +++|.ENDIF,BACK2.
00066  M01S00066.settasv +++|  DROP
00067  M01S00067.settasv +++|DROP
00068  M01S00068.settasv +++|.*  END OF SETTASV PROCEDURE.