HP Pascal/iX Programmer's Guide (31502-90023)

9- 9
- PAC of n characters - PIC X( n ) (8 bits). -
---------------------------------------------------------------------------
- Pointer - Not available. -
---------------------------------------------------------------------------
- Procedure - Not available. -
---------------------------------------------------------------------------
- Procedure parameter or variable - Not available. -
---------------------------------------------------------------------------
- Real - Not available. -
---------------------------------------------------------------------------
- Record - Build equivalent record. -
---------------------------------------------------------------------------
- Set - Not available. -
---------------------------------------------------------------------------
| Shortint | Any one of the following: |
| | (1) PIC S9 to S9(4) |
| | (2) LEVEL 01, 77, or SYNC |
| | without $CONTROL SYNC 16 |
| | (3) COMP or BINARY |
---------------------------------------------------------------------------
- String - Not available. -
---------------------------------------------------------------------------
- String[ n ] - Build equivalent record. -
---------------------------------------------------------------------------
- VAR parameter - Default. -
---------------------------------------------------------------------------
Example
The Pascal program Pascal_COBOL calls the external COBOL II routine
subprog1.
Pascal program:
PROGRAM Pascal_COBOL (input,output);
VAR
int1,
int2,
int3 : integer;
PROCEDURE subprog1 (VAR parm1 : integer;
VAR parm2 : integer;
VAR parm3 : integer); EXTERNAL COBOL;
BEGIN
int1 := 25000;
int2 := 30000;
subprog1(int1,int2,int3);
writeln(int3);
END.
COBOL routine:
$CONTROL SUBPROGRAM
IDENTIFICATION DIVISION.
PROGRAM-ID. SUBPROG1.
AUTHOR. BP.
DATA DIVISION.
LINKAGE SECTION.
77 IN1 PIC S9(07) COMP.
77 IN2 PIC S9(07) COMP.
77 OUT PIC S9(07) COMP.
PROCEDURE DIVISION USING IN1, IN2, OUT.
PARA-1.
ADD IN1, IN2, GIVING OUT.
EXIT PROGRAM.