18.08.2013 Views

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

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

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

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

EDIT$–Fieldata Image Composition Editing Package<br />

PROC Call Generated<br />

Instructions<br />

E$CHAR p1 LA,U A0,p1<br />

Table 8–2. General-Purpose Editing Routines<br />

LMJ X11,ECHAR$<br />

Inserts a character.<br />

E$CLEAR LMJ X11,ECLEAR$ Clears image.<br />

Description<br />

The character contained in S6 of A0 is inserted into the image.<br />

The image is set to blanks and the column pointer is set to the<br />

start of the image (column zero).<br />

E$COLN LMJ X11,ECOLN$ Computes the column number.<br />

E$COL p1 LA,U A0,p1<br />

LMJ X11,ECOL$<br />

E$COPY p1, p2 LA,U A0,p2<br />

LA,U A1,p1<br />

LMJ X11,ECOPY$<br />

E$DCFZ p1, p2 LA A0,p2<br />

LA,U A1,p1<br />

LMJ X11,EDCFZ$<br />

E$DECF p1, p2 LA A0,p2<br />

LA,U A1,p1<br />

LMJ X11,EDECF$<br />

E$DECV p1 LA A0,p1<br />

LMJ X11,EDECV$<br />

E$FD1 p1 LA A0,p1<br />

LMJ X11,EFD1$<br />

E$FD2 p1 DL A0,p1<br />

LMJ X11,EFD2$<br />

Returns with the column number in A0.<br />

Positions to a fixed column.<br />

The column pointer is changed to the number specified in A0.<br />

The first character position of the image is column 0.<br />

Copies a string.<br />

A0 is expected to contain the address of a string of characters.<br />

A0 increment may contain a character offset for the first word<br />

in the range 0–5. Number of characters in A1 is copied from<br />

this area into the image.<br />

Edits decimal (fixed length with leading zero).<br />

Edits A0 to a decimal number right-justified in a field of A1<br />

characters. A leading "-" is added if A0 is negative. The result<br />

overflows the field to the right if it does not fit into the specified<br />

field size. Leading zeros are produced where EDECF$ would<br />

produce leading spaces. This routine is convenient for editing<br />

decimal fractions.<br />

Edits decimal (fixed length).<br />

Edits A0 to a decimal number right-justified in a field of A1<br />

characters. A leading "-" is added if A0 is negative. The result<br />

overflows the field to the right if it does not fit into the specified<br />

field size.<br />

Edits decimal (variable length).<br />

Edits A0 to a decimal number. A leading "-" is added if A0 is<br />

negative. The number of characters generated is a function of<br />

the sign and magnitude of A0.<br />

Inserts Fieldata (one word).<br />

The six characters in A0 are inserted into the image. Blanks and<br />

master spaces are ignored.<br />

Inserts Fieldata (two words).<br />

The 12 characters in A0 and A1 are inserted into the image.<br />

Blanks and master spaces are ignored.<br />

8–6 7833 1733–004

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!