How to do RPG-type I/O in Cobol

[Dan <dbcerpg@xxxxxxxxx>]

If someone knows of an online link or some other online FM, please let
me know.

I'm trying to decipher some old Cobol code.  You may have picked up by
now that I'm just getting back into Cobol after ?? years of RPG.

I'm wondering how to do the following RPG-type I/O, all to keyed files:

CHAIN
SETLL
READE

I am looking at the following paragraphs, and trying to distinguish
between them:

  PCPESTCCP-READ.
      MOVE 'N'                 TO INVALID-KEY-SW.
      READ PCPESTCCP
          INVALID KEY
              MOVE 'Y'         TO INVALID-KEY-SW.
      IF  ESTCCP-STATUS > '29'
          MOVE 'PCPESTCCP-READ' TO WS-IO-ERROR-PARA-NAME
          MOVE ESTCCP-STATUS   TO WS-IO-ERROR-STATUS
          PERFORM ABORT-ROUTINE THRU
                  ABORT-ROUTINE-EXIT.
  PCPESTCCP-READ-EXIT.
      EXIT.

  PCPESTCCP-READ-NEXT.
      MOVE 'N'                TO END-OF-FILE-SW.
      READ PCPESTCCP NEXT
          AT  END
              MOVE 'Y'        TO END-OF-FILE-SW.
      IF  ESTCCP-STATUS > '29'
          MOVE 'PCPESTCCP-READ-NEXT'
                              TO WS-IO-ERROR-PARA-NAME
          MOVE ESTCCP-STATUS  TO WS-IO-ERROR-STATUS
          PERFORM ABORT-ROUTINE THRU
                  ABORT-ROUTINE-EXIT.
  PCPESTCCP-READ-NEXT-EXIT.
      EXIT.

  PCPESTCCP-START-NOTLESS.
      MOVE 'N'                TO INVALID-KEY-SW.
      START PCPESTCCP
          KEY NOT < EST-COMPONENT-KEY
          INVALID KEY
              MOVE 'Y'        TO INVALID-KEY-SW.
      IF  ESTCCP-STATUS > '29'
          MOVE 'PCPESTCCP-START-NOTLESS'
                              TO WS-IO-ERROR-PARA-NAME
          MOVE ESTCCP-STATUS  TO WS-IO-ERROR-STATUS
          PERFORM ABORT-ROUTINE THRU
                  ABORT-ROUTINE-EXIT.
  PCPESTCCP-START-NOTLESS-EXIT.
      EXIT.

TIA, Dan

__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com