JES Printing layout wrapping

Problem:

In a COBOL program a variable is defined as PIC X(132).

The display of this variable is sent to a JCL SYSOUT.

In the SYSOUT the line is wrapped to 120 characters and not to 132 as it is specified.

This can be seen in the Region(SEP)'s spool.

Resolution:

There are two possible solutions of this problem:

   1. Add a DCB parameter to the JCL's SYSOUT to specify the lenght of 132:

//ADINJCL JOB (ACCOUNTING),'HELLO',NOTIFY=&SYSUID,

//             class="A",MSGCLASS=A,MSGLEVEL=(1,1),COND=(0,LT)

//STEP01   EXEC PGM=PRT2JES1

//SYSOUT    DD SYSOUT=A,DCB=(LRECL=132,BLKSIZE=132)

//SYSPRINT  DD SYSOUT=A

//

  2. Compile the program by using the following compile directive: 

OUTDD(SYSOUT 132 R)

This directive causes DISPLAY and EXHIBIT statements to be written to a specified output file.