         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
                                                               << 9312>>06966000
INTEGER PROCEDURE GETDEVINFO(DEV'NAME,DEVINFO);                << 9312>>06967000
BYTE ARRAY DEV'NAME;                                           << 9312>>06968000
INTEGER ARRAY DEVINFO;                                         << 9312>>06969000
OPTION EXTERNAL;                                               << 9312>>06970000
LOGICAL ARRAY FEQ'ENTRY(0:17);                                 << 9312>>18115200
BYTE ARRAY B'ENTRY(*)=FEQ'ENTRY;                               << 9312>>18115300
BYTE ARRAY DEV'NAME(0:7);                                      << 9312>>18115400
INTEGER ARRAY DEVINFO(0:12);                                   << 9312>>18115500
INTEGER ENTRY'SIZE;                                            << 9312>>18115600
EQUATE NODEVICETAPE = 664,                                     << 9312>>18115700
       JDTFULL = 656;                                          << 9312>>18115800
                                                               << 9312>>18160100
LOGICAL SUBROUTINE IMPLICIT'FILE'EQ;                           << 9312>>18160200
<< this subroutine attempts to do an implicit file equation >> << 9312>>18160300
<< for file DUMPTAPE. If device TAPE is present, then the   >> << 9312>>18160400
<< file is tape file; If not, it tries CTAPE. Else return   >> << 9312>>18160500
BEGIN                                                          << 9312>>18161100
IMPLICIT'FILE'EQ := FALSE;                                     << 9312>>18161200
FEQ'ENTRY := 0;                                                << 9312>>18161300
MOVE FEQ'ENTRY(1) := FEQ'ENTRY, (17);                          << 9312>>18161400
MOVE DEV'NAME := "TAPE    ";                                   << 9312>>18161500
IF (GETDEVINFO(DEV'NAME,DEVINFO)) = 0 THEN                     << 9312>>18161600
   BEGIN                                                       << 9312>>18161700
   FEQ'ENTRY(2).(8:8) := 4;                                    << 9312>>18161800
   MOVE B'ENTRY(6):= "TAPE";                                   << 9312>>18161900
   FEQ'ENTRY(7).(15:1) := 1;                                   << 9312>>18162000
   ENTRY'SIZE := 17;                                           << 9312>>18162100
   GOTO ADD'ENTRY;                                             << 9312>>18162200
   END;                                                        << 9312>>18162300
MOVE DEV'NAME := "CTAPE   ";                                   << 9312>>18162400
IF (GETDEVINFO(DEV'NAME,DEVINFO)) = 0 THEN                     << 9312>>18162500
   BEGIN                                                       << 9312>>18162600
   FEQ'ENTRY(2).(8:8) := 5;                                    << 9312>>18162700
   MOVE B'ENTRY(6):= "CTAPE";                                  << 9312>>18162800
   FEQ'ENTRY(8).(15:1) := 1;                                   << 9312>>18162900
   ENTRY'SIZE := 18;                                           << 9312>>18163000
   GOTO ADD'ENTRY;                                             << 9312>>18163100
   END;                                                        << 9312>>18163200
                                                               << 9312>>18163300
CIERR (ERRNUM:=NODEVICETAPE);                                  << 9312>>18163400
RETURN;                                                        << 9312>>18163500
                                                               << 9312>>18163600
ADD'ENTRY:                                                     << 9312>>18163700
  FEQ'ENTRY.(14:1) := 1;  << pmask: DEV= parm present >>       << 9312>>18163800
  MOVE TEMPBUFF := "DUMPTAPE ";                                << 9312>>18163810
  IF (ADDJTENTRY(TEMPBUFF,BLANK,BLANK,-3,ENTRY'SIZE,FEQ'ENTRY))<< 9312>>18163900
     <> 0 THEN   CIERR(ERRNUM:=JDTFULL);                       << 9312>>18164000
  IMPLICIT'FILE'EQ := TRUE;                                    << 9312>>18164100
                                                                        18164300
END;    << implicit'file'eq subroutine >>                      << 9312>>18164400
                                                               << 9312>>18164500
           << do an implicit one for them. It will be either >><< 9312>>18320000
           << FILE DUMPTAPE;DEV=TAPE or DEV=CTAPE if device  >><< 9312>>18325000
           << TAPE is not configured. If neither are there,  >><< 9312>>18330000
           << we just have to quit                           >><< 9312>>18335000
                                                               << 9312>>18340000
           IF NOT IMPLICIT'FILE'EQ THEN                        << 9312>>18345000
              RETURN;                                          << 9312>>18350000
   IF NUMPARMS > 0 THEN    << if user specified dumpfile >>    << 9302>>18532000
      BEGIN                << and it's not $NULL         >>    << 9302>>18533000
      @FNAME := LPARM;                                         << 9302>>18534000
      IF FNAME <> "$NULL" THEN CHECK'FOR'JOBS;                 << 9302>>18535000
      END             << then check for other running jobs >>  << 9302>>18536000
   ELSE               << no dumpfile specified, check too  >>  << 9302>>18537000
      CHECK'FOR'JOBS;                                          << 9302>>18538000
      <<10>>"PS,",                                             << 9226>>24620000
      IF ERRNUM > 0 THEN                                       << 9348>>30160000
