GASS Operations
Thanks you very much for using MSI.
OPERATION 125 PRINT "PRINT MEMORY"
OPERATION 125 PRINTS THE PRINT MEMORY SET UP BY PREVIOUS OPERATION 124'S
OPERATION 125 IS DISABLED AND ENABLED BY OPERATION 74 WHEN THE ROW COUNT
CAUSES IT TO BE ENABLED OR DISABLED.IF THE LAST I-FIELD IS GREATER THEN OR
EQUAL TO 0 ALL TOTALS ARE ZEROED.
EXAMPLE: 0125
FIELD I FORMAT I COMMENTS I\OR^I OPERATIONS
-------I--------I--------------------------------I----I------------
1 I A10 I INVOICE NUMBER^ I \ I 74(45,45) Y 0 N
2 I D12.2 I DEBIT^ I \ I 68 Y 0 N
3 I D12. 2I CREDIT^ I \ I 68 Y 0 N
4 I D12. 2I ^ I \ I 4 Y 13(2,3)N
5 I I6 I ^ I \ I 68 Y18(4)N
6 I D22.2 I ^ I \ I 124 N
7 I A1 I ^ I ^ I 125 N
IN THE EXAMPLE NOTICE THAT THE PRINT OUT WILL BE THE SAME IF FIELDS 5, 6
AND 7 WERE NOT THERE WITH THE EXCEPTION THAT TOTALS START OVER EVERY 45 ROWS.
HEX FORMAT FOR EDIT: 007D
NOTE: IF OPERATION 125 IS CONTAINED IN A REPORT, AFTER ALL ROWS ARE PRINTED
THE SYSTEM TESTS THE OPERATION 74 COUNTER AND IF IT IS 0 NOTHING
HAPPENS. HOWEVER, IF THE COUNTER IS NOT ZERO, THE SYSTEM TRANSMITS
LINE FEEDS EQUAL TO THE AMOUNT LEFT IN THE COUNTER, PRINTS PRINT-
MEMORY, AND IF AN OPERATION 36 WAS ACTIVE IN THE REPORT, IT IS
CHANGED TO AN OPERATION 122 AND THEN EXECUTED. THIS IS VERY POWERFUL
IN FITTING REPORTS ONTO PRE-PRINTED FORMS WHEN A TRAILER MUST BE
PRINTED ON EACH FORM AND THE NUMBER OF ROWS IN A REPORT WILL MAKE UP
SEVERAL FORMS WITH THE LAST SEGMENT NOT NECESSARILY FILLING UP A
COMPLETE FORM.
OPERATION 126 REPORT NAME FOR OPERATION 122
OPERATION 122 MUST BE FURNISHED A REPORT NAME VIA OPERATION 126.
OPERATION 122 BECOMES "OPERATION 36 ON THE FLY". OPERATION 126 MUST AN A6
FIELD, AND THE DATA IN THE FIELD IS PARAMETRIC TO THE SYSTEM AND WILL NOT BE
PRINTED.
EXAMPLE: 0126
FIELD I FORMAT I COMMENTS I^OR\I OPERATIONS
-------I--------I---------------------------------I----I-----------
1 I A6 I NAME OF REPORT^ I \ I 126 Y 0 N
2 I I6 I ROW TO PRINT^ I ^ I 122()Y 0 N
IN THE EXAMPLE, THE REPORT AND ROW TO BE PRINTED MUST BE ENTERED.
HEX FORMAT FOR EDIT: 007E
OPERATION 127 - PRINT THE REPORT NAMED IN THE COMMENT
OPERATION 127 IS SIMILAR TO OPERATION 56. IT PICKS UP THE COMMENT FIELD
AS A FOREIGN REPORT TO PRINT. IT ENTERACTS WITH OPERATIONS 57, 58, AND 59 IN
EXACTLY THE SAME MANNER AS OPERATION 56 DOES. IT MUST BE THE ONLY OPERATION IN
A FIELD.
EXAMPLE: O127
FIELD I FORMAT I COMMENT I\OR^I OPERATIONS
------I--------I--------------------------------I----I-----------
1 I A6 I HEADER^ I ^ I 127 N
2 I A6 I REPORT TO PRINT^ I ^ I 56 Y 0 N
IN THE EXAMPLE REPORT, FIELD 1 PRINTS A REPORT CALLED "HEADER" FOR EVERY
ROW, AND FIELD 2 WILL PRINT THE REPORT KEYED IN BY THE OPERATOR FOR EVERY ROW.
HEX FORMAT FOR EDIT: 007F
OPERATION 128 - USE THE COMMENT FIELD AS AN "I" VALUE
OPERATION 128, LIKE OPERATION 127, USES NO SPACE IN THE DATA BASE SINCE
OPEATION 128, LIKE OPERATION 127, USES UP NO SPACE IN THE DATA BASE SINCE THE
COMMENT FIELD IS THE PARAMETER UPDATING THE INTEGER VALUE SPACE FOR SUBS,
NUMBER OF CHARACTERS TO CYCLE INTO PRINT MEMORY FOR "A" FIELDS THAT CONTAIN
OPERATION 124, AND FIELD NUMBER FOR "D" TOTALS USING OPERATION 124.
OPERATION 128 MUST BE THE ONLY OPERATION IN A FIELD AND MUST HAVE LEADING
ZEROES IN THE COMMENT FIELD.
EXAMPLE: O128
FIELD I FORMAT I COMMENTS I\OR^I OPERATIONS
-------I--------I------------------------------I----I------------
1 I I4 I 0020^ I \ I 128 N
2 I A6 I MASTER^ I ^ I 56 Y 65 N
3 I I4 I 0005^ I \ I 128 N
4 I A1 I TOTAL-----^ I \ I 124 N
5 I I4 I 0006^ I \ I 128 N
6 I D8.2 I ENTER TOTAL^ I \ I 4 Y 68 Y 0 N
7 I D8.2 I ^ I \ I 124 N
8 I A1 I ^ I ^ I 125 N
IN THE EXAMPLE REPORT,FIELD 1 IS PARAMETRIC TO FIELD 2 IN THAT IT IS
TELLING FIELD 2 WHICH SUB REPORT TO PRINT UNDER A MASTER REPORT CALLED
"MASTER". FIELD 3 IS PARAMETRIC TO FIELD 4 IN THAT IT IS TELLING FIELD 4 TO
CYCLE 10 CHARACTERS FROM THE COMMENT INTO PRINT MEMORY. FIELD 5 IS PARAMETRIC
TO FIELD 7 IN THAT IT IS TELLING IT TO CYCLE THE DOUBLE PRECISION TOTAL FROM
FIELD 6 INTO PRINT MEMORY. NOTE THAT ONLY OPERATION 65 IN FIELD 2 AND
OPERATION 0 IN FIELD 6 ARE PROCESSED ON INPUT AND HENCE 8 BYTES OF DATA MAKE
UP EACH ROW OF DATA IN THE REPORT.
HEX FORMAT FOR EDIT: 0080
OPERATION 129 - USE COMMENT FIELD FOR REPORT NAME FOR OPERATION 122.
OPERATION 129 IS SIMILAR TO OPERATION 126 EXCEPT THAT THE NAME IN THE
COMMENT FIELD IS USED AS THE REPORT NAME IN FIELDS THAT CONTAIN OPERATION 122.
NOTE: WHEN OPERATION 36 IS USED IN CONJUNCTION OPERATIONS 74, 124, AND 125
A FIELD MUST BE SET UP USING EITHER A 126 OR 129 BECAUSE 125 IS
USED BY THE SYSTEM TO MODIFY OPERATION 36 TO APPEAR AS OPERATION 122
AFTER THE LAST ROW HAS PRINTED.
EXAMPLE: O129
FIELD I FORMAT I COMMENTS I \OR^ I OPERATIONS
-------I-------I-------------------------------I------I-------------
1 I A6 I HEADER^ I \ I 129 N
2 I I6 I ROW TO PRINT^ I ^ I 122( )Y 0 N
IN THE EXAMPLE, THE ROW TO PRINT IN HEADER IS ENTERED FROM THE KEYBOARD
IN EVERY ROW. EACH ROW OF THE EXAMPLE REPORT CONTAINS ONLY 2 BYTES OF DATA.
HEX FORMAT FOR EDIT: 0081
OPERATION 130 - MODIFIES OPERATION 36 FOR GLOBAL COUNTER.
OPERATION 130 MODIFIES 36 TO INTERACT WITH OPERATION 74 THAT HAS BEEN
MODIFIED BY OPERATION 131. IT MUST BE USED IMMEDIATELY AFTER OPERATION 36.
EACH OUTPUT DEVICE HAS A GLOBAL PRINT COUNTER (A CRT IS AN OUTPUT DEVICE).
OPERATION 74 MODIFIED BY 131 CONTROLS THE PRINT COUNTER AFTER IT HAS BEEN
ZEROED BY 132. EACH TIME THE SYSTEM DECODES OPERATION 74 MODIFIED BY 131 THE
GLOBAL COUNTER IS DECREMENTED BY 1. WHEN THE GLOBAL COUNTER IS ZERO, OPERATION
36 THAT HAS BEEN MODIFIED BY 130 IS ACTIVATED FOR THE TIME PERIOD THAT
OPERATION 74 IS 0 AND A FORIEGN ROW FROM THE SUPER REPORT CAN BE PRINTED.
IF MULTIPLE REPORTS ARE PRINTED USING A BRING TOGETHER REPORT, ALL
REPORTS MUST CONTAIN 36'S MODIFIED BY 130, AND OPERATION 74 MODIFIED BY 131.
WHEN A GLOBAL OPERATION 74 GOES TO 0, IT BRINGS THE LOCAL OPERATION 74 TO 0.
EXAMPLE: A
FIELD I FORMAT I COMMENT I\OR^I OPERATIONS
------I--------I--------------------------------I----I--------------
1 I I6 I ^ I \ I 132 Y 39 N
2 I A6 I B ^ I ^ I 56 Y 65 N
3 I A6 I C ^ I ^ I 56 Y 65 N
EXAMPLE: B
FIELD I FORMAT I COMMENT I\OR^I OPERATIONS
-------I--------I--------------------------------I----I-----------------
1 I I6 I ^ I ^ I 36(GLOBE)Y130Y18(1)N
2 I I6 I ^ I ^ I 36(LOC)Y18(1)N
3 I A10 I NAME^ I \ I 74(9,9)Y131Y0N
4 I I6 I NUMBER^ I \ I 74(5,5)Y0N
5 I D8.2 I AMOUNT^ I ^ I 4Y0N
EXAMPLE: C
FIELD I FORMAT I COMMENT I\OR^I OPERATIONS
------I--------I---------------------------------I----I---------------------
1 I I6 I ^ I ^ I 36(GLOBE)Y130Y18(1)N
2 I I6 I ^ I ^ I 36(LC1)Y18(2)N
3 I A24 I ADDRESS^ I \ I 74(9,9)Y131Y0N
4 I A10 I CATEGORY^ I ^ I 74(3,3)Y0N
IN THE EXAMPLE REPORTS, A IS USED TO PRINT REPORTS B AND C. NOTICE THAT
THE GLOBAL COUNTER IS ZEROED IN A BY OPERATION 132. IT WILL BE ZERO AGAIN
POSSIBLY WHEN B OR C CAUSES THE COUNTER TO GO TO 0 BECAUSE OF THE ROWS PRINTED
TO GO TO 9. THIS WILL CAUSE OPERATION 36 IN EITHER FIELD TO ACTIVATE AND PRINT
ROW 1 OF GLOBE. ROW 1 OF GLOBE WILL ALWAYS BE PRINTED BY B SINCE THE 132 IN A
FORCES THE GLOBAL COUNTER TO 0 FOR EACH ROW IN A. NOTE THAT LOCAL OPERATIONS
36 AND 74 ARE SEPARATE FROM THEIR GLOBAL COUNTERPARTS.
HEX FORMAT FOR EDIT: 0082
OPERATION 131 - MODIFIY OPERATION 74 FOR GLOBAL COUNTER.
OPERATION 131 MUST BE THE OPERATION IMMEDIATELY FOLLOWING AN OPERATION
74. IT MODIFIES IT SO THAT A DECREMENT IS MADE TO A GLOBAL COUNTER EACH TIME
AN OPERATION 74 MODIFIED BY OPERATION 131 IS ENCOUNTERED. WHEN THE GLOBAL
COUNTER GOES TO 0, OPERATION 36 MODIFIED BY OPERATION 130 IS ACTIVE FOR THE
PERIOD THAT THE 74 COUNTER IS 0.
EXAMPLE: 0131
FIELD I FRMT I COMMENTS I \OR^ I OPERATIONS
------I-------I-----------------------------I------I------------------------
1 I I6 I ^ I ^ I 36(GLOBE)Y130Y18(1)N
2 I A6 I NAME^ I ^ I 74(9,9)Y131Y0N
THE EXAMPLE REPORT COULD BE USED IN CONJUNTION WITH OTHER REPORTS. ITS
MAJOR FUNCTIN WOULD BE TO PRINT AN A6 LIST AND BUMP THE GLOBAL COUNTER ON
"GLOBE" FOR EACH ROW PRINTED.
HEX FORMAT FOR EDIT: 0083
OPERATION 132 - ZERO THE GLOBAL COUNTER.
EVERY DEVICE HAS ITS OWN GLOBAL COUNTER. IT IS ZEROED BY OPERATION 132
(WHICH MUST BE THE FIRST OPERATION IN A FIELD) AND ESTABLISHED AND DECREMENTED
BY OPERATION 74 MODIFIED BY OPERATION 131. SINCE THE GLOBAL COUNTER IS SYSTEM
WIDE FOR A DEVICE, ANY TRANSMISSION OF OP 132 TO A DEVICE CLEARS THE COUNTER.
EXAMPLE: 0132
FIELD I FRMT I COMMENTS I \OR^ I OPERATIONS
------I------I-----------------------------I------I-----------
A1 I A1 I ^ I ^ I 132 Y 65 N
ONE ROW OF THIS REPORT MUST GEN'D. TRANSMISSION OF IT TO ANY DEVICE
CLEARS ITS GLOBAL COUNTER.
HEX FORMAT FOR EDIT: 0084
OPERATION 133 - ZERO PRINT MEMORY.
OPERATION 133 MUST BE THE ONLY OPERATION IN A FIELD. IT IS USED TO SET
THE PRINT MEMORY LOCATION COUNTER TO 1 AND IN EFFECT CLEARS PRINT MEMORY. IT
CAN BE USED TO PRINT SEVERAL DIFFERENT STRINGS WITH OPERATION 125.
EXAMPLE: 0133
FIELD I FRMT I COMMENTS I \OR^ I OPERATIONS
------I-------I---------------------------I------I-----------
1 I I4 I 0004^ I \ I 128 N
2 I A1 I JIM HAS ^ I \ I 124 N
3 I A1 I ^ I ^ I 24 N
4 I D8.2 I ENTER JIM'S NO.^ I \ I 4 Y 68 Y0 N
5 I D6.0 I ^ I \ I 124 N
6 I A1 I ^ I ^ I 125 N
7 I A1 I ^ I ^ I 133 N
8 I A1 I SUE HAS ^ I ^ I 124 N
9 I I4 I 0010^ I ^ I 128 N
10 I D7.0 I ENTER SUE'S^ I ^ I 4 Y 68 Y 0 N
11 I D4.0 I ^ I ^ I 124 N
12 I A1 I ^ I ^ I 125 N
WHEN THE EXAMPLE REPORT IS PRINTED, IT WILL LOOK SOMETHING LIKE:
JIM HAS 9.
SUE HAS 10.
OR WHATEVER VALUES ARE ENTERED FOR JIM AND SUE. A FORM FEED WILL BE
TRANSMITTED FIRST BECAUSE OF OPERATION 24 IN FIELD 3.
HEX FORMAT FOR EDIT: 0085
OPERATION 134 - PRINT ROW ONE OF THE REPORT IN THE COMMENT FIELD .
OPERATION 134 PRINTS ROW 1 OF THE REPORT DESIGNATED IN THE COMMENT
PORTION OF THIS FIELD. IT MUST BE THE ONLY OPERATION IN THE FIELD AND IS
DISABLED AND ENABLED BY OPERATION 74. IT IS SIMILAR TO OPERATION 36 AND 122 IN
THAT IT CAN WORK IN CONJUNCTION WITH OPERATIONS 124 AND 125. (IF OPERATION 36
OR 134 IS IN SOME FIELD WHEN OPERATION 125 IS ACTIVE, THE SYSTEM WILL PRINT
THE FINAL DESIGNATED ROW WHEN ALL DATA REQUESTED TO BE TRANSMITTED HAS BEEN
SENT. THIS OCCURS AFTER ALL OF PRINT MEMORY HAS BEEN TRANSMITTED AND IF
OPERATION 74 HAS A NON-ZERO COUNTER).
EXAMPLE: 0134
FIELD I FMT I COMMENT I \OR^ I OPERATIONS
--------I-------I------------------------I------I-----------
1 I I6 I HEADER^ I ^ I 134 N
2 I A30 I NAME^ I \ I 74(22,22) Y 0 N
3 I D12.2 I DEBIT^ I \ I 4 Y 0 N
4 I D12.2 I CREDIT^ I \ I 4 Y 0 N
5 I D12.2 I ^ I ^ I 4 Y 0 N
6 I I4 I 0005^ I ^ I 128 N
7 I D14.2 I ^ I ^ I 124 N
8 I A1 I ^ I ^ I 125 N
9 I I1 I TRAILR^ I ^ I 134 N
IN THE EXAMPLE, OPERATION 134 IN FIELDS 1 AND 9 ARE ACTIVATED EVERY 22
ROWS. AFTER THE LAST ROW HAS BEEN TRANSMITTED LF'S ARE TRANSMITTED TO SATISFY
THE 74 AND ROW ONE OF TRAILR IS TRANSMITTED. (NOTE: IT THE 74 COUNTER IS
SATISFIED, OPERATION 134 IS IGNORED).
HEX FORMAT FOR EDIT: 0086
OPERATION 135 - PUT LEADING ZROES IN AN I-FIELD.
OPERATION 135, IF IT IS FIRST IN AN I FIELD, CAUSES LEADING ZEROES
INSTEAD OF BLANKS TO PRECEDE THE NUMBER IN THE FIELD.
EXAMPLE: 0135
FIELD I FMT I COMMENT I \OR^ I OPERATIONS
-------I-----I-------------------------I------I-----------
1 I I4 I ENTER PATIENT NO.^ I \ I 135 Y 0 N
2 I D8.2I AMOUNT OWED^ I ^ I 4 Y 0 N
IN THE EXAMPLE, IF PATIENT NUMBER 1 IS ENTERED OWING 5.00, THE PRINTOUT
WOULD LOOK LIKE THIS:
0001 5.00
5.00
HEX FORMAT FOR EDIT: 0087
OPERATION 136 - CHANGE PR NUMBER TO VALUE IN THIS "I" FIELD.
OPERATION 136 TAKES THE INTEGER VALUE CONTAINED IN THE CURRENT "I" FIELD
AND CHANGES THE PR TO THAT VALUE.
EXAMPLE: 0136
FIELD I FORMAT I COMMENT I \OR^ I OPERATIONS
------I--------I---------------------------I------I-----------
1 I I6 I ^ I \ I 18(1)Y106N
2 I I6 I ^ I \ I 18(5)Y136Y35(0,PRINT)N
3 I I6 I ^ I \ I 18(12)Y136Y35(0,PRINT)N
4 I I6 I ^ I ^ I 18(13)Y136Y35(0,PRINT)N
PRINT
FIELD I FORMAT I COMMENT I /OR^ I OPERATIONS
------I--------I---------------------------I------I-----------
1 I A6 I REPORT^ I ^ I 56Y65N
IN THE EXAMPLE, OPERATION 106 IN FIELD ONE IN CONJUNCTION WITH OPERATION
136 IN FIELDS 2,3 AND 4 CAUSE A ROW OF "PRINT" TO TO BE TRANSMITTED TO PR'S 5,
12 AND 13. THAT ROW CAUSES THE ENTIRE CONTENTS OF "REPORT" TO BE TRANSMITTED
TO THOSE DEVICES. ALL DATA MUST BE TRANSMITTED TO THE ADDRESSED DEVICE BEFORE
THE NEXT OPERATION OF THE CONTROL REPORT IS DECODED.
HEX FORMAT FOR EDIT: 0088
OPERATION 137 - PRINT THE "I" VALUE IN THIS FIELD AS A HEXADECIMAL VALUE.
THE LANGUAGE OF ANY COMPUTER SYSTEM IN ITS BASIC FORM IS BINARY, AND BASE
16 (OR HEXIDECIMAL) BREAKS DOWN DIRECTLY TO BINARY WITH VERY LITTLE CODE
CONVERSION MATHEMATICS. OPERATION 137 CONVERTS THE "I" FIELD VALUE TO HEX
INSTEAD OF DECIMAL FOR PRINT PURPOSES. THIS OPERATION MAY BE USED FOR TEACHING
COMPUTER MATHEMATICS OR FOR TROUBLE SHOOTING AN I/O TERMINAL.
EXAMPLE: 0137
FIELD I FORMAT I COMMENT I \OR^ I OPERATIONS
------I--------I---------------------------I------I-----------
1 I I6 I ENTER INTEGER VALUE^ I \ I 0N
2 I I5 I ^ I \ I 137Y10(1,2)N
3 I A1 I ^ I \ I 20N
4 I A1 I ENTER A CHARACTER^ I \ I 0Y105(2,1)N
5 I A1 I ^ I \ I 20N
6 I I2 I ^ I ^ I 137Y104N
IN THE EXAMPLE, THE DECIMAL VALUE ENTERED FROM THE KEYBOARD IN FIELD 1
WILL PRINT AS A HEX VALUE IN FIELD 2. THE CHARACTER ENTERED IN FIELD 4 WILL
PRINT AS AN ASCII HEX VALUE IN FIELD 6.
HEX FORMAT FOR EDIT: 0089
OPERATION 138 - VIEW THE REPORT SPECIFIED BY THE LAST OPERATION 72.
OPERATION 138 IS USED TO VIEW AN ENTIRE REPORT DURING A GENERAL OR ITEM
UPDATE. IF SUBS ARE USED, THE SUB THAT VIEWS IS THAT ONE SPECIFIED BY THE LAST
OPERATION 51 VALUE.
EXAMPLE: 0138
FIELD I FMT I COMMENT I \OR^I OPERATIONS
-----I-----I---------------------------I-----I-----------
1 I A6 I ENTER NAME OF REPORT^ I \ I 0Y72Y138N
2 I I6 I ENTER INTEGER VALUE^ I ^ I 0N
IN THE EXAMPLE, THE OPERATOR WOULD BE REQUIRED TO ENTER A REPORT NAME.
THE SYSTEM WOULD USE DATA ENTERED AS A REPORT TO VIEW BACK AT THE OPERATOR.
AFTER THE REPORT HAS VIEWED, THE OPERATOR WILL BE GIVEN THE QUERY,"ENTER
INTEGER VALUE" AS REQUIRED BY OPERATION 0 IN FIELD 2.
HEX FORMAT FOR EDIT: 008A
OPERATION 139 - PRINT A ROW OF A SPECIFIED TABLE.
OPERATION 139 WORKS IN CONJUNCTION WITH OPERATIONS 81 AND 38 (OR
OPERATION 116) WHEREBY A TABLE NUMBER IS ESTABLISHED BY OPERATION 81 (OR THE
FIRST ARGUMENT OF OPERATION 116) AND A ROW NUMBER IS ESTABLISHED BY OPERATION
38 (OR THE SECOND ARGUMENT OF OPERATION 116). ON ENCOUNTERING OPERATION 139
(WHILE PROCESSING) THE ROW SPECIFIED OF THE TABLE SPECIFIED WILL BE
TRANSMITTED TO THE PR DEVICE IN THE FORMAT OF THE FIELD. FORMS CONTROL WILL
DEPEND ON THE "/OR^" INDICATOR OF THE FIELD.
EXAMPLE: O139
FIELD I FMT I COMMENTS I \^ I OPERATIONS
------I-------I---------------------------I----I-----------
1 I I6 I^ I \ I 39Y38N
2 I A6 I^ I \ I 116(1,0)Y139N
3 I I2 I^ I \ I 116(2,0)Y139N
4 I D12.2 I^ I \ I 116(3,0)Y139N
5 I F12.3 I^ I ^ I 116(4,0)Y139N
IN THE EXAMPLE REPORT, OPERATION 38 IN FIELD 1 ESTABLISHES THE ROW NUMBER
AS A PARAMETER TO OPERATION 139 IN FIELDS 2 THROUGH 5. OPERATION 116 SETS UP
THE TABLE NUMBERS FOR EACH OPERATION 139. THE OUTPUT TO THE PR DEVICE COULD BE
AS FOLLOWS FOR THE FIRST 2 ROWS OF O139.
ALPHA 1 25.00 33.333
BETA 1 50.00 66.667
HEX FORMAT FOR EDIT: 008B
OPERATION 140 - VIEW A ROW OF A SPECIFIED TABLE.
OPERATION 140 WORKS IN CONJUNCTION WITH OPERATIONS 81 AND 38 (OR
OPERATION 116) WHEREBY A TABLE NUMBER IS ESTABLISHED BY OPERATION 81 (OR THE
FIRST ARGUMENT OF OPERATION 116) AND A ROW NUMBER IS ESTABLISHED BY
OPERATION 38 (OR THE SECOND ARGUMENT OF OPERATION 116). ON ENCOUNTERING
OPERATION 140 (WHILE PROCESSING) THE SPECIFIED ROW OF THE SPECIFIED TABLE WILL
BE VIEWED BACK TO THE PROCESSING DEVICE, ACCORDING TO THE FORMAT AND FORMS
CONTROL CHARACTER OF THE FIELD.
EXAMPLE: O140
FIELD I FORMAT I COMMENTS I\^ I OPERATIONS
------I--------I---------------------------I---I-----------
1 I I6 I ^ I \ I 39Y38N
2 I A6 I ^ I \ I 116(1,0)Y140N
3 I I2 I ^ I \ I 116(2,0)Y140N
4 I D12.2 I ^ I \ I 116(3,0)Y140N
5 I F12.2 I ^ I ^ I 116(4,0)Y140N
IN THE EXAMPLE REPORT, FIELD 1 ESTABLISHES THE ROW NUMBER AS A PARAMETER
TO OPERATION 140 IN FIELDS 2 THROUGH 5. OPERATION 116 SETS UP THE TABLE
NUMBERS FOR EACH OPERATION 140. THE OUTPUT VIEWED BACK TO THE PROCESS DEVICE
COULD BE AS SHOWN BELOW FOR THE FIRST TWO ROWS OF O140:
ALPHA 1 25.00 33.333
BETA 2 50.00 66.667
HEX FORMAT FOR EDIT: 008C
OPERATION 141 - COPY A TABLE ACCORDING TO ROWS SPECIFIED BY AN ANSWER TABLE.
OPERATION 141 USES PREDEDING OPERATIONS 38,51, AND THE VALUE OF THE LAST
"I" FIELD AS PARAMETERS. THE VALUE IN THE LAST "I" FIELD SETS UP THE ANSWER
TABLE FOR THE COPY SYSTEM, AND IT ALWAYS STARTS AT ROW 1 OF THE ANSWER TABLE.
THE SOURCE TABLE TABLE IS ESTABLISHED BY THE LAST OPERATION 38 VALUE, AND THE
TARGET TABLE IS ESTABLISHED BY THE LAST OPERATION 51 VALUE. THE NUMBER OF ROWS
TO COPY IS ESTABLISHED BY THE LAST OPERATION 83 VALUE.
EXAMPLE: O141
FIELD FMT COMMENTS \^ OPERATIONS
--------I------I-----------------------------------I---I------------------
1 I I6 I^ (NUMBER OF ROWS) I \ I 18(10) Y 83 N
2 I I6 I^ (SOURCE TABLE) I \ I 18(1) Y 38 N
3 I I6 I^ (TARGET TABLE) I \ I 18(2) Y 51 N
4 I I6 I^ (ANSWER TABLE) I \ I 18(3) N
5 I A6 I^ (EXECUTE) I ^ I 141 Y 65 N
IN THE EXAMPLE REPORT, ASSUME THE SOURCE TABLE HAS INVOICE ID'S AS "A6"
DATA AND THAT TABLE 3 HAS THE ORDER THAT THEY SHOULD BE IN, THEN O141 WOULD
BRING FORWARD (INTO TABLE 2) 10 ROWS FROM TABLE 1 ACCORDING TO THE ORDER
SPECIFIED BY THE VALUES IN THE FIRST 10 ROWS OF TABLE 3.
NOTE: AN ENCOUNTER OF A 0 IN A SOURCE FIELD BRINGS THE OPERATION 83
VALUE IMMEDIATELY TO 0 AND THE TRANSFER STOPS.
HEX FORMAT FOR EDIT: 008D
OPERATION 142 - PUT ABSOLUTE VALUE OF THIS FIELD INTO THIS FIELD'S REGISTERS.
OPERATION 142 WILL BRING TO A POSITIVE AMOUNT THE VALUE IN THE CURRENT
FIELD. THE ACTUAL VALUE IN THE FIELD (FOR PRINTING PURPOSES) STAYS THE SAME.
EXAMPLE: O142
FLD FMT COMMENTS \^ OPERATIONS
----I------I---------------------------------I---I--------------------------
1 I D8.2 I ENTER A NUMBER^ I \ I 0 Y 142 Y 7 Y 103 N
2 I D8.4 I ^ I ^ I 62 Y 104 N
IN THE EXAMPLE A NEGATIVE VALUE ENTERED INTO THE SYSTEM WOULD NORMALLY
CAUSE PROBLEMS DUE TO THE IMAGINARY RESULT.
HEX FORMAT FOR EDIT: 008E
OPERATION 143 - JUMP ON CONDITION TO TO SPECIFIED FIELD.
OPERATION 143 HAS 2 ARGUMENTS WHEN FORMATTING. THE FIRST ARGUMENT (OR
VALUE) THE SYSTEM WILL REQUEST IS THE TYPE CODE (OR CONDITION CODE IF YOU
WILL). THE TYPE CODE REFERS TO THE LAST OPERATION 33 VALUE EXCEPT THE TYPE
CODE 6 WHERE THE JUMP IS TAKEN UNCONDITIONALLY.THE SECOND ARGUMENT (OR VALUE)
THE SYSTEM WILL REQUEST IS THE FIELD TO JUMP TO.
TYPE CODES: 0 - JUMP IF LAST OPERATION 33 VALUE IS 0.
1 - JUMP IF LAST OPERATION 33 VALUE IS LESS THAN 0.
2 - JUMP IF LAST OPERATION 33 VALUE IS LESS THAN OR = 0.
3 - JUMP IF LAST OPERATION 33 VALUE IS > OR = 0.
4 - JUMP IF LAST OPERATION 33 VALUE IS > 0.
5 - JUMP IF LAST OPERATION 33 VALUE IS NOT = 0.
6 - JUMP REGARDLESS.
EXAMPLE: O143
FIELD FORMAT COMMENTS \^ OPERATIONS
-----I--------I----------------------I---I-----------------------------
1 I I6 I ENTER #^ I \ I 40Y0Y33Y143(0,2)Y143(4,3)N
2 I I6 I YOUR # = 0 - INTEGER^I \ I 0Y117(50,50)Y101Y143(6,1)N
3 I A6 I # > 0 , ALPHA^ I ^ I 0 Y 117(51,50) Y 101 N
THE EXAMPLE REPORT LOOPS BETWEEN FIELDS 1 AND 2 UNTIL A VALUE GREATER
THAN 0 IS ENTERED INTO FIELD 1. THE FIRST OPERATION 143 COULD HAVE BEEN
OMITTED AND THE SAME RESULT WOULD OCCUR.
NOTE: ALWAYS PLACE AN OPERATION 40 AS THE FIRST OPERATION IN A REPORT
SO THAT NO DATA WILL BUILD UP. OTHERWISE LOOPING BETWEEN FIELDS
WILL CAUSE LINKEAGE OF DATA TO BE UNPREDICTABLE.
HEX FORMAT FOR EDIT: 008F 000N 000M (N IS THE TYPE CODE)
(M IS THE FIELD TO JUMP TO)
OPERATION 144 - STORE VALUE IN CURRENT FIELD INTO SPECIFIED FIELD'S REGISTERS
IF FIELD SPECIFIED IS 0, USE THE 51-REG AS THE SPECIFIED
FIELD.
OPERATION 144 REQUIRES ONE ARGUMENT WHICH IS THE TARGET FIELD NUMBER. THE
FLOATING POINT AND INTEGER VALUES OF THE CURRENT FIELD REPLACE THE CONTENTS OF
THE SPECIFIED FIELD'S FLOATING AND INTEGER REGISTERS. WITH AN ARGUMENT OF 0
THE 51 VALUE ALLOWS THE FIELD NUMBER TO BE SET DYNAMICALLY.
EXAMPLE: O144
FIELD FORMAT COMMENTS \^ OPERATIONS
-----I-------I---------------------------------I---I----------------------
1 I D12.2 I ENTER AMOUNT^ I \ I 0 Y 144(25) N
2 I D12.2 I ^ I ^ I 15(25,25) N
IN THE EXAMPLE FIELD 1 REQUIRES DATA FROM THE KEYBOARD AND OPERATION 144
STORES THAT AMOUNT INTO FIELD 25'S FLOATING POINT REGISTER. FIELD 2 SQUARES
THAT AMOUNT BY MULTPLYING FIELD 25 BY ITSELF.
HEX FORMAT FOR EDIT: 0090 N (N - TARGET FIELD)
OPERATION 145 - LOAD VALUE IN SPECIFIED FIELD INTO CURRENT FIELD'S REGS.
OPERATION 145 REQUIRES ONE ARGUMENT--THE SPECIFIED FIELD NUMBER.
OPERATION 145 LOADS THE SPECIFIED FIELD NUMBER'S FOATING AND INTEGER REGISTERS
INTO THE CURRENT FIELD'S REGISTERS. IF THE FIELD SPECIFIED IS 0, THEN USE THE
38-REG AS THE FIELD NUMBER.
EXAMPLE: O145
FIELD FORMAT COMMENTS \^ OPERATIONS
------I------I----------------------------------I---I-------------------
1 I D8.2 I ENETER VALUE^ I \ I 0 Y 144(10) N
2 I D8.4 I ^ I ^ I 145(10) Y 15(10,2) N
IN THE EXAMPLE REPORT THE VALUE ENTERED FROM THE KEYBOARD IS STORED INTO
FIELD 10'S FLOATING POINT REGISTER. IN FIELD 2 THAT VALUE IS RETRIEVED AND
MULTIPLIED BY FIELD 1.
HEX FORMAT FOR EDIT: 0091 N (N - SOURCE FIELD FOR THE DATA)
OPERATION 146 - COPY A TABLE.
OPERATION 146 WORKS IN CONJUNCTION WITH OPERATIONS 38 AND 81 (AND
POSSIBLY OPERATIONS 111 AND 112 IF TABLES ARE TO BE COPIED ACROSS UNITS AND/OR
FILES) THE TARGET TABLE IS SET UP BY OPERATION 81 AND THE SOURCE TABLE (WHICH
IS ALWAYS IN THE CURRENT FILE) IS SET UP BY OPERATION 38.
EXAMPLE: O146
FLD FMT COMMENTS \^ OPERATIONS
----I------I-----------------------------------I---I------------------------
1 I I6 I ^ I \ I 18(2) Y 112 N
2 I I6 I TARGET TABLE IN FILE 2^ I \ \ 0 Y 81 N
3 I I6 I SOURCE TABLE IN THIS FILE^ I ^ I 0 Y 38 Y 146 N
IN THE EXAMPLE, FIELD 1 SETS THE TARGET FILE AS FILE 2. FIELD 2 REQUIRES
THAT THE OPERATOR INTER A TARGET TABLE NUMBER AND FIELD 3 REQUIRES THE
OPERATOR TO INPUT THE SOURCE TABLE NUMBER. OPERATION 146 IN FIELD 3 EXECUTES
THE COPY.
NOTE: THE COPY IS DISCONTINUED WHEN EITHER THE SOURCE OR TARGET TABLE
RUNS OUT OF ROWS.
* DIRECTORIES MUST HAVE BEEN ESTABLISHED (USING OPERATION 100)
BEFORE 146 WILL WORK PROPERLY.
HEX FORMAT FOR EDIT: 0092
OPERATION 147 - USE FIRST CHARACTER OF MEMORY TO ESTABLISH AN I-VALUE.
OPERATION 147 BRINGS DATA INTO IN I-TYPE FIELD BY CHANGING A-TYPE DATA
THAT HAS BEEN INTRODUCED INTO MEMORY BY OPERATION 103 OR OPERATION 105. THE
FIVE LEAST SIGNIFICANT BITS OF THE FIRST CHARACTER IN MEMORY FORM THE INTEGER
VALUE FOR THE CURRENT FIELD. IF THE CHARACTER "A" IS ENTERED INTO MEMORY AND
147 IS USED IN A SUBSEQUENT I-TYPE FIELD, THE VALUE DERIVED WOULD BE 1. THIS
OPERATION IS USEFUL IN LARGER DATA BASES THAT CONTAIN ALPHA DATA THAT NEEDS TO
BE SEARCHED, FOR EXAMPLE, A BLOOD BANK APPLICATION.
THE INPUT DATA COULD BE PRE-SORTED BY USING THE FIRST CHARACTER OF A NAME
TO CALL OUT A TABLE NUMBER, AND THEN STORING SEQUENTIALLY (SOMETIMES CALLED
"INDEXED SEQUENTIAL ACCESS METHOD" OR ISAM STOREAGE OF DATA).
EXAMPLE: 0147
FLD FMT COMMENTS \^ OPERATIONS
----I---------I--------------------------------------I---I-----------------------
1 I A40 I LAST NAME, FIRST NAME MI.^ I \ I 0 Y 103 N
2 I I6 I ^ I \ I 147 Y 38 N
3 I I6 I ^ I \ I 116(1,0) Y102 Y38N
4 I I6 I ^ I \ I 18(1)Y10(2,4)Y81N
5 I I6 I ^ I \ I 10(3,5) Y 51 N
6 I A40 I ^ I \ I 104 Y 101 N
7 I I6 I ^ I \ I 147 Y 38 N
8 I I6 I ^ I ^ I 18(1)Y116(1,0)Y99N
IN THE EXAMPLE REPORT, ALL NAMES BEGINNING WITH A ARE PLACED SEQUENTIALLY
INTO TABLE 2, THOSE BEGINNING WITH B GO INTO TABLE 3 ETC. FIELD 1 SETS DATA
INTO MEMORY, FIELD 2 GETS THE HASH VALUE OF THE FIRST CHARACTER AND SETS UP
FOR A TABLE READ IN FIELD 3 WHERE THE NEXT SEQUENTIAL ROW IS CONTAINED. FIELD
4 ADDS 1 TO THE HASH VALUE OF THE FIRST CHARACTER AND SETS IT IN AS TABLE
NUMBER. FIELD 5 SETS IN THE ROW NUMBER FOR STOREAGE AND FIELD 6 RETRIEVES THE
NAME FROM MEMORY AND STORES IT INTO THE APPROPRIATE TABLE. FIELDS 7 AND 8
INCREMENT THE ROW COUNTER FOR THE CHARCTER BEING PROCESSED.
HEX FORMAT FOR EDIT - 0093
OPERATION 148 - USE FIRST 2 CHARACTERS OF MEMORY AS HASH VALUE.
OPERATION 148 IS THE SAME AS OPERATION 147 EXCEPT THAT IT USES THE FIRST
TWO CHARACTERS OF MEMORY TO FORM AN INTEGER VALUE (OR HASH VALUE). THIS
OPERATION COULD BE USED FOR LARGER DATA BASES. THE OBJECT OF HASHING IS TO
KEEP THE TABLES SHORT AND MANY SO THAT ACCESS TO ANY PORTION OF DATA IS
FASTER, ESPECIALLY IF SEARCHES ARE REQUIRED.
EXAMPLE: 0148
FLD FMT COMMENTS \^ OPERATIONS
----I-------I-----------------------------------I---I---------------------
1 I A40 I LAST NAME, FIRST NAME MI ^ I ^ I 0 Y 103 N
2 I I6 I^ I ^ I 147 Y 38 N
3 I I6 I^ I ^ I 116(1,0) Y 102 Y 83 N
4 I I6 I^ I ^ I 18(0)Y117(1000,1)Y93N
5 I I6 I^ I ^ I 18(1) Y 10(2,5) Y 81N
6 I A40 I^ I ^ I 104 Y 116(0,1) Y 98 N
7 I I6 I^ I ^ I 116(1000,2) Y 94 Y38N
8 I A1 I (CTL@)LAST GAVE ^ I ^ I 55 N
9 I A10 I^ I ^ I 62 Y 116(1001,0)Y102N
IN THE EXAMPLE REPORT THE HASH VALUE IS USED TO SET UP THE TABLE NUMBER
TO BE SEARCHED USING THE NAME KEYED IN. THE FIRST ROW MATCH IS IN ROW 2 OF
TABLE 1000 AND THIS VALUE IS USED AS A ROW NUMBER INTO THE DATE TABLE THAT IS
TABLE NUMBER 1001. FROM THIS TABLE THE DATE IS FLASHED.
HEX FORMAT FOR EDIT - 0094
OPERATION 149 - USE FIRST 3 CHARACTERS OF MEMORY AS HASH VALUE.
OPERATION 149 IS THE SAME AS 147 AND 148 BUT WOULD BE USED WITH THE
LARGEST OF DATA BASES. THE EXAMPLES GIVEN FOR 147 AND 148 WILL WORK FOR 149.
EXAMPLE:
FLD FMT COMMENTS \^ OPERATIONS
----I-----I-------------------------------------I---I----------------------
1 I A40 I LAST NAME, FIRST NAME MI.^ I ^ I 0 Y 103 N
2 I I6 I ^ I ^ I 39 Y 51 N
3 I I6 I ^ I ^ I 149Y117(1,0)Y101N
4 I A40 I ^ I ^ I 104Y117(2,0)Y101N
5 I A40 I ADDRESS (CITY,STATE,ZIP)^ I ^ I 0Y117(3,0)Y101N
IN THE EXAMPLE THE HASH IS STORED INTO AN I-TYPE TABLE. THE I-TABLE CAN
BE SEARCHED FOR 3 CHARACTER MATCHES THUS SPEEDING ACCESS TO ALL NAMES WITH THE
FIRST 3 CHARACTERS THE SAME.
HEX FORMAT FOR EDIT - 0095
Gass Index