(SYSLIB) Programming Reference Manual - Public Support Login ...

SOR–Symbolic Output Routine
25.4. SORNM$ and SORNMA$–Output Specified
Coded Character Set Image
The SORNM$ and SORNMA$ routines write, without translation, an image from a
location specified by the calling program to the symbolic output element. The coded
character set (CCS) of the image is specified by the calling program.
Calling Sequence
L A0,(image-length,image-location)
L,U A1,CCS-identifier
LMJ X11,SORNM$ (or SORNMA$)
error return
normal return
where:
image-length
The length in words of the symbolic image to output.
image-location
The address of the symbolic image to output.
CCS-identifier
The CCS of the symbolic image, as described in Table I–1. The calling program is
responsible for assuring that the symbolic image has the correct format for the
specified CCS. Note that CCS octal 076 is reserved for future use and is currently
illegal.
If this is the first call to output an image, SOR calls SDFO to write the SDF Label control
record. If this is not the first call to output an image, SOR checks if the CCS identifier for
the image to be written is the same as the CCS of the previous symbolic image. If it is
not, SOR calls SDFO to write a Character Set Change control record, octal code 042.
This control record indicates the CCS of one or more symbolic images that follow.
The SORNM$ entry point is called to request space suppression at the end of the image.
If this is a Fieldata image (CCS 0), SOR checks for and suppresses words of Fieldata
spaces. If this is an ASCII image (CCS 1) or an image in one of the 39 CCSs listed in
Table I–1 as “ASCII-like,” SOR checks for and suppresses words of ASCII spaces. If this
is an image in one of the 22 CCSs that is not Fieldata, ASCII, or ASCII-like, SOR checks
for and suppresses words of binary zeroes. If the SORNMA$ entry point is called, there
is no space suppression.
The SOR error returns described for SORASC$ and SORASCA$ in 25.2 also apply to
SORNM$ and SORNMA$. The following error return is unique for SORNM$ and
SORNMA$: If the CCS-identifier is not a legal CCS (A1 is negative, equal to octal 076 or
over octal 077), SOR returns with A5 (H1) equal to 1 to indicate a CCS identifier error and
A5 (H2) equal to the CCS identifier.
7833 1733–004 25–5