         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$EDIT VOID=16525000                                            <<09363>>16525000
      IF NOT OUT AND (G'DCT'INDEX < 0) THEN                    <<09363>>16530000
         ERROR (SHOWFINPTDEVCLS)  << No dev class on SHOWIN >> <<09363>>16535000
      ELSE IF G'ACCESS'TYPE <= 7 THEN                          <<09363>>16540000
         ERROR (SHOWFDACCESSDEV)   << Can't SHOWxx on discs >> <<09363>>16545000
      ELSE IF DSDEVICE (G'DCT'INDEX) THEN                      <<09363>>16550000
         ERROR (SHOWFDSDEVICE)     << Nor on DS devices.    >> <<09363>>16555000
      ELSE                                                     <<09363>>16560000
         BEGIN   << Looks fairly good.                      >> <<09363>>16565000
         DEVFLAG := TRUE;                                      <<09363>>16570000
         IF <> THEN                                            <<09363>>16575000
            BEGIN   << DEV= already specified.              >> <<09363>>16580000
            PARM := PARMS (PNUM-1);   << Back up for "^"    >> <<09363>>16585000
            ERROR (-SHOWFRDNTDEV);                             <<09363>>16590000
            PARM := PARMS(PNUM);      << As we were.        >> <<09363>>16595000
            END;    << DEV= already specified.              >> <<09363>>16600000
         DEV := G'DCT'INDEX;   << Any new DEV replaces old. >> <<09363>>16605000
         END;    << Looks fairly good.                      >> <<09363>>16610000
      END;    << Some string specified.                     >> <<09363>>16613000
   END;    << Have "=" sign.                                >> <<09363>>16630000
   LOGIMAGE (M'STARTSPOOL, PARMSP);   << Log oprat command. >> <<L9176>>44740000
