Fabricar: HP
Tamaño del archivo: 717.19 kb
Nombre del archivo:
|
Otros manuales para este modelo:
Resumen del manual
Examples
Pathsend Requester Example
sbuf ':=' "TRANSACTION ENDED NORMALLY" -> @sp;
CALL WRITE (error^log^fnum, buf, @sp '-' @sbuf);
IF <
THEN ! print an error msg and abend
CALL IO^error (msg^log^fnum);
END; ! PROC end^the^tmf^transaction
?PAGE "RETURN AN ENTRY FROM THE ASSIGN TABLE"
! This procedure is passed a logical ASSIGN name and searchs the
! ASSIGN table for the ASSIGN name. If found it returns the address
! of the table entry, otherwise false.
INT PROC get^assign (logical^name, len);
STR .logical^name;
INT len;
BEGIN
INT i := 0;
INT .assign^ (ci^assign);
WHILE i < assign^count DO
BEGIN
@assign^ := @assign^table[i];
IF assign^.logicalunit.filename = logical^name FOR len
AND assign^.logicalunit.filenamelen = len
THEN ! found matching ASSIGN
RETURN @assign^;
i := i + 1;
END;
RETURN false;
END; ! INT PROC get^assign
NonStop TS/MP Pathsend and Server Programming Manual – 132500
B -24
...Otros modelos de este manual:
Computadoras - HP NonStop G-Series (717.19 kb)
Computadoras - HP NonStop L-Series (717.19 kb)