Guardian Programmer's Guide

Table Of Contents
Mixed Data Model Programming
Guardian Programmer’s Guide 421922-014
A - 9
Examples
LITERAL POOLSIZE = 1024F * 1024F * 1024F;
CALL INITIALIZER( !rucb!,
!passthru!,
START_IT );
OPEN( CI_STARTUP.OUTFILE.VOLUME, FNO, %4000, 1 );
IF <> THEN
ABEND;
ERR := SEGMENT_ALLOCATE64_( 1
, POOLSIZE
, ! Filename : length
, DETAIL
, ! pin
, ! segment_type (default)
, POOLADDR );
IF ERR <> SEGMENT_OK THEN
ABEND;
ERROR := POOL64_DEFINE_( POOLADDR, POOLSIZE, POOL64DEFAULT );
IF ERROR <> POOL64_OK THEN
ABEND;
@PTR := POOL64_GET_( POOLPTR, 100F, ERROR );
IF ERROR <> 0d THEN
ABEND;
PTR ':=' "This data is in a 64-bit segment" -> @PTR1;
FILE_WRITE64_( FNO, PTR, $DBL( @PTR1 - @PTR ) );
END;