Table of Contents
Advertisement
Section
Subsections
Peg~
70
40
I
20
04
EDIT WORKSHEET
PROGRAM
PROGRAMMER
DATE
COMMENTS:
NOIVET"tl/?y
F/E~~,
N/Tfi FLO.-9T/N'q.
-1,
/lNO /IIcv19T/Yt /No/cnTO/? (8-/N
STEP 1.
STEP 2.
STEP 3.
STEP 4.
STEP 5.
STEP 6.
STEP 7.
STEP 8.
1
2
a
9
9
CoLU;tf# FOLtOtA//N(f).
FILL 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
POSITlON~
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 CHARACTERS ARE A THRU Z, 1 THRU
9,
AND /,' +
=
etc.
FI LL IN LINE b, SHOWI NG 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.
3
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$). I F 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 WI LL 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 AS OPTION C, THEN USE NZONE SUBROUTINE
- -
~
TO MOVE ZONE PUNCH TO THE DESIRED POSITION'
CAUTION:
"CERTAIN ZONE PUNCHES (11, OAND
CALL NZONE (MASK,9' 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? ..
~
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 A 1 FORMAT, WITH THE SIGN OVER THE RIGHTMOST CHARACTER.
SOURCE FIELD
DESIRED EDITED OUTPUT
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
9 9 99
9 9
99
LINE a - LARGEST
$
9 9
9
99
<)
9 9
lJ9
a
I
)
b
()
00
0
00 00
0 0
LINE b - ZERO
iO
0
0
b
c
I I
, I
1
LINE c- TYPICAL NEGATIVE
J
I I /
I
,
-
c
IMPLIEDSIGN~
1
2
3
4
5
6
7
8
9 10 11 12 13 14 1516 17 18
REQUIRED EDIT MASK
b bIJ
bhh
b
I
b
• /J
h-
I
1
Figure 70. 26.
Advertisement
Chapters
Table of Contents
