CTITLECRADSN -- OUTPUT RECORDS TO DATASET NAME FILE FOR OUTPUT FILES 00010001 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR STU NELAN 00020000 CA DESIGNER STU NELAN 00030000 CA LANGUAGE FORTRAN 00040000 CA SYSTEM IBM 00050000 CA WRITTEN 08-27-87 00060000 C REVISED MM-DD-YY III. ... 00070000 CA 00080000 CA 00090000 CA CALL CRADSN (ACCTCD, LINECD, ODSN) 00100000 CA INPUT ACCTCD = ACCOUNT CARD A80 00110000 CA INPUT LINECD = LINE CARD A80 00120000 CA INPUT ODSN = OUTPUT DSN NAME A44 00130000 CA 00140000 CA 00150000 CA CRADSN BUILDS AND OUTPUTS AN SMS RECORD FROM CRAGEN FOR 00160000 CA OUTPUT DATA SETS. 00170000 CA 00180000 CA THE OUTPUT RECORD HAS THE FOLLOWING FORMAT: 00190000 CA 00200000 CA CC 1 INPUT/OUTPUT (I:INPUT / O:OUTPUT) 00210000 CA CC 2- 4 USE COUNT (ALWAYS 1 IN THIS PROGRAM) 00220000 CA CC 5- 12 DATE 00230000 CA CC 13- 30 USER NAME 00240000 CA CC 31- 74 DATA SET NAME 00250000 CA CC 75-174 LIST OF LAST 20 PROCESSES 00260000 CA CC 175-180 TSO USERID 00270000 CA CC 181-188 SYSTEM ID 00280000 CA CC 189-208 LINE NAME 00290000 CA CC 209-212 BLOCK COUNT 00300000 CA CC 213-216 BLOCK SIZE 00310000 CA CC 217-220 RETENTION GROUP 00320000 CA CC 221-224 BEGINNING SHOTPT/DP 00330000 CA CC 225-228 ENDING SHOTPT/DP 00340000 CA CC 229-232 LENGTH OF RECS 00350000 CA CC 233-236 PROCESSING SAMPLE INTERVAL 00360000 CA CC 237-240 TRACES PER SHOTPT 00370000 CA CC 241-268 AREA NAME 00380000 CA CC 269-276 JOB NAME (UPDATED BY FOSMS) 00390000 CA CC 277-280 JOB NUMBER (UPDATED BY FOSMS) 00400000 CA CC 281-300 FILLER 00410000 CA 00420000 CAEND 00430000 SUBROUTINE CRADSN (ACCTCD, LINECD, ODSN) 00440000 C 00450000 IMPLICIT INTEGER (A-Z) 00460000 C 00470000 INTEGER USER (6) 00480001 C 00490001 CHARACTER*80 ACCTCD 00500000 CHARACTER*8 DATE 00510001 CHARACTER*8 JCNAME 00520000 CHARACTER*20 JCUSER 00530000 CHARACTER*12 JC64BC 00540000 CHARACTER*80 LINECD 00550000 CHARACTER*44 ODSN 00560000 CHARACTER*8 RTIME 00570000 CHARACTER*300 SMSLIN 00580000 C 00590000 C INITIALIZATION 00600000 C 00610000 SMSLIN(1:300) = ' ' 00620000 C 00630000 C CC 1 INPUT/OUTPUT (I:INPUT / O:OUTPUT) 00640000 C 00650000 SMSLIN(1:1) = 'O' 00660000 C 00670000 C CC 2- 4 USE COUNT (ALWAYS 1 IN THIS PROGRAM) 00680000 C 00690000 SMSLIN(2:4) = '001' 00700000 C 00710000 C CC 5- 12 DATE 00720000 C 00730000 CALL DATIME (DATE, RTIME, TDUMM) 00740000 SMSLIN(5:12) = DATE(1:8) 00750001 C 00760000 C CC 13- 30 USER NAME 00770000 C 00780000 CALL JCTEXT (JCNAME, JCRSTT, JCRSTD, JCUSER, JC64BC) 00790000 SMSLIN(13:30) = JCUSER(1:18) 00800002 C 00810000 C CC 31- 74 DATA SET NAME 00820000 C 00830000 SMSLIN(31:74) = ODSN(1:44) 00840000 C 00850000 C CC 75-174 LIST OF LAST 20 PROCESSES 00860000 C 00870000 SMSLIN(75:83) = 'CRAY NULL' 00880004 C 00890000 C CC 175-180 TSO USERID 00900000 C 00910000 CALL JGPASS (USER) 00920001 IF (USER(5) .NE. 0) CALL XDUMPX 00930001 CALL S1MVCH (USER, 1, SMSLIN, 175, 6) 00940001 C 00950000 C CC 181-188 SYSTEM ID 00960000 C 00970000 SMSLIN(181:184) = 'CRAY' 00980000 C 00990000 C CC 189-208 LINE NAME 01000000 C 01010000 SMSLIN(189:206) = ACCTCD(21:38) 01020000 C 01030000 C CC 209-212 BLOCK COUNT 01040000 C 01050000 CALL S1MVCH (0, 1, SMSLIN, 209, 4) 01060000 C 01070000 C CC 213-216 BLOCK SIZE 01080000 C 01090000 THL = 190 01100000 LCRL = S1CVBN(LINECD, 41, 5) 01110001 LCPI = S1CVBN(LINECD, 51, 5) 01120001 NOSAMP = LCRL / LCPI 01130000 BLKSIZ = 4 * (THL+NOSAMP) 01140000 CALL S1MVCH (BLKSIZ, 1, SMSLIN, 213, 4) 01150000 C 01160000 C CC 217-220 RETENTION GROUP 01170000 C 01180000 CALL S1MVCH (99, 1, SMSLIN, 217, 4) 01190000 C 01200000 C CC 221-224 BEGINNING SHOTPT/DP 01210000 C 01220000 LCBGSP = S1CVBN(LINECD, 11, 5) 01230000 CALL S1MVCH (LCBGSP, 1, SMSLIN, 221, 4) 01240000 C 01250000 C CC 225-228 ENDING SHOTPT/DP 01260000 C 01270000 LCENSP = S1CVBN(LINECD, 16, 5) 01280000 CALL S1MVCH (LCENSP, 1, SMSLIN, 225, 4) 01290001 C 01300000 C CC 229-232 LENGTH OF RECS 01310000 C 01320000 CALL S1MVCH (LCRL, 1, SMSLIN, 229, 4) 01330000 C 01340000 C CC 233-236 PROCESSING SAMPLE INTERVAL 01350000 C 01360000 CALL S1MVCH (LCPI, 1, SMSLIN, 233, 4) 01370000 C 01380000 C CC 237-240 TRACES PER SHOTPT 01390000 C 01400000 LCTPSP = S1CVBN(LINECD, 36, 5) 01410000 CALL S1MVCH (LCTPSP, 1, SMSLIN, 237, 4) 01420000 C 01430000 C CC 241-268 AREA NAME 01440000 C 01450000 SMSLIN(241:268) = ACCTCD(39:66) 01460000 C 01470000 C WRITE (6,8000) SMSLIN(1:80) 01480003 C8000 FORMAT (5X,A80) 01490003 C WRITE (6,8000) SMSLIN(81:160) 01500003 C WRITE (6,8000) SMSLIN(161:240) 01510003 C WRITE (6,8010) SMSLIN(241:300) 01520003 C8010 FORMAT (5X,A60) 01530003 C 01540003 CALL FOSMS (SMSLIN) 01550003 C 01560000 RETURN 01570000 C 01580000 END 01590000