IBM 1130 User Manual page 556

PROGRAM
COMMENTS:
STEP 1.
STEP 2.
STEP 3.
STEP 4.
STEP 5.
STEP 6.
STEP 7.
STEP 8.
Section Subsections
70 40
I
20
EDIT WORKSHEET
PROGRAMMER
DATE
SOC/Rl. .5cCt./R/TY NO.
FI LL IN LINE a, SHOWING THE LARGEST POSSIBLE SOURCE FIELD, AND WHAT YOU WANT IT TO LOOK LIKE AFTER EDITING.
HINT: PUT POSITION lOF THE SOURCE FIELD IN POSITION~ OF THE MASK, AND SO ON, LEFT 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 *'s (ASTERISKS), b's (BLANKS), OR $'s (DOLLAR SIGNS). DO NOT PLACE THEM IN
THE EDIT MASK YET.
NOTE: ALLOWABLE SPECIAL CHARACTE RS ARE A THRU Z, 1 THRU 9, AND /, -
+ =
etc.
FI LL IN LINE b, SHOWING HOW YOU WANT ZERO TO APPEAR IN YOUR EDITED OUTPUT.
WHAT DID YOU DOWITH 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.
c) REPLACED THEM WITH BLANKS? IF SO NOTE THE RIGHTMOST BLANK AI\ID 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$l. 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,~
THE FIELD .••.•••.••..•..•.... PUT A MINUS SIGN IN THE POSITION RIGHT
AFTER THE FIELD.
d) 11-PUNCH OVER ONE OF THE CHARACTERS •..•.••.••..••••••••••••...• SAME AS OPTION C, THEN USE NZONE SUBROUTINE
- -
~
TO MOVE ZONE PUNCH TO THE DESIRED POSITION'
~
CAUTION: "CERTAINZONEPUNCHES(ll,OAND
CALL NZONE (MASK,ct, 5. NOLDZ) 12,0) CANNOT BE HANDLED BY
MOVE ZONE FROM HERE TO HERE7 FORTRAN I/O. IF THESE PUNCHES
JI
WILL OCCUR, YOU MUST USE CSP I/O."
CALL NZONE (MASK,D. NOLDZ, JUNK)
HOW MANY CHARACTERS WERE IN THE FIRST SOURCE FIELD? .•
W
a
HOW MANY BLANKS REMAIN IN THE MASK? ••••••••..••.•...•.
0
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
a /
I I
223 3 3 3
LINE a - LARGEST
I
I I
- 2 2
- 3
.3 33
a
b
LINE b - ZERO
b
LINE c- TYPICAL NEGATIVE
cLL~~LL~~LLr-------------'~+4~~+4~~++~~~
c
1
2
3
4 5 6
7 8 9 10 11 12 13 14 1516 17 18
I
h
bb -
"
b - b
bo
h
IMPLIED SIGN
REQUIRED EDIT MASK
- - - - - 1
Figure 70. 27.
Page
05