Spooler Plus Programmer's Guide

Sample Print Process
Spooler Plus Programmer’s Guide—522293-003
A-7
ptr[20] := ptr[80] := "*";
ptr[30] ':=' "DATE: ";
CALL NUMOUT ( ptr[37], time^array[2], 10, 2 );
ptr[40] ':=' months [3 * ( time^array[1] - 1 )] FOR 3;
CALL NUMOUT ( ptr[44], time^array, 10, 2 );
error := writefile (dev^fnum,header[2].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 5 THEN
BEGIN
@ptr := @header[3].line '<<' 1;
ptr[20] := ptr[80] := "*";
error := writefile (dev^fnum,header[3].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 6 THEN
BEGIN
@ptr := @header[4].line '<<' 1;
ptr[20] := ptr[80] := "*";
ptr[30] ':=' "TIME: ";
ptr[39] := ptr[42] := ":";
CALL NUMOUT ( ptr[37], time^array[3], 10, 2 );
CALL NUMOUT ( ptr[40], time^array[4], 10, 2 );
CALL NUMOUT ( ptr[43], time^array[5], 10, 2 );
error := writefile (dev^fnum,header[4].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 7 THEN
BEGIN
@ptr := @header[5].line '<<' 1;
ptr[20] := ptr[80] := "*";
error := writefile (dev^fnum,header[5].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 8 THEN
BEGIN
@ptr := @header[6].line '<<' 1;
ptr[20] := ptr[80] := "*";
ptr[30] ':=' "JOB NUMBER: ";
CALL NUMOUT ( ptr[43], dev.job^num, 10, 2 );
error := writefile (dev^fnum,header[6].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 9 THEN
BEGIN
@ptr := @header[7].line '<<' 1;
ptr[20] := ptr[80] := "*";
error := writefile (dev^fnum,header[7].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;