         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
            USER'(8) := 0;                                     <<E1500>>01276000
            ACCT'(8) := 0;                                     <<E1500>>01311000
MOVE L'INPUT(0):= %20040;                                      <<E1500>>02126000
MOVE L'INPUT(1):= %20040;                                      <<E1500>>02127000
MOVE L'INPUT(2):= %20040;                                      <<E1500>>02128000
                                                               <<E1500>>02129000
   IF ERROR THEN  << PRINT ABORT MESSAGE >>                    <<E1500>>02156000
      GENMSG(ASSMSGSET,25); << ABORT JOB MSG >>                <<E1500>>02157000
                                                               <<E1500>>02158000
   IF INPUT="EXIT  " OR INPUT="exit  " THEN GO TO EOF;         <<E1500>>02315000
   IF INPUT="E " OR INPUT="e " THEN GO TO EOF;                 <<E1500>>02316000
      GO TO EOF;                                               <<E1500>>02355000
      GO TO EOF;                                               <<E1500>>02395000
      GO TO EOF;                                               <<E1500>>02425000
      GO TO EOF;                                               <<E1500>>02535000
      IF NOT VERIFYNAME THEN GO TO EOF; <<BAD USERNAME>>       <<E1500>>02675000
         GO TO EOF;                                            <<E1500>>02705000
      IF NOT VERIFYNAME THEN GO TO EOF; <<INVALID ACCT NAME>>  <<E1500>>02735000
         GO TO EOF;                                            <<E1500>>02765000
