CTITLEJBINFO -- BUILD INFO CARDS FOR JOBGEN 00010004 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR RALPH MCMILLAN 00020004 CA DESIGNER RALPH MCMILLAN 00030004 CA LANGUAGE VS FORTRAN 00040004 CA SYSTEM IBM 00050004 CA WRITTEN 10-05-87 00060004 C REVISED 00070004 CA 00080004 CA CALL JBINFO (KPNA, KPRNO, KPOCUR, DSNAME, INDEX, CARD, INFOC) 00090004 CA NPROCC, INP, ITR, IPR, ERR) 00100004 CA 00110004 CA IN/OUT ARGUMENT TYPE DESCRIPTION 00120004 CA IN KPNA CH4 PROCESS NAME 00130004 CA IN KPRNO I4 PROCESS NUMBER 00140004 CA IN KPOCUR I4 PROCESS OCCURRENCE NUMBER 00150004 CA IN DSNAME CH44 DATA SET NAME 00160004 CA IN INDEX I4 INDEX NUMBER FOR DDNAME. 00170004 CA IF POSITIVE, OUTPUT DDNAME WILL BE 00180004 CA GENERATED BY MULTIPLYING BY 2 TO FORM 00190006 CA DBGXXX. (EVEN) 00200006 CA IF NEGATIVE, OUTPUT DDNAME WILL BE 00210004 CA GENERATED BY MULTIPLYING BY -2 AND 00220006 CA SUBTRACTING BY 1 TO FORM DBGXXX. (ODD) 00230006 CA INDEX WILL BE IGNORED IF COLOR PROCESS, IN00240006 CA WHICH CASE A "UNIR" DDNAME WILL BE USED. 00250006 CA IN CARD CH80 DATA CARD FOR PROCESS 00260004 CA OUT INFOC CH80 THE INFO CARD RETURNED 00270004 CA 00280004 CA 00290004 CA THIS SUBROUTINE BUILDS INFO2 CARDS FOR JOBGEN. THE FORMAT OF THE 00300004 CA CARD IS: 00310004 CA 00320004 CA 1 - 5 "INFO2" 00330004 CA 6 - 9 KPNA 00340004 CA 10 KPRNO (CONVERTED TO CHARACTER) 00350004 CA 11 - 12 KPOCUR (CONVERTED TO CHARACTER) 00360004 CA 13 - 18 6 CHARACTER DDNAME 00370004 CA 19 - 62 DSNAME 00380004 CA 63 - 65 VOLUME SEQUENCE NUMBER (CC 58-60 FROM DATA CARD) 00390004 CA 66 DENSITY (2 = 800; 3 = 1600; 4 = 6250) 00400004 CA 67 FILE MODE (CC 40 FROM DATA CARD) 00410004 C 00420004 SUBROUTINE JBINFO (KPNA, KPRNO, KPOCUR, DSNAME, INDEX, CARD, 00430004 * INFOC) 00440004 C 00450004 IMPLICIT INTEGER (A-Z) 00460004 C 00470004 C INPUT VARIABLES 00480004 C 00490004 CHARACTER*80 CARD 00500004 CHARACTER*44 DSNAME 00510004 CHARACTER*80 INFOC 00520004 CHARACTER*4 KPNA 00530004 C 00540005 C LOCAL VARIABLES 00550005 C 00560005 INTEGER UNIRAS /0/ 00570005 C 00580004 INFOC = 'INFO2 ' 00590006 INFOC(6:9) = KPNA 00600004 CALL S1BNCV (KPRNO, INFOC, 10, 1) 00610004 CALL S1BNCV (KPOCUR, INFOC, 11, 2) 00620004 C 00630005 C CHECK FOR UNIRAS FILE OR OTHER OUTPUT 00640005 C 00650005 IF (CARD(78:80) .EQ. 'COL') THEN 00660005 INFOC(13:16) = 'UNIR' 00670005 UNIRAS = UNIRAS + 1 00680005 CALL S1BNCV (UNIRAS, INFOC, 17, 2) 00690005 ELSE 00700005 INFOC(13:15) = 'DBG' 00710005 IF (INDEX .LT. 0) THEN 00720005 CALL S1BNCV (-2*INDEX-1, INFOC, 16, 3) 00730005 ELSE 00740005 CALL S1BNCV (2*INDEX, INFOC, 16, 3) 00750005 END IF 00760005 END IF 00770005 INFOC(19:62) = DSNAME 00780004 INFOC(63:65) = CARD(58:60) 00790004 C 00800004 IF (DSNAME(5:5) .EQ. 'T') THEN 00810004 IF (CARD(45:45) .EQ. 'L') INFOC(66:66) = '2' 00820004 IF (CARD(45:45) .EQ. 'M') INFOC(66:66) = '3' 00830004 IF (CARD(45:45) .EQ. 'H') INFOC(66:66) = '4' 00840004 IF (CARD(45:45) .EQ. ' ') INFOC(66:66) = '4' 00850004 END IF 00860004 C 00870004 INFOC(67:67) = CARD(40:40) 00880004 C 00890004 RETURN 00900004 END 00910004