*DECK JOBFTIR 
JOBFTIR 
TITLE(JOB) JOBFTIR - FTPI RELEASE DEFAULT RESTART JOB.
.*
.*
.*  THIS IS THE OPERATOR RESTART JOB FOR FTPI.
.*
.*    THIS RECORD MUST BE ADDED TO THE NAMSTRT FILE TO ALLOW
.*    OPERATOR RESTART OF FTPI SHOULD IT BECOME NECESSARY; IT IS
.*    NORMALLY STARTED ON DEMAND (REQUEST STARTABLE). 
.*
.*    THE *JOBFTPI* RECORD MUST BE ADDED TO THE NAMSTRT FILE  FOR 
.*    FTPI TO BE STARTED WITH THE REST OF THE NETWORK.  JOBFTPI 
.*    INITIALIZES (MODIFIES, OR CREATES IF NECESSARY) THE ZZFTPI
.*    FILE WHICH IS USED TO ACTUALLY RUN FTPI.  FTPI WILL BE RUN
.*    AFTER INITIALIZATION IF THE PARAMETER *PISTART* IS SET TO 
.*    *YES* IN THE PARAMETER RECORD.
.*
.*    STATEMENTS OF THE FORM
.*                 JOB(JOBFTIR,PI,DI,SY,NS) 
.*    MUST BE ADDED TO ALL PARAMETER RECORDS TO SELECT THIS RECORD
.*    TO ALLOW OPERATOR RESTARTS OF FTPI. 
.*
.*    STATEMENTS OF THE FORM
.*                 JOB(JOBFTPI,IP,SY,NS)
.*    MUST BE ADDED TO ALL PARAMETER RECORDS TO SELECT THE *JOBFTPI*
.*    RECORD TO BE PROCESSED BY NAMI AND SUBMITTED TO START FTPI
.*    AT NETWORK STARTUP. 
.*
.*    THE PERMANENT FILES THAT FTPI DUMPS AND TRACES ARE WRITTEN TO 
.*    WILL BE COLLECTED BY THE COLLECTOR JOB ALONG WITH THE REST OF 
.*    THE NETWORK TRACES AND DUMPS.  SEE *JOBFTPI* FOR AN EXPLANATION 
.*    OF THESE FILES. 
.*
.*
FTIR_CIN,T77777.   FTPI 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(ZZFTPI/NA)
IF(FILE(ZZFTPI,AS),NOGOT) 
ROUTE(ZZFTPI,DC=IN,OT=SYOT,SCL=NS)
ELSE(NOGOT) 
NAMI(RS=IP) 
ENDIF(NOGOT)
SETJOB(DC=NO) 
EXIT.  FTIR 
.*
DISPLAY(EF) 
EXIT.  FTIR 
