Migration from COBOL VS to COBOLE

mehts007 · New User Joined: 06 Dec 2005 Posts: 5

Hi,

I am working on a migration project where we are converting all COBOL VS programs to COBOLE. POSITIONING is a statment in COBOLVS that is not supported in COBOLE. The equivalent in COBOLE is 'AFTER ADVANCING XX LINES'. The value of XX depends on what value is passed to the printer carriage return.

Below are a few values that I am aware of.

Carriage return Corresponding COBOLE code
1 AFTER ADVANCING PAGE
' ' AFTER ADVANCING 1 LINE
0 AFTER ADVANCING 2 LINES
- AFTER ADVANCING 3 LINES

Can some one let me know what would be the COBOL code if the value of Carriage return is 'C'?

iknow · Posted: Tue Dec 06, 2005 6:42 am

Hi Mehts007,

Try looking in the programmer's guide here

www-306.ibm.com/software/awdtools/cobol/zos/library/

Hope this helps.

mehts007 · New User Joined: 06 Dec 2005 Posts: 5

Hi Guys !

I got a solution for this. Channel names are defined in the SPECIAL-NAMES section of the program. Like

SPECIAL-NAMES.
C01 IS TO-TOP-OF-PAGE
C12 IS TO-BOTTOM-OF-PAGE.
*

And later in the write statement use

AFTER ADVANCING TO-BOTTOM-OF-PAGE.
or
AFTER ADVANCING TO-TOP-OF-PAGE.

For values of channel names please refer to publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ib6p5mst/APPENDIX1.1.5.12.1?SHELF=&DT=20010115105309

Thanks!
Mehta007