32 lines
790 B
COBOL
32 lines
790 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. PTEST04.
|
|
ENVIRONMENT DIVISION.
|
|
* INPUT-OUTPUT SECTION.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 PARM01 PIC X VALUE " ".
|
|
01 G-PARM04.
|
|
05 PARM04 PIC X(3).
|
|
05 FILLER PIC X VALUE LOW-VALUE.
|
|
01 WRES01 PIC S9(4) COMP.
|
|
01 WRES02 PIC S9(9) COMP.
|
|
01 WERES01 PIC 9(4).
|
|
01 WERES02 PIC 9(9).
|
|
|
|
PROCEDURE DIVISION.
|
|
MOVE FUNCTION LENGTH(G-PARM04) TO WERES01.
|
|
DISPLAY "C401:(" WERES01 "):(0004):Length of group".
|
|
|
|
MOVE FUNCTION ORD(PARM01) TO WERES01.
|
|
DISPLAY "C402:(" WERES01 "):(0033):Ord of var space".
|
|
|
|
MOVE FUNCTION ORD("A") TO WERES01.
|
|
DISPLAY "C403:(" WERES01 "):(0066):Ord of lit A".
|
|
|
|
* MOVE FUNCTION CHAR(67) TO PARM01.
|
|
* DISPLAY "C404:(" PARM01 "):(B):Char of lit 67".
|
|
STOP RUN.
|
|
|