By: ksc

ksc — Wed, 10 Feb 2010 21:49:30 +0000

I have a CL and RPG working (returns to the program after the screen times out). But just can not get the COBOL to work. All of the code we want this to work in is COBOL. The program displays the screen but never times out in the read statement. I have the INVITE in the DDS

       File-Control.

           select screenFile
               assign to workstation-POCTOSCS5-si
               organization is transaction
               access mode is dynamic
               relative key is subf1-pos
               file status is screenFileStatus
               control-area is ds-Control-Area.

       Data Division.

       File Section.

       fd  screenFile.
       01  screenRec.
           05  filler               pic x(2500).

           open i-o screenFile
           .
           write screenRec
               from POCSCR5A
               format is "POCSCR5A"
           end-Write
           .

           read screenFile
               into POCSCR5A
               format is "POCSCR5A"
               at end
                   continue
           end-read
           .

Thanks

By: tomliotta

tomliotta — Tue, 09 Feb 2010 22:15:44 +0000

You do it essentially the same way in COBOL as in CL or RPG. AFAIK, the only notable difference is that CL has SNDRCVF and RPG has EXFMT, where COBOL requires a separate WRITE followed by a READ.

What are you having trouble with?

Tom

Comments on: Automaticall Refresh Display (COBOL)

By: ksc

By: tomliotta