CTITLECSSDAD -- ROUTINE TO SET UP ADDRESS OF PROC SUBROUTINE. 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR RANDY PROBST 00020000 CA DESIGNER RANDY PROBST 00030000 CA LANGUAGE VS FORTRAN 00040000 CA SYSTEM IBM ONLY 00050001 CA WRITTEN 11-02-87 00060000 CA REVISED 03-22-90 RDK ADD ORDR. 00070000 CA REVISED 02-01-91 ESN ADD PHAS AND TRAK. 00080000 CA 00090000 CA CALL CSSDAD (PROCN, KPA, &STMT) 00100000 CA 00110000 CA IN/OUT ARGUMENT TYPE DESCRIPTION 00120000 CA 00130000 CA IN PROCN C4 SUBROUTINE NAME 00140000 CA OUT KPA I4 ADDRESS OF SUBROUTINE FOR CSCALL 00150000 CA OUT &STMT ERROR RETURN IF PROCESS IS NOT FOUND 00160000 CA 00170000 CA THIS SUBROUTINE IS RESPONSIBLE FOR SETTING UP THE APPROPRIATE 00180000 CA ADDRESS FOR USE BY CSCALL TO CALL THE PROC. 00190000 CA 00200000 C EJECT 00210000 C 00220000 SUBROUTINE CSSDAD (PROCN, KPA, *) 00230000 C 00240000 IMPLICIT INTEGER (A-Z) 00250000 C 00260000 CHARACTER*4 PROCN 00270000 INTEGER KPA 00280000 INTEGER LOCSD 00290000 C 00300000 EXTERNAL SDAGCS 00310000 EXTERNAL SDBRAN 00320000 EXTERNAL SDCNAX 00330000 EXTERNAL SDCNAY 00340000 EXTERNAL SDCORR 00350000 EXTERNAL SDCOST 00360000 EXTERNAL SDCRDA 00370000 EXTERNAL SDCSTK 00380000 EXTERNAL SDCVAN 00390000 EXTERNAL SDDCNX 00400000 EXTERNAL SDDCON 00410000 EXTERNAL SDDGEN 00420000 EXTERNAL SDEDIT 00430000 EXTERNAL SDEQUL 00440000 EXTERNAL SDFANF 00450000 EXTERNAL SDFLTR 00460000 EXTERNAL SDFRAN 00470000 EXTERNAL SDFREQ 00480000 EXTERNAL SDGATH 00490000 EXTERNAL SDGDSP 00500000 EXTERNAL SDGMAP 00510000 EXTERNAL SDHDMP 00520000 EXTERNAL SDIDCN 00530000 EXTERNAL SDMERJ 00540000 EXTERNAL SDMUTE 00550000 EXTERNAL SDNMOC 00560000 EXTERNAL SDNODE 00570000 EXTERNAL SDOPAP 00580000 EXTERNAL SDORDR 00590000 EXTERNAL SDPEND 00600000 EXTERNAL SDPHAS 00610000 EXTERNAL SDQCMP 00620000 EXTERNAL SDRAMS 00630000 EXTERNAL SDREAD 00640000 EXTERNAL SDRMOD 00650000 EXTERNAL SDSCDA 00660000 EXTERNAL SDSCDB 00670000 EXTERNAL SDSCDC 00680000 EXTERNAL SDSELT 00690000 EXTERNAL SDSLOG 00700000 EXTERNAL SDSMIG 00710000 EXTERNAL SDSPEC 00720000 EXTERNAL SDSPEW 00730000 EXTERNAL SDSTAK 00740000 EXTERNAL SDSTAP 00750000 EXTERNAL SDSTAT 00760000 EXTERNAL SDSTKW 00770000 EXTERNAL SDSWAT 00780000 EXTERNAL SDTRAC 00790000 EXTERNAL SDTRAK 00800000 EXTERNAL SDTRCS 00810000 EXTERNAL SDTSUM 00820000 EXTERNAL SDVELA 00830000 EXTERNAL SDVELD 00840000 EXTERNAL SDVSPA 00850000 EXTERNAL SDVSPB 00860000 EXTERNAL SDVSPC 00870000 EXTERNAL SDVSPD 00880000 EXTERNAL SDVSPE 00890000 EXTERNAL SDVSPF 00900000 EXTERNAL SDVSPG 00910000 EXTERNAL SDVSUM 00920000 EXTERNAL SDWRIT 00930000 EXTERNAL SDWRPF 00940000 C 00950000 IF (PROCN .EQ. 'AGCS') THEN 00960000 LOCSD = LOC (SDAGCS) 00970000 CALL USSADR (KPA, SDAGCS, LOCSD) 00980000 GO TO 200 00990000 END IF 01000000 C 01010000 IF (PROCN .EQ. 'AMPS') THEN 01020000 LOCSD = LOC (SDAMPS) 01030000 CALL USSADR (KPA, SDAMPS, LOCSD) 01040000 GO TO 200 01050000 END IF 01060000 C 01070000 IF (PROCN .EQ. 'BRAN') THEN 01080000 LOCSD = LOC (SDBRAN) 01090000 CALL USSADR (KPA, SDBRAN, LOCSD) 01100000 GO TO 200 01110000 END IF 01120000 C 01130000 IF (PROCN .EQ. 'CNAX') THEN 01140000 LOCSD = LOC (SDCNAX) 01150000 CALL USSADR (KPA, SDCNAX, LOCSD) 01160000 GO TO 200 01170000 END IF 01180000 C 01190000 IF (PROCN .EQ. 'CNAY') THEN 01200000 LOCSD = LOC (SDCNAY) 01210000 CALL USSADR (KPA, SDCNAY, LOCSD) 01220000 GO TO 200 01230000 END IF 01240000 C 01250000 IF (PROCN .EQ. 'CORR') THEN 01260000 LOCSD = LOC (SDCORR) 01270000 CALL USSADR (KPA, SDCORR, LOCSD) 01280000 GO TO 200 01290000 END IF 01300000 C 01310000 IF (PROCN .EQ. 'COST') THEN 01320000 LOCSD = LOC (SDCOST) 01330000 CALL USSADR (KPA, SDCOST, LOCSD) 01340000 GO TO 200 01350000 END IF 01360000 C 01370000 IF (PROCN .EQ. 'CRDA') THEN 01380000 LOCSD = LOC (SDCRDA) 01390000 CALL USSADR (KPA, SDCRDA, LOCSD) 01400000 GO TO 200 01410000 END IF 01420000 C 01430000 IF (PROCN .EQ. 'CSTK') THEN 01440000 LOCSD = LOC (SDCSTK) 01450000 CALL USSADR (KPA, SDCSTK, LOCSD) 01460000 GO TO 200 01470000 END IF 01480000 C 01490000 IF (PROCN .EQ. 'CVAN') THEN 01500000 LOCSD = LOC (SDCVAN) 01510000 CALL USSADR (KPA, SDCVAN, LOCSD) 01520000 GO TO 200 01530000 END IF 01540000 C 01550000 IF (PROCN .EQ. 'DCNX') THEN 01560000 LOCSD = LOC (SDDCNX) 01570000 CALL USSADR (KPA, SDDCNX, LOCSD) 01580000 GO TO 200 01590000 END IF 01600000 C 01610000 IF (PROCN .EQ. 'DCON') THEN 01620000 LOCSD = LOC (SDDCON) 01630000 CALL USSADR (KPA, SDDCON, LOCSD) 01640000 GO TO 200 01650000 END IF 01660000 C 01670000 IF (PROCN .EQ. 'DGEN') THEN 01680000 LOCSD = LOC (SDDGEN) 01690000 CALL USSADR (KPA, SDDGEN, LOCSD) 01700000 GO TO 200 01710000 END IF 01720000 C 01730000 IF (PROCN .EQ. 'EDIT') THEN 01740000 LOCSD = LOC (SDEDIT) 01750000 CALL USSADR (KPA, SDEDIT, LOCSD) 01760000 GO TO 200 01770000 END IF 01780000 C 01790000 IF (PROCN .EQ. 'EQUL') THEN 01800000 LOCSD = LOC (SDEQUL) 01810000 CALL USSADR (KPA, SDEQUL, LOCSD) 01820000 GO TO 200 01830000 END IF 01840000 C 01850000 IF (PROCN .EQ. 'FANF') THEN 01860000 LOCSD = LOC (SDFANF) 01870000 CALL USSADR (KPA, SDFANF, LOCSD) 01880000 GO TO 200 01890000 END IF 01900000 C 01910000 IF (PROCN .EQ. 'FLTR') THEN 01920000 LOCSD = LOC (SDFLTR) 01930000 CALL USSADR (KPA, SDFLTR, LOCSD) 01940000 GO TO 200 01950000 END IF 01960000 C 01970000 IF (PROCN .EQ. 'FRAN') THEN 01980000 LOCSD = LOC (SDFRAN) 01990000 CALL USSADR (KPA, SDFRAN, LOCSD) 02000000 GO TO 200 02010000 END IF 02020000 C 02030000 IF (PROCN .EQ. 'FREQ') THEN 02040000 LOCSD = LOC (SDFREQ) 02050000 CALL USSADR (KPA, SDFREQ, LOCSD) 02060000 GO TO 200 02070000 END IF 02080000 C 02090000 IF (PROCN .EQ. 'GATH') THEN 02100000 LOCSD = LOC (SDGATH) 02110000 CALL USSADR (KPA, SDGATH, LOCSD) 02120000 GO TO 200 02130000 END IF 02140000 C 02150000 IF (PROCN .EQ. 'GDSP') THEN 02160000 LOCSD = LOC (SDGDSP) 02170000 CALL USSADR (KPA, SDGDSP, LOCSD) 02180000 GO TO 200 02190000 END IF 02200000 C 02210000 IF (PROCN .EQ. 'GMAP') THEN 02220000 LOCSD = LOC (SDGMAP) 02230000 CALL USSADR (KPA, SDGMAP, LOCSD) 02240000 GO TO 200 02250000 END IF 02260000 C 02270000 IF (PROCN .EQ. 'HDMP') THEN 02280000 LOCSD = LOC (SDHDMP) 02290000 CALL USSADR (KPA, SDHDMP, LOCSD) 02300000 GO TO 200 02310000 END IF 02320000 C 02330000 IF (PROCN .EQ. 'IDCN') THEN 02340000 LOCSD = LOC (SDIDCN) 02350000 CALL USSADR (KPA, SDIDCN, LOCSD) 02360000 GO TO 200 02370000 END IF 02380000 C 02390000 IF (PROCN .EQ. 'MERJ') THEN 02400000 LOCSD = LOC (SDMERJ) 02410000 CALL USSADR (KPA, SDMERJ, LOCSD) 02420000 GO TO 200 02430000 END IF 02440000 C 02450000 IF (PROCN .EQ. 'MUTE') THEN 02460000 LOCSD = LOC (SDMUTE) 02470000 CALL USSADR (KPA, SDMUTE, LOCSD) 02480000 GO TO 200 02490000 END IF 02500000 C 02510000 IF (PROCN .EQ. 'NMOC') THEN 02520000 LOCSD = LOC (SDNMOC) 02530000 CALL USSADR (KPA, SDNMOC, LOCSD) 02540000 GO TO 200 02550000 END IF 02560000 C 02570000 IF (PROCN .EQ. 'NODE') THEN 02580000 LOCSD = LOC (SDNODE) 02590000 CALL USSADR (KPA, SDNODE, LOCSD) 02600000 GO TO 200 02610000 END IF 02620000 C 02630000 IF (PROCN .EQ. 'OPAP') THEN 02640000 LOCSD = LOC (SDOPAP) 02650000 CALL USSADR (KPA, SDOPAP, LOCSD) 02660000 GO TO 200 02670000 END IF 02680000 C 02690000 IF (PROCN .EQ. 'ORDR') THEN 02700000 LOCSD = LOC (SDORDR) 02710000 CALL USSADR (KPA, SDORDR, LOCSD) 02720000 GO TO 200 02730000 END IF 02740000 C 02750000 IF (PROCN .EQ. 'PEND') THEN 02760000 LOCSD = LOC (SDPEND) 02770000 CALL USSADR (KPA, SDPEND, LOCSD) 02780000 GO TO 200 02790000 END IF 02800000 C 02810000 IF (PROCN .EQ. 'PHAS') THEN 02820000 LOCSD = LOC (SDPHAS) 02830000 CALL USSADR (KPA, SDPHAS, LOCSD) 02840000 GO TO 200 02850000 END IF 02860000 C 02870000 IF (PROCN .EQ. 'QCMP') THEN 02880000 LOCSD = LOC (SDQCMP) 02890000 CALL USSADR (KPA, SDQCMP, LOCSD) 02900000 GO TO 200 02910000 END IF 02920000 C 02930000 IF (PROCN .EQ. 'RAMS') THEN 02940000 LOCSD = LOC (SDRAMS) 02950000 CALL USSADR (KPA, SDRAMS, LOCSD) 02960000 GO TO 200 02970000 END IF 02980000 C 02990000 IF (PROCN .EQ. 'READ') THEN 03000000 LOCSD = LOC (SDREAD) 03010000 CALL USSADR (KPA, SDREAD, LOCSD) 03020000 GO TO 200 03030000 END IF 03040000 C 03050000 IF (PROCN .EQ. 'RMOD') THEN 03060000 LOCSD = LOC (SDRMOD) 03070000 CALL USSADR (KPA, SDRMOD, LOCSD) 03080000 GO TO 200 03090000 END IF 03100000 C 03110000 IF (PROCN .EQ. 'SCDA') THEN 03120000 LOCSD = LOC (SDSCDA) 03130000 CALL USSADR (KPA, SDSCDA, LOCSD) 03140000 GO TO 200 03150000 END IF 03160000 C 03170000 IF (PROCN .EQ. 'SCDB') THEN 03180000 LOCSD = LOC (SDSCDB) 03190000 CALL USSADR (KPA, SDSCDB, LOCSD) 03200000 GO TO 200 03210000 END IF 03220000 C 03230000 IF (PROCN .EQ. 'SCDC') THEN 03240000 LOCSD = LOC (SDSCDC) 03250000 CALL USSADR (KPA, SDSCDC, LOCSD) 03260000 GO TO 200 03270000 END IF 03280000 C 03290000 IF (PROCN .EQ. 'SELT') THEN 03300000 LOCSD = LOC (SDSELT) 03310000 CALL USSADR (KPA, SDSELT, LOCSD) 03320000 GO TO 200 03330000 END IF 03340000 C 03350000 IF (PROCN .EQ. 'SLOG') THEN 03360000 LOCSD = LOC (SDSLOG) 03370000 CALL USSADR (KPA, SDSLOG, LOCSD) 03380000 GO TO 200 03390000 END IF 03400000 C 03410000 IF (PROCN .EQ. 'SMIG') THEN 03420000 LOCSD = LOC (SDSMIG) 03430000 CALL USSADR (KPA, SDSMIG, LOCSD) 03440000 GO TO 200 03450000 END IF 03460000 C 03470000 IF (PROCN .EQ. 'SPEC') THEN 03480000 LOCSD = LOC (SDSPEC) 03490000 CALL USSADR (KPA, SDSPEC, LOCSD) 03500000 GO TO 200 03510000 END IF 03520000 C 03530000 IF (PROCN .EQ. 'SPEW') THEN 03540000 LOCSD = LOC (SDSPEW) 03550000 CALL USSADR (KPA, SDSPEW, LOCSD) 03560000 GO TO 200 03570000 END IF 03580000 C 03590000 IF (PROCN .EQ. 'STAK') THEN 03600000 LOCSD = LOC (SDSTAK) 03610000 CALL USSADR (KPA, SDSTAK, LOCSD) 03620000 GO TO 200 03630000 END IF 03640000 C 03650000 IF (PROCN .EQ. 'STAP') THEN 03660000 LOCSD = LOC (SDSTAP) 03670000 CALL USSADR (KPA, SDSTAP, LOCSD) 03680000 GO TO 200 03690000 END IF 03700000 C 03710000 IF (PROCN .EQ. 'STAT') THEN 03720000 LOCSD = LOC (SDSTAT) 03730000 CALL USSADR (KPA, SDSTAT, LOCSD) 03740000 GO TO 200 03750000 END IF 03760000 C 03770000 IF (PROCN .EQ. 'STKW') THEN 03780000 LOCSD = LOC (SDSTKW) 03790000 CALL USSADR (KPA, SDSTKW, LOCSD) 03800000 GO TO 200 03810000 END IF 03820000 C 03830000 IF (PROCN .EQ. 'SWAT') THEN 03840000 LOCSD = LOC (SDSWAT) 03850000 CALL USSADR (KPA, SDSWAT, LOCSD) 03860000 GO TO 200 03870000 END IF 03880000 C 03890000 IF (PROCN .EQ. 'TRAC') THEN 03900000 LOCSD = LOC (SDTRAC) 03910000 CALL USSADR (KPA, SDTRAC, LOCSD) 03920000 GO TO 200 03930000 END IF 03940000 C 03950000 IF (PROCN .EQ. 'TRAK') THEN 03960000 LOCSD = LOC (SDTRAK) 03970000 CALL USSADR (KPA, SDTRAK, LOCSD) 03980000 GO TO 200 03990000 END IF 04000000 C 04010000 IF (PROCN .EQ. 'TRCS') THEN 04020000 LOCSD = LOC (SDTRCS) 04030000 CALL USSADR (KPA, SDTRCS, LOCSD) 04040000 GO TO 200 04050000 END IF 04060000 C 04070000 IF (PROCN .EQ. 'TSUM') THEN 04080000 LOCSD = LOC (SDTSUM) 04090000 CALL USSADR (KPA, SDTSUM, LOCSD) 04100000 GO TO 200 04110000 END IF 04120000 C 04130000 IF (PROCN .EQ. 'VELA') THEN 04140000 LOCSD = LOC (SDVELA) 04150000 CALL USSADR (KPA, SDVELA, LOCSD) 04160000 GO TO 200 04170000 END IF 04180000 C 04190000 IF (PROCN .EQ. 'VELD') THEN 04200000 LOCSD = LOC (SDVELD) 04210000 CALL USSADR (KPA, SDVELD, LOCSD) 04220000 GO TO 200 04230000 END IF 04240000 C 04250000 IF (PROCN .EQ. 'VSPA') THEN 04260000 LOCSD = LOC (SDVSPA) 04270000 CALL USSADR (KPA, SDVSPA, LOCSD) 04280000 GO TO 200 04290000 END IF 04300000 C 04310000 IF (PROCN .EQ. 'VSPB') THEN 04320000 LOCSD = LOC (SDVSPB) 04330000 CALL USSADR (KPA, SDVSPB, LOCSD) 04340000 GO TO 200 04350000 END IF 04360000 C 04370000 IF (PROCN .EQ. 'VSPC') THEN 04380000 LOCSD = LOC (SDVSPC) 04390000 CALL USSADR (KPA, SDVSPC, LOCSD) 04400000 GO TO 200 04410000 END IF 04420000 C 04430000 IF (PROCN .EQ. 'VSPD') THEN 04440000 LOCSD = LOC (SDVSPD) 04450000 CALL USSADR (KPA, SDVSPD, LOCSD) 04460000 GO TO 200 04470000 END IF 04480000 C 04490000 IF (PROCN .EQ. 'VSPE') THEN 04500000 LOCSD = LOC (SDVSPE) 04510000 CALL USSADR (KPA, SDVSPE, LOCSD) 04520000 GO TO 200 04530000 END IF 04540000 C 04550000 IF (PROCN .EQ. 'VSPF') THEN 04560000 LOCSD = LOC (SDVSPF) 04570000 CALL USSADR (KPA, SDVSPF, LOCSD) 04580000 GO TO 200 04590000 END IF 04600000 C 04610000 IF (PROCN .EQ. 'VSPG') THEN 04620000 LOCSD = LOC (SDVSPG) 04630000 CALL USSADR (KPA, SDVSPG, LOCSD) 04640000 GO TO 200 04650000 END IF 04660000 C 04670000 IF (PROCN .EQ. 'VSUM') THEN 04680000 LOCSD = LOC (SDVSUM) 04690000 CALL USSADR (KPA, SDVSUM, LOCSD) 04700000 GO TO 200 04710000 END IF 04720000 C 04730000 IF (PROCN .EQ. 'WRIT') THEN 04740000 LOCSD = LOC (SDWRIT) 04750000 CALL USSADR (KPA, SDWRIT, LOCSD) 04760000 GO TO 200 04770000 END IF 04780000 C 04790000 IF (PROCN .EQ. 'WRPF') THEN 04800000 LOCSD = LOC (SDWRPF) 04810000 CALL USSADR (KPA, SDWRPF, LOCSD) 04820000 GO TO 200 04830000 END IF 04840000 C 04850000 C PROCESS NOT FOUND, TAKE ERROR RETURN 04860000 C 04870000 RETURN1 04880000 C 04890000 200 RETURN 04900000 END 04910000