*DECK JOBFTSR 
JOBFTSR 
TITLE(JOB) JOBFTSR - FTPS RELEASE DEFAULT RESTART JOB.
.*
.*
.*  THIS IS THE OPERATOR RESTART JOB FOR FTPS.
.*
.*    THIS RECORD MUST BE ADDED TO THE NAMSTRT FILE TO ALLOW
.*    OPERATOR RESTART OF FTPS SHOULD IT BECOME NECESSARY; IT IS
.*    NORMALLY STARTED ON DEMAND (REQUEST STARTABLE). 
.*
.*    THE *JOBFTPS* RECORD MUST BE ADDED TO THE NAMSTRT FILE  FOR 
.*    FTPS TO BE STARTED WITH THE REST OF THE NETWORK.  JOBFTPS 
.*    INITIALIZES (MODIFIES, OR CREATES IF NECESSARY) THE ZZFTPS
.*    FILE WHICH IS USED TO ACTUALLY RUN FTPS.  FTPS WILL BE RUN
.*    AFTER INITIALIZATION IF THE PARAMETER *TSSTART* IS SET TO 
.*    *YES* IN THE PARAMETER RECORD.
.*
.*    STATEMENTS OF THE FORM
.*                 JOB(JOBFTSR,TS,DI,SY,NS) 
.*    MUST BE ADDED TO ALL PARAMETER RECORDS TO SELECT THIS RECORD
.*    TO ALLOW OPERATOR RESTARTS OF FTPS. 
.*
.*    STATEMENTS OF THE FORM
.*                 JOB(JOBFTPS,ST,SY,NS)
.*    MUST BE ADDED TO ALL PARAMETER RECORDS TO SELECT THE *JOBFTPS*
.*    RECORD TO BE PROCESSED BY NAMI AND SUBMITTED TO START FTPS
.*    AT NETWORK STARTUP. 
.*
.*    THE PERMANENT FILES THAT FTPS DUMPS AND TRACES ARE WRITTEN TO 
.*    WILL BE COLLECTED BY THE COLLECTOR JOB ALONG WITH THE REST OF 
.*    THE NETWORK TRACES AND DUMPS.  SEE *JOBFTPS* FOR AN EXPLANATION 
.*    OF THESE FILES. 
.*
.*
FTSR_CIN,T77777.   FTPS RELEASE DEFAULT RESTART JOB.
USER(UNM,PWM) 
NORERUN.
DISPLAY(STR($DATE = $)//STRD(DATE)) 
DISPLAY(STR($HID = $)//STR(HID))
DISPLAY(STR($OT = $)//STRB(OT)) 
DISPLAY(STR($SC = $)//STRB(SC)) 
GET(ZZFTPS/NA)
IF(FILE(ZZFTPS,AS),NOGOT) 
ROUTE(ZZFTPS,DC=IN,OT=SYOT,SCL=NS)
ELSE(NOGOT) 
NAMI(RS=ST) 
ENDIF(NOGOT)
SETJOB(DC=NO) 
EXIT.  FTSR 
.*
DISPLAY(EF) 
EXIT.  FTSR 
