Spooler Programmer's Guide

Sample Print Process
Spooler Programmer’s Guide—522287-002
A-8
RETURN;
END;
IF header^index = 10 THEN
BEGIN
@ptr := @header[8].line '<<' 1;
ptr[20] := ptr[80] := "*";
ptr[30] ':=' "LOCATION NAME: " & locations FOR 8;
ptr[54] := ".";
ptr[55] ':=' locations[8] FOR 8;
error := writefile (dev^fnum,header[8].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 11 THEN
BEGIN
@ptr := @header[9].line '<<' 1;
ptr[20] := ptr[80] := "*";
error := writefile (dev^fnum,header[9].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 12 THEN
BEGIN
@ptr := @header[10].line '<<' 1;
ptr[20] := ptr[80] := "*";
ptr[30] ':=' "FORM NAME: " & formnames FOR 8;
error := writefile (dev^fnum,header[10].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 13 THEN
BEGIN
@ptr := @header[11].line '<<' 1;
ptr[20] := ptr[80] := "*";
error := writefile (dev^fnum,header[11].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 14 THEN
BEGIN
@ptr := @header[12].line '<<' 1;
ptr[20] := ptr[80] := "*";
ptr[30] ':=' "REPORT NAME: " & reportnames FOR 16;
error := writefile (dev^fnum,header[12].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;
END;
IF header^index = 15 THEN
BEGIN
@ptr := @header[13].line '<<' 1;
ptr[20] := ptr[80] := "*";
error := writefile (dev^fnum,header[13].line,60);
IF error THEN
CALL ABEND;
header^index := header^index + 1;
RETURN;