TARGET_TASK: PROCEDURE;     /* <co>(1) */

    DECLARE (INFILE,OUTFILE) FILE;    /* Files */
    DECLARE 1 LOG_MESSAGE,            /* Structure to read in messages */
              2 STATUS FIXED BIN(31),
              2 TEXT CHARACTER(40) VARYING;
    DECLARE MESSAGE CHARACTER(80);    /* Variable to convert message */

    PUT STRING(MESSAGE) EDIT(' ') (A(80));

    ON UNDEFINEDFILE(INFILE) GOTO FILE_ERROR;  /* Network errors */    /* <co>(2) */

    ON ENDFILE(INFILE) GOTO FINISH;     /* Normal completion */     /* <co>(3) */

    OPEN FILE (INFILE) RECORD SEQUENTIAL INPUT
            TITLE ('SYS$NET');      /* Open SYS$NET */    /* <co>(4) */
    OPEN FILE(OUTFILE) RECORD SEQUENTIAL OUTPUT
            TITLE('TASK.DAT');      /* Open output log file */

    LOOP:                                        /* <co>(5) */
            READ FILE(INFILE) INTO (LOG_MESSAGE);
            PUT STRING(MESSAGE) EDIT(STATUS,TEXT) (F(6),X,A);
            WRITE FILE(OUTFILE) FROM (MESSAGE);
            GOTO LOOP;
    FINISH:
            CLOSE FILE(INFILE);
            CLOSE FILE(OUTFILE);
            RETURN;
    FILE_ERROR:
            PUT SKIP LIST('Input file error',ONCODE());
            RETURN;
    END;