cdc:nos2.source:opl.opl871:deck:settasv
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.
cdc/nos2.source/opl.opl871/deck/settasv.txt ยท Last modified: by 127.0.0.1