LU 6.2 API Application Programmer's Reference Guide (30294-90008)

ManualsBrandsHP ManualsSoftwareMPE/iX 6.0 Operating System

Appendix B 173

Sample Programs

Pascal Program

BalanceMaster2 : balancetype;

CoCodeMaster3 : char;

BalanceMaster3 : balancetype;

CoCodeMaster4 : char;

BalanceMaster4 : balancetype;

CoCodeMaster5 : char;

BalanceMaster5 : balancetype;

Filler : packed array [1..14] of char;

RiskCodeMaster : char);

1: (ErrorCode : pac4type;

ErrorFiller : packed array [1..76] of char);

end;

short_text = packed array [1..8] of char;

text = packed array [1..20] of char;

TPNameType = packed array [1..LENGTH_REMOTE_TPNAME] of char;

TransDataType = record

SocSecTrans : ssnumtype;

LastNameTrans : nametype;

FirstNameTrans: nametype;

MINameTrans : char;

end;

hpe_status = record

case integer of

0 : (all : integer);

1 : (info : shortint;

subsys : shortint);

end;

var

LocalTPName,

SessionType : short_text;

RemoteTPNameASCII : TPNameType;

ResourceID,

TPID,

TraceOn,

ReceiveLength,

WhatReceived,

DeallocateType : shortint;

TransData : TransDataType;

Ready : char;

Quit_SW : boolean;

procedure TPStarted; intrinsic;

procedure TPEnded; intrinsic;

procedure MCAllocate; intrinsic;

procedure MCDeallocate; intrinsic;

procedure MCSendData; intrinsic;

procedure MCRcvAndWait; intrinsic;

procedure CTranslate; intrinsic;

function bin $alias 'binary'$ : shortint; intrinsic;

$PAGE$