*COMDECK ARGERR 
      DEF A$DUFERR#1#;       # DUPLICATE FILE NAME                     #
      DEF A$DUPERR#2#;       # PARAMETER SPECIFIED TWICE               #
      DEF A$FMERR#3#;        # PARAMETER FORMAT ERROR                  #
      DEF A$ILLERR#4#;       # ILLEGAL PARAMETER                       #
      DEF A$ILFERR#5#;       # ILLEGAL FILE NAME                       #
  
      COMMON ARGERR;
        BEGIN 
        ARRAY ARGER[1:A$ILFERR] S(3); 
          BEGIN 
          ITEM ARGM0 C(0,0,28) =[ 
                                "  DUPLICATE FILE NAME",
                                "  PARAMETER SPECIFIED TWICE",
                                "  PARAMETER FORMAT ERROR", 
                                "  ILLEGAL PARAMETER",
                                "  ILLEGAL FILE NAME" 
                                ];
          ITEM ARGM1 U(2,48,12)=[A$ILFERR(0)];
          END 
        END 
