GDSX Manual

Service Routines
Extended General Device Support (GDSX) Manual–134303
8-58
Q^CP[X]
indicating whether GDSX is running as a process pair. The value of status is one of
the following:
If Q^CP[X] is called from a user exit other than USER^BACKUP and the
checkpoint buffer overflows, the backup process is terminated and 0 is returned in
status.
datai input
is a pointer containing a word address where data copying should begin.
bytesi input
INT:value
is the length in words of the data to be copied, starting at datai.
Consideration
Q^CPX may be used to queue an area in extended memory. However, USCODE seldom
needs to use this procedure because ^CHECKPOINT (2) checkpoints all extended
memory acquired.
Examples
1. See the description of the USER^BACKUP exit for an example showing how user
global checkpointing can be done when a GDSX process pair is initialized.
2. This example checkpoints a record read from a disk file:
.
BLOCK USER^PRIVATE;
INT FILE^NUM;
INT AREA[0:11];
STRUCT SEM^TEMPLATE(*);
BEGIN
INT OWNER;
INT HEAD;
INT TAIL;
END;
STRUCT SEM(SEM^TEMPLATE);
END BLOCK;
.
.
PROC DEVICE^HANDLER( );
BEGIN
0 GDSX does not have a backup process
1 GDSX has a backup process
INT:ref (Use with Q^CP.)
INT .EXT:ref (Use with Q^CPX.)