Greetings,

If you want to process files dropped into a group in COBOL, you can try this
tactic:

SELECT DIRLIST ASSIGN TO "DIRLIST.PUB"
SELECT TARGET ASSIGN USING DIRLIST-RECORD
   ...
FD  DIRLIST.
01  DIRLIST-RECORD PIC X(80).
   ...
MOVE "N" TO QUIT-SWITCH
PERFORM UNTIL QUIT-SWITCH NOT = "N"
    CALL "SYSTEM" USING "PURGE DIRLIST.PUB"
    CALL "SYSTEM" USING "FILE DIRLIST.PUB;REC=-80,,F,ASCII"
    CALL "SYSTEM" USING "LISTF @.group,6;*DIRLIST.PUB"
    OPEN INPUT DIRLIST
    MOVE "N" TO A-SWITCH
    PERFORM UNTIL A-SWITCH NOT = "N"
        READ DIRLIST
        AT END MOVE "Y" TO A-SWITCH
        NOT AT END
                IF DIRLIST-RECORD = "termination flag"
                MOVE "Y" TO QUIT-SWITCH
            ELSE
                OPEN INPUT TARGET
                PERFORM PROCESS-TARGET-FILE
                CLOSE TARGET
            END-IF
        END-READ
    END-PERFORM
    CLOSE DIRLIST
    sleep a while
END-PERFORM

Hope this helps

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *