OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-79
Writing a File: TAL Programming Example
1441 , BASE );
1442 text_len := text_len + width;
1443 CALL WRITE ( termnum, outbuf, text_len );
1444
1445 tempbuf ':=' " Error ID: " -> @text_ptr;
1446 text_len := @text_ptr - @tempbuf;
1447 width := DNUMOUT ( tempbuf[text_len]
1448 , $DBL ( diag.zdiagelems[i].zerrorid )
1449 , BASE );
1450 text_len := text_len + width;
1451 CALL WRITE ( termnum, outbuf, text_len );
1452
1453 IF (diag.zdiagelems[i].zfurtherdetailsispresent = ZAPS^VAL^PRESENT) THEN
1454 BEGIN
1455 tempbuf ':=' " Details: " -> @text_ptr;
1456 text_len := @text_ptr - @tempbuf;
1457 tempbuf[text_len] ':=' diag.zdiagelems[i].zfurtherdetails.zb
1458 FOR diag.zdiagelems[i].zfurtherdetails.zlen BYTES;
1459 text_len := text_len + diag.zdiagelems[i].zfurtherdetails.zlen;
1460 CALL WRITE ( termnum, outbuf, text_len );
1461 END;
1462 END;
1463
1464 !-----------------------------------------------------------------!
1465 ! Discard the API context information for the association !
1466 ! and stop the program. !
1467 !-----------------------------------------------------------------!
1468
1469 CALL APS_DISCARD_ ( cepi );
1470 tempbuf ':=' "Association discarded" -> @text_ptr;
1471 text_len := @text_ptr - @tempbuf;
1472 CALL WRITE ( termnum, outbuf, text_len );
1473 CALL STOP;
1474
1475 END; --- check_diag ---
1476
1477
1478 ?PAGE "CHECK_STATUS"
1479 !--------------------------------------------------------------------!