ACCEPT SYSTEM-INFORMATION FROM SYSTEM-INFO.
           IF STATION-ID (1:2) = "at"
           STRING
            "@[DISPLAY]:c:\\apps\\PIDLIST-" DELIMITED BY SIZE    
              STATION-ID DELIMITED BY " "
               ".csv" DELIMITED BY SIZE
                  INTO WS-TASK-LIST-CSV-FILE-NAME
           else
             STRING
            "c:\\apps\\PIDLIST-" DELIMITED BY SIZE    
              STATION-ID DELIMITED BY " "
               ".csv" DELIMITED BY SIZE
                  INTO WS-TASK-LIST-CSV-FILE-NAME
           end-if.
           ACCEPT SYSTEM-INFORMATION FROM SYSTEM-INFO.
           STRING "tasklist.exe /FO CSV /NH | "
                 delimited by size
               "findstr wrun32.exe > "
               DELIMITED BY SIZE
                WS-TASK-LIST-CSV-FILE-NAME DELIMITED BY " "           
                 INTO CMD-LINE.  
           CALL "C$SYSTEM" USING CMD-LINE, 255
               giving EXIT-STATUS.