6.10 Printer device control

Format

Specify in the PROCESSING MODE clause and the UNIT CONTROL clause.
Define the following in the FILE-CONTROL of the INPUT-OUTPUT section.

INPUT-OUTPUT SECTION
FILE-CONTROL.
SELECT print-file ASSIGN TO GS-PRTFILE
  ORGANIZATION      IS SEQUENTIAL
  ACCESS MODE       IS SEQUENTIAL
  SYMBOLIC DESTINATION IS "PRT"
  FORMAT            IS PRT-FORMAT
  GROUP             IS PRT-GROUP
  PROCESSING MODE   IS PRT-MODE
  UNIT CONTROL      IS PRT-CONTROL.

Function
The following printer functions are controlled.
- New page of paper
- Output range specification in rectangular domain
- Print cancel
- New block of column setting partition and new frame of frame partition
- Bottom information setting
The output range specification in the rectangular domain is effective for only a form descriptor (columnize table) and a form descriptor (Labels).
Parameters
- PROCESSING MODE clause:
  Specify "CT".
- UNIT CONTROL clause:
  The printer function to control is specified.
  The values and their meanings are as follows.
  PAGE : New page of paper.
  PRCT : The range of the output in the rectangular domain is specified.
  CAN : The print is canceled.
  BLCK : The new block of the column setting partition is specified. Or, the new frame of the frame partition is specified.
  ULMT : The arrangement of the partition and an extensible bottom position of the partition is set. Either the following is specified for detailed information (last 2 digits of the UNIT CONTROL clause).
  - PT :
    The fixed partition name is specified. It is possible to output to the starting position of a fixed partition. The MEFD_RC_FLD(24) error is displayed when the partition name that does not exist or the floating partition name is specified.
  - LN :
    The relative line position from the head of the form is specified, except for the form descriptor (free frame). The relative line position from the head of the frame is specified for the form descriptor (free frame). The bottom that can be output is just before the specified line. It is not possible to specify it for the partition defined in a horizontal frame. In this case, the MEFD_RC_PARA(26) error is displayed. The MEFD_RC_PARA(26) error is displayed when the size of the form descriptor is exceeded or the size of the frame is exceeded.
  - DT :
    The relative dot position (1/1440 inches) from the head of the form is specified except for the form descriptor (free frame). The relative dot position (1/1440 inches) from the head of the frame is specified for the form descriptor (free frame). The bottom that can be output is up to a specified dot position. The MEFD_RC_PARA(26) error is displayed when the size of the form descriptor is exceeded or the size of the frame is exceeded.
  - RS :
    Bottom information set by either PT, LN or DT is released. Except for the form descriptor (free frame), it moves to the bottom where the height of the form descriptor can output the partition.
    The bottom (right edge) that can be output is as follows for the form descriptor (free frame) by the direction where the frame is output.
    - Vertical defines the height of the frame for the output.
    - Horizontal defines the width of the frame for the output.
PRCT : Output range specification in rectangular domain
The record used when the output of the partition is controlled by output range specification (PRCT) in the rectangular domain is defined as follows.
```
01  Output control record
    03  Header output information     PIC X(1)
    03  Footer output information     PIC X(1)
    03  FILLER                        PIC X(22)
    03  Print beginning body number   PIC X(4)
    03  Print end body number         PIC X(4)
```
Header output information
The output of the header is specified by the numerical value (binary).
0 : Output
1 : Control
Footer output information
The output of the footer is specified by the numerical value (binary).
0 : Output
1 : Control
Print beginning body number
The print beginning body number is specified by the character string of the numerical value.
'0001' - '0999' : Print beginning number
'0000' : Specified release
Print end body number
The print end body number is specified by the character string of the numerical value.
'0001' - '0999' : Print end number
'0000' : Specified release
Set a value that is smaller than the print end number for the print beginning number. If the print beginning number is more than the print end number, the each value is considered to be specified release. Anything outside of those values is ignored.
ULMT : Bottom information setting
The record used when the bottom position in which the partition can be output is specified by bottom information setting (ULMT) is shown.
- When the last 2 digits of the UNIT CONTROL clause : "PT"
  Specify it for a bottom position in which the starting position of a fixed partition can be output.
```
01  Bottom information record
    03  Specified partition           PIC X(6)
    03  FILLER                        PIC X(2)
    03  Bottom partition              PIC X(6)
    03  FILLER                        PIC X(2)
```
  Specified partition
  The name of the partition that specifies the bottom position that can be output is specified within six characters.
  Set blank or NULL when six characters cannot be used.
  Bottom partition
  The name of a fixed partition by which the starting position becomes bottom is specified within six characters.
  Set blank or NULL when six characters cannot be used.
- When the last 2 digits of the UNIT CONTROL clause : "LN" or "DT"
  Specify where a bottom position in which the line position or the dot position can be output.
```
01  Bottom information record
    03  Specified partition           PIC X(6)
    03  FILLER                        PIC X(2)
    03  Bottom value                  PIC 9(6)
    03  FILLER                        PIC X(2)
```
  Specified partition
  The name of the partition that specifies the bottom position that can be output is specified within six characters.
  Set blank or NULL when six characters cannot be used.
  Bottom value
  The bottom position is specified by an external decimal number within six digits.
  Set blank or NULL when six characters cannot be used.
- When the last 2 digits of the UNIT CONTROL clause : "RS"
  Specify it with either of "PT", "LN" or "DT" record data format. Only a specified partition is effective. Even if the bottom partition and the bottom value are specified, those values are ignored.

Example

A new page is output after the form descriptor is printed on the form.

MOVE "SAMP"   TO PRT-FORMAT.
MOVE "  "     TO PRT-MODE
MOVE "@ALLF"  TO PRT-GROUP.
WRITE SAMP.
MOVE "CT"     TO PRT-MODE.
MOVE "PAGE"   TO PRT-CONTROL.
WRITE SAMP.

The output range specification in the rectangular domain is specified.

* Output control
MOVE "CT"     TO PRT-MODE
MOVE "PRCT"   TO PRT-CONTROL
MOVE X"00"    TO Header output information
MOVE X"01"    TO Footer output information.
MOVE "0002"   TO Print beginning body number
MOVE "0004"   TO Print end body number
WRITE Output control record.

A fixed partition is specified for arrangement of the partition and an extensible bottom position.

* Bottom information setting (Bottom partition specification)
MOVE "CT"     TO PRT-MODE
MOVE "ULMTPT" TO PRT-CONTROL
MOVE "DE"     TO Specified partition.
MOVE "PF"     TO Bottom partition.
WRITE Bottom information record.

* "PF" is specified for a bottom partition. It is possible to output "DE" just before "PF".

The line position is specified for arrangement of the partition and an extensible bottom position.

* Bottom information setting (Line position specification)
MOVE "CT"     TO PRT-MODE
MOVE "ULMTLN" TO PRT-CONTROL
MOVE "DE"     TO Specified partition.
MOVE 51       TO Bottom value.
WRITE Bottom information record.

* 51 is specified for a bottom value. It is possible to output "DE" to the 50 th line.

Diagnosis
Return code is stored in the FILE STATUS clause.
NOTE
- The output range specification in the rectangular domain is effective in the form descriptor(Labels) and the form descriptor (columnize table). Specifying the output range is not allowed when specifying it in other form descriptor.
- Set the output range specification in the rectangular domain earlier than the output of the form descriptor that will become an object.
- It adjusts to all the form descriptors where specification is output until releasing it when the output range specification in the rectangular domain is specified.
- When new block of the column setting partition is specified excluding the column setting partition form, it operates as new page of the paper.