%external %routine %spec Push Input Stream %alias "3L___push_input_stream" -
                                      (%integer Stream, %record(SCB Fm) %name S)

%external %routine %spec Push Output Stream %alias "3L___push_output_stream" -
                                      (%integer Stream, %record(SCB Fm) %name S)

%external %routine %spec Check Stream %alias "3L___check_stream"(%integer S)

%externalroutinespec EOF %alias "3L___eof"

%external %integer %spec   In Str %alias "3L___in_stream",
                          Out Str %alias "3L___out_stream"

%record %format PDL Fm (%record(PDL Fm) %name PDL,
                        %record(SCB Fm) %name SCB,
                        %integer Level)

%const %integer Max Streams = 15

%record %format Stream Vector(%record(PDL Fm)%namearray Stream(0: Max Streams))

%external %record(Stream Vector)%spec In  %alias "3L___in_vector"
%external %record(Stream Vector)%spec Out %alias "3L___out_vector"