Picture Characters

<picture character>

──┬─ A ─┬──────────────────────────────────────────────────────────────┤
  ├─ D ─┤
  ├─ E ─┤
  ├─ F ─┤
  ├─ I ─┤
  ├─ X ─┤
  ├─ Z ─┤
  └─ 9 ─┘

The picture characters are described in the following table. If a repeat part value is given with the picture symbol, then the unsigned integer in the repeat part value specifies the number of characters to be skipped, inserted, or transferred from the source to the destination. If no repeat part value is given, one character is skipped, inserted, or transferred from the source to the destination.

Character

Action

A

The specified number of characters are transferred from the source to the destination. If the destination is hexadecimal, only the numeric fields of the characters are transferred.

D

If the value of FLTF is 0, the specified number of zero characters are inserted into the destination. If FLTF is 1, the specified number of nonzero characters are inserted into the destination. If the destination is hexadecimal, only the numeric field of the zero or nonzero character is inserted.

E

For the specified number of source characters, the following action takes place. While the value of FLTF is 0 and the numeric field of the source character is 4"0", the zero character is inserted into the destination. If the destination is hexadecimal, only the numeric field of the zero character is inserted. If the value of FLTF is 0 and the numeric field of the source character is not equal to 4"0", several things happen. If EXTF is 0, the plus character is inserted into the destination. If EXTF is 1, the minus character is inserted into the destination. If the destination is hexadecimal, only the numeric field of the plus or minus character is inserted. The numeric field of the source character is transferred to the destination, with a zone field of 4"F" if the destination is EBCDIC. FLTF is assigned a value of 1. While FLTF is 1, the numeric field of the source character is transferred to the destination, with a zone field of 4"F" if the destination is EBCDIC.

F

For the specified number of source characters, the following action takes place. While the value of FLTF is 0 and the numeric field of the source character is 4"0", the zero character is inserted into the destination. If the destination is hexadecimal, only the numeric field of the zero character is inserted. If FLTF is 0 and the numeric field of the source character is not equal to 4"0", several things can happen. The dollar character is inserted into the destination. If the destination is hexadecimal, only the numeric field of the dollar character is inserted. The numeric field of the source character is transferred to the destination, with a zone field of 4"F" if the destination is EBCDIC. FLTF is assigned a value of 1. While FLTF is 1, the numeric field of the source character is transferred to the destination, with a zone field of 4"F" if the destination is EBCDIC.

I

The specified number of insert characters are inserted into the destination. If the destination is hexadecimal, only the numeric field of the insert character is inserted.

X

The destination pointer is skipped forward (to the right) the specified number of characters.

Z

For the specified number of source characters, the following action takes place. While the value of FLTF is 0 and the numeric field of the source character is 4"0", the zero character is inserted into the destination. If the destination is hexadecimal, only the numeric field of the zero character is inserted. If the value of FLTF is 0 and the numeric field of the source character is not equal to 4"0", the numeric field of the source character is transferred to the destination, with a zone field of 4"F" if the destination is EBCDIC. FLTF is assigned a value of 1. While FLTF is 1, the numeric field of the source character is transferred to the destination, with a zone field of 4"F" if the destination is EBCDIC.

9

If the source and destination are both EBCDIC, the numeric fields of the specified number of characters are transferred from the source to the destination with zone fields of 4"F". If the source and destination are both hexadecimal, the specified number of characters are transferred from the source to the destination.

Prev  Up  Next
Single Picture Characters  Home  Examples of PICTURE Declarations