How large is the record area defined for Terminal-file? Original message: ------------------------------ date: Tue, 14 Jun 2005 17:26:08 -0400 from: Daniel Mielke <DMielke@xxxxxxx> subject: [COBOL400-L] read TERMINAL-FILE into a temporary area Hi all, Why is it that when the read command below is executed, the temporary area "ERESP-COMMAND-HOLD-I" is not populated? Immediately preceding the read command, a write command is executed to the same file with the same format. Any ideas? +000001* OUTPUT FORMAT:ERESPCMD FROM FILE ERESP OF LIBRARY UDPGMLIBA ERESPCMD +000002* ERESPCMD 344 +000003 05 ERESPCMD-O. ERESPCMD 345 +000004 06 LISTSTATUS PIC X(6). ERESPCMD +000005* List scroll status ERESPCMD 346 003661 03 ERESP-COMMAND-HOLD-I. 05/06/08 003662 copy DD-ERESPCMD-I of ERESP. 05/06/10 +000001* INPUT FORMAT:ERESPCMD FROM FILE ERESP OF LIBRARY UDPGMLIBA ERESPCMD +000002* ERESPCMD 347 +000003 05 ERESPCMD-I. ERESPCMD 348 +000004 06 CMDINPUT PIC X(10). ERESPCMD +000005* Command input line ERESPCMD READ TERMINAL-FILE into ERESP-COMMAND-HOLD-I FORMAT IS "ERESPCMD" indicators are in-control end-read. BUY. HOLD. AND PROSPER Daniel Mielke Business Systems Analyst AIC Limited 1-888-710-4242 x4614 dmielke@xxxxxxx <mailto:dmielke@xxxxxxx> www.aic.com <http://www.aic.com> Man darf nur die Tasten zur richtigen Zeit treffen, so spielt das Instrument von selber. Johann Sebastian Bach (1685-1750)
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.