To code input-output statements for reports

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

In the Report Painter, specify the FILE-CONTROL SELECT information with the Program Painter IO keyword, using dataname, "literal" or EXTERNAL externalfilename|ddname as follows:

   IO      filename ASSIGN [TO] dataname
                                "literal"
                                EXTERNAL externalfilename|ddname
           ORGANIZATION IS RECORD SEQUENTIAL
                           LINE

Code the program input file description, using the FD keyword and the following format:

   FD      inputfilename
           LABEL RECORDS clause
           BLOCK CONTAINS clause
           [Other applicable COBOL FD clauses]
   01      inputrecordname              PIC clause.

For example:

   FD      INPUT-FILE
           LABEL RECORDS ARE STANDARD
           BLOCK CONTAINS 0 CHARACTERS
   01      PART-STOC-REC              PIC X(80).

Determine the output record size. The default size is 133, the standard mock-up size of 132 plus 1 byte for the carriage control character. To define a different report record size, calculate the size as follows.

Record Size =

Report mock-up size (maximum 247 characters)

+ 1 byte for carriage control

+ 2 bytes for the CODE clause, if used

Code the program output file description, using the FD keyword and the following format. To accept the default record size, omit the RECORD CONTAINS clause.

   FD      outputfilename
           LABEL RECORDS clause
           [RECORD CONTAINS clause]
           [Other applicable COBOL FD clauses]
           REPORT IS|ARE reportname1 [... reportname15]
   01      outputrecordname              PIC clause.

For example: