IBM 1130 User Manual page 554

Section
Subsection~
70 40
I
EDIT WORKSHEET
PROGRAM PROGRAMMER
DATE
COMMENTS:
JIIONET/I!lY FIELD TO BE PUNCIiEi1
/N7"O
C.QRLJ #Irll
LE.t9L}/Nq ZEROS
DE..5/Rc~
BUT #0
CO#;f~:S
OR .iJEC
.or.
f/ PI/NCII OVER RI(jHTNOST
/bN/TS) pO.5ITION IF Ncq.4TIJ/E.
STEP 1.
STEP 2.
STEP 3.
STEP 4.
FILL IN LINE a, SHOWING THE LARGEST POSSIBLE SOURCE FIELD. AND WHAT YOU WANT IT TO LOOK LIKE AFTER EDITING.
HINT: PUT POSITION 10F THE SOURCE FIELD IN POSITION
1.
OF THE MASK, AND SO ON. LE;FT TO RIGHT.
IF YOU HAVE INSERTED ANY SPECIAL CHARACTERS INTO THE EDITED OUTPUT, PUT THEM IN THE EDIT MASK IN THE SAME
POSITION IN WHICH THEY APPEAR.
NOTE: THIS DOES NOT APPLY TO *'5 (ASTERISKS), b's (BLANKS), OR $'5 (DOLLAR SIGNS). DO NOT PLACE THEM IN
THE EDIT MASK YET.
NOTE: ALLOWABLE SPECIAL CHARACTERS ARE A THRU Z, 1 THRU 9, AND /,. +
=
etc.
FILL IN LINE b,SHOWING HOW YOU WANT ZERO TO APPEAR IN YOUR EDITED OUTPUT.
WHAT DID YOU DO WITH LEADING ZEROS? (YOU MAY ONLY CHOOSE ONE OPTION)
a) LEFT THEM AS ZEROS? THEN DO NOTHING TO THE MASK.
b) REPLACED THEM WITH ASTERISKS? IF SO, NOTE THE RIGHTMOST ASTERISK AND PUT AN ASTERISK IN THE MASK IN THE SAME
POSITION.
STEP 5.
STEP 6.
STEP 7.
STEP 8.
c)
REPLACED THEM WITH BLANKS? IF SO NOTE THE RIGHTMOST BLANK AND PUT A ZERO IN THE MASK IN THE SAME POSITION.
d) REPLACED THEM WITH A STRING OF BLANKS AND A DOLLAR SIGN? (FOR EXAMPLE bbbb$). IF SO, NOTE THE POSITION OF THE
DOLLAR SIGN AND PUT A DOLLAR SIGN IN THAT POSITION IN THE MASK.
FILL IN LINE c, SHOWING A TYPICAL NEGATIVE FIELD, AND HOW YOU WANT IT TO APPEAR.
WHAT DO YOU WANT DONE WITH A NEGATIVE FIELD INDICATOR? CHOOSE ONE.
a) NOTHING, FIELD WILL NEVER BE NEGATiVE ••••••••...•.•••••••.•••••• DO NOTHING.
b) LETTERS 'CR' AFTER THE FIELD ••••.••••••••.••••••••••••••••••••••• PUT A 'CR' IN THE MASK TO THE RIGHT OF
THE FIELD.
c) MINUS SIGN IN ITS OWN COLUMN, AFTER THE FiELD ••.•••••••••• , •••..• PUT A MINUS SIGN IN THE POSITION RIGHT
AFTER THE FIELD.
d) 11·PUNCH OVER ONE OF THE CHARACTERS •...•••••...•.••••••••.....• SAME ASOPTION C, THEN USE NZONE SUBROUTINE
- -
~
TO MOVE ZONE PUNCH TO THE DESIRED POSITION'
~
CAUTION: "CERTAIN ZONE PUNCHES (11,0 AND
CALL NZONE (MASK,y, 5, NOLDZ) 12,0) CANNOT BE HANDLED BY
MOVE ZONE FROM HERE TO HER?, FORTRAN I/O. IF THESE PUNCHES
WI LL OCCUR, YOU MUST USE CSP I/O."
CALL NZONE (MASK,D. NOLDZ, JUNK)
HOW MANY CHARACTERS WERE IN THE FIRST SOURCE FIELD? ••
0
a
HOW MANY BLANKS REMAIN IN THE MASK? •••••••••.••••.•.••
~
b
CAUTION: a CAN BE EQUAL TO OR LESS THAN b, BUT CANNOT BE LARGER!
DON'T FORGET; THE SOURCE FIELD MUST BE IN A1 FORMAT, WITH THE SIGN OVER THE RIGHTMOST CHARACTER.
SOURCE FIELD DESIRED EDITED OUTPUT
1 2 3 4 5 6 7 8 9 10 11 12
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
a9999'99999
bOOOO'OOOOO
t-L_
N_E_a_-_LA_R_G_E_ST
__________
~~~9~9~9~9~9~9~9~9~9~~~~t_~~~a
LINE b - ZERO
0 0 0 0 0 0 0 0 0
b
CL-1-1-1-J~~~~~~~~:L~:L-L_1-I-L-I-NE--C---T-Y-PI-C-A-L-N-EG-A-T-1-V-E----~~-+O:+O:+:04=0~.=04=~~~~~~~~_+_+_+_4~~--~
c·
1 2 3 4 5 6 7 8 9 101112131415161718
IMPLIED SIGN
REQUIRED EDIT MASK - - - - - -......
r~l/;
b
6 /; b " b b b b
Figure 70. 25.
20
Page
03