how to do a line break while sending the data for Printing

erhema · New User Joined: 07 Oct 2008 Posts: 23 Location: Chennai

HI,

I have a requirement to Print my IMS DC screen. We have an existing Production program with all the CBLTDLI calls ( CHNG call and ISRT call for Printing). Iam calling this program from my program. I have send the PRint data (80 *24) MSG-PRINT-DATA to the Production program.

Am doing a soft(dummy print), which will print the data to an excel sheet in a share folder. Iam getting the PRINT result in a single line in excel sheet in stead of formatted way in 24 lines.

I have defined

01 WS-PAGE-PRINT.
05 WS-LINE PIC X(80) OCCURS 24 TIMES.

and have moved each line screen data to WS-LINE(x) and again from WS-PAGE-PRINT to MSG-PRINT-DATA in my program.

Can anyone PLease let me know how can i send the print data in such a way that the print happens in 24 lines instead of single line.

Thanks
Hema

erhema · New User Joined: 07 Oct 2008 Posts: 23 Location: Chennai

Hi All,

I did some more searching and found that X'15' is the value for Line feed for IMS.

I have assinged X'15' for the 80th character of each line before sending for printing, and now am getting the output in 24 lines with apporpriate line break.

Earlier i was searching for LIne break for cobol and ended up with X'0A' which doesnt work and was adding some junks to the printed IMS output.

Thanks
Hema

dick scherrer · Posted: Wed Mar 02, 2011 11:17 am

Good to hear this is working - thank you for posting the resolution

d