GASS Operations
Thanks you very much for using MSI.
OPERATION 75 - PUT THE MONTH IN THIS FIELD
NO ARGUMENTS ARE REQUIRED FOR OPERATION 75, AND ANY FORMAT MAY BE USED.
UNDER "A" FORMATS, THE MONTH WILL BE RIGHT ADJUSTED IN THE FIELD.
EXAMPLE: 075
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A13 I THE MONTH IS ^ I \ I 20 N
2 I I2 I ^ I ^ I 75 N
THE MONTH IS 5; THE MONTH IS 11 WILL BE PRINTED IF 075 IS GENERAL
UPDATED IN MAY AND NOVEMBER.
HEX FORMAT FOR EDIT: 0043
OPERATIONS 75-80 - OPERATIONS 75 THROUGH 80 USE THE REAL TIME CLOCK
AND CALENDAR TO RETRIEVE DATA FROM
ALL OF THESE OPERATIONS CAN BE USED WITH ANY FORMAT. FOR THEM TO WORK
PROPERLY, HOWEVER, THE CALENDAR AND CLOCK MUST BE SET AFTER EACH COMPUTER
LOAD. WHILE THE COMPUTER IS OFF OR STOPPED, THE CLOCK IS DIABLED. THE
CLOCK AND CALENDAR MUST BE SET AT THE SYSTEM IDLE POSTION (WHEN THE CRT
READS "READ INDEX-1"). TO ACCOMPLISH THE SETTING, INSTEAD OF 1, ENTER 4
AND PRESS RETURN. THE SYSTEM WILL RESPOND WITH "MONTH" AND THE NUMBER OF
THE CURRENT MONTH MUST BE ENTERED AND THE RETURN KEY PRESSED AND THE CRT
WILL RESPOND WITH "DAY" AND A NUMERIC DAY MUST BE ENTERED AND THE SYSTEM
WILL RESPOND WITH "YEAR" AND A 2 DIGIT YEAR MUST BE ENTERED AND THE SYSTEM
WILL RESPOND WITH "HOUR" AND THE HOUR MUST BE ENTERED. THE SYSTEM WILL
REQUIRE THE MINUTES AND RESPOND WITH "MIN" AND THE "PM-1" WILL APPEAR IF
IT IS AFTERNOON A "1" MUST BE ENTERED AND IF IT IS MORNING, JUST DEPRESS
RETURN KEY.
IMPORTANT***
IF THE CLOCKS AND CALENDAR ARE NOT SET, THE DATA RETRIEVED BY OPERATION
75 THROUGH 80 WILL NOT BE VALID.
OPERATION 76 - PUT DAY IN THIS FIELD
NO ARGUMENTS ARE REQUIRED FOR OPERATION 76, AND ANY FORMAT MAY BE USED
UNDER "A" FORMATS. THE DAY WILL BE RIGHT ADJUSTED IN THIS FIELD.
EXAMPLE: 076
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A12 I THE DAY IS (15 SPACES) ^ I \ I 20 N
2 I I2 I ^ I ^ I 76 N
THE DAY IS 2; THE DAY IS 10 WILL BE PRINTED IF 076 IS GENERAL UPDATED
ON THE 2ND AND 10TH DAYS OF THE MONTH.
HEX FORMAT FOR EDIT: 004C
OPERATION 77 - PUT YEAR IN THIS FIELD
NO ARGUMENTS ARE REQUIRED FOR OPERATION 77, AND ANY FORMAT MAY BE
USED. UNDER "A" FORMATS THE YEAR WILL BE RIGHT ADJUSTED IN THE
FIELD.
EXAMPLE: 077
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I---------------------------I--------I----------------
1 I A14 I THE YEAR IS 19--^ I \ I 20 N
2 I A2 I ^ I ^ I 77 N
THE YEAR IS 1979; THE YEAR IS 1980 WILL BE PRINTED IF 077 IS GENERAL
UPDATED DURING THESE YEARS.
HEX FORMAT FOR EDIT: 004D
OPERATION 78 - PUT THE HOUR IN THIS FIELD
NO ARGUMENTS ARE REQUIRED FOR OPERATION 78, AND ANY FORMAT MAY BE
USED. UNDER "A" FORMATS, THE HOUR WILL BE RIGHT ADJUSTED IN THE
FIELD.
EXAMPLE: 078
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I---------------------------I--------I----------------
1 I A12 I THE HOUR IS ^ I \ I 20 N
2 I I6 I ^ I ^ I 78 N
THE HOUR IS 1; THE HOUR IS 12 WILL BE PRINTED IF 078 IS GENERAL UPDATED
AT THESE HOURS.
HEX FORMAT FOR EDIT: 004E
OPERATION 79 - PUT THE MINUTE IN THIS FIELD
NO ARGUMENTS ARE REQUIRED FOR OPERATION 79, AND ANY FORMAT MAY BE USED.
UNDER "A" FORMATS, THE MINUTES WILL BE RIGHT ADJUSTED IN THE FIELD.
EXAMPLE: 079
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I F6.0 I ^ I \ I 80 N
2 I F6.0 I ^ I \ I 19(12.)N
3 I F6.0 I ^ I \ I 15(1,2)N
4 I F6.0 I ^ I \ I 79 N
5 I F6.0 I ^ I \ I 78 N
6 I F6.0 I ^ I \ I 19(5,0)Y11(5)N
7 I A14 I ZULU TIME IS: ^ I \ I 20 N
8 I F6.0 I ^ I \ I 67(0)Y11(6,3)N
9 I A1 I : I \ I 20 N
10 I F6.0 I ^ I ^ I 67(0)Y11(6,1)N
IN 079, THE LOCAL CENTRAL STANDARD TIME IS CONVERTED TO ZULU TIME.
MINUTES ARE RETRIEVED FROM THE REAL TIME CLOCK IN FIELD 4. NOTICE
THAT IF IT IS IN THE AFTERNOON, PM IS EQUAL ONE SO 12 HOURS ARE
ADDED TO THE TIME. SINCE ZULU TIME IS 5 HOURS AHEAD OF CENTRAL
STANDARD TIME, 5 HOURS ARE ADDED TO THE HOURS AND 12 MORE FOR AFTERNOON.
HEX FORMAT FOR EDIT: 004F
OPERATION 80 - PUT AM OR PM IN THE CURRENT FIELD
OPERATION 80 MAY BE FORMATTED INTO ANY FIELD. IT REQUIRES NO ARGUMENTS.
THE FIELD THAT IS TO RECEIVE "PM" OR "AM" WILL BE LEFT ADJUSTED IN
THE FIELD. IF THE FIELD IS NUMERIC (I, F, OR D) THE VALUE WILL BE "0"
FOR "AM OR 1 FOR "PM".
EXAMPLE: 080
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A2 I ^ I \ I 78 N
2 I A1 I : ^ I \ I 20 N
3 I A2 I ^ I \ I 79 N
4 I A1 I ^ I \ I 80 N
5 I A4 I ^ I \ I 80 N
6 I A12 I IS THE TIME . ^ I ^ I 20 N
080 WILL AUTOMATICALLY PICK UP THE CLOCKS AND ADD AM OR PM TO FIELD 5.
TYPICAL OUTPUT:
10:30AM IS THE TIME; 1:16PM IS THE TIME, IF 080 IS UPDATED AT THESE
TIMES.
HEX FORMAT FOR EDIT: 0050
OPERATION 81 - GENERATE FIELD NUMBER FOR OPERATION 52
SET UP TABLE NUMBER FOR OPERATIONS 93,94,
98, 99, 100, 101, AND 102
NO ARGUMENTS ARE REQUIRED FOR OPERATION 81. OPERATION 81 WHEN USED IN
CONJUNCTION WITH OPERATION 52 ESTABLISHES THE FIELD NUMBER FOR IT. IF
AN "I" FIELD THAT CONTAINS AN OPERATION 81 IS NON ZERO BEFORE A FIELD
THAT CONTAINS AN OPERATION 52 IS ENCOUNTERED THE FIELD NUMBER IN THE
OPERATION 81 FIELD WILL OVERRIDE THE FIELD NUMBER ENTERED DURING FORMAT
TIME. OPERATION 81 WHEN USED IN CONJUNCTION WITH OPERATIONS 93,94,98,
99, 100, 101, AND 102, SETS UP THE DESIRED TABLE FOR THAT OPERATION.
EXAMPLE: 081
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I I6 I ENTER TABLE NUMBER ^ I \ I 0 Y 81 N
2 I I6 I ENTER ROW NUMBER IN TABLE^I \ I 0 Y 38 N
3 I D12.2 I ^ I \ I 62 Y 94 N
4 I I6 I ENTER ROW NUMBER IN TOTAL^I \ I 0 Y 51 N
5 I I6 I ENTER COLUMN # IN TOTAL ^ I \ I 0 Y 81 N
6 I D12.2 I ^ I ^ I 11(3,6)Y52(7)N
IN 081, OPERATION 81 IS USED IN FIELD ONE TO ESTABLISH THE TABLE NUMBER
FOR OPERATION 94 IN FIELD 3. IN FIELD 5 OPERATION 81 IS USED TO
ESTABLISH A FIELD NUMBER FOR OPERATION 52 IN FIELD 6.
HEX FORMAT FOR EDIT: 0051
OPERATION 82 - GENERATE FIELD NUMBER FOR SUBSEQUENT OPERATION 53
OPERATION 82 MUST BE IN AN "I" FIELD. NO PARAMETERS OR ARGUMENTS ARE
REQUIRED FOR FORMATTING. OPERATION 53 REQUIRES AN ANSWER FIELD NUMBER
TO BE ENTERED DURING FORMAT TIME. THIS FIELD NUMBER WILL BE OVERRIDDEN
BY ANY NON ZERO "I" FIELD THAT CONTAINS AN OPERATION 82. THIS ALLOWS
THE FIELD NUMBER FOR OPERATION 53 TO BE ENTERED "ON THE FLY".
EXAMPLE: 082
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I-----------------------------I--------I------------
1 I I6 I ENTER ROW # OF VARIABLE ^ I \ I 0 Y 38 N
2 I I6 I ENTER COLUMN # OF VARI. ^ I \ I 0 Y 82 N
3 I D12.3 I ^ I ^ I 62 Y 53 N
IN O82, THE OPERATOR ENTERS THE ROW NUMBER AND COLUMN NUMBER OF SOME
MATRIX, "M", AND THAT VALUE WILL FLASH ON THE SCREEN (DUE TO OPERATION
62) AND WILL BE SET INTO THE CURRENT FIELD AND COLUMN DUE TO OPERATION
53.
HEX FORMAT FOR EDIT: 0052
OPERATION 83 - AUTOMATIC JOB SEQUENCING--TABLE SEARCH PARAMETER
OPERATION 83 REQUIRES NO PARAMETERS DURING FORMATTING. IT IS USED IN
TWO ENTIRELY DIFFERENT AND UNRELATED WAYS. IT IS USED TO RUN REPORTS
FOR ARBITRARY NUMBER OF ROWS VIA OPERATIONS 35 AND 37 AND IT IS USED
TO SET UP THE LAST ROW NUMBER OF A TABLE TO SEARCH USING OPERATION 98.
OPERATION 83 MUST ALWAYS BE IN AN "I" FIELD.
WHEN OPERATION 83 IS USED PRIOR TO AN OPERATION 35 OR 37, THE CONTROL IS
TURNED OVER TO THE CALLED REPORT. IT WILL REMAIN THERE FOR AS MANY ROWS AS
WAS SPECIFIED IN THE LAST FIELD THAT CONTAINED OPERATION 83.
EXAMPLE: 083
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I--------------------------I--------I------------
1 I I6 I ENTER ROWS TO GEN^ I ^ I 0Y83Y35(0,RPT)N
083A
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I--------------------------I--------I------------
1 I I6 I ^ I \ I 117(1,1)Y18(0)Y93N
2 I I6 I ^ I \ I 18(100)Y83N
3 I I6 I ^ I \ I 18(200)Y81N
4 I A30 I ENTER INVENTORY NO. ^ I \ I 0 Y 98 N
5 I I6 I ^ I \ I 18(1)Y38Y81N
6 I I6 I ^ I ^ I 94Y83Y35(0,RUN)N
O83 WILL TURN CONTROL OVER TO RPT FOR AS MANY ROWS AS ARE ENTERED. IN
083A, TABLE 1 IS THE ANSWER TABLE AND TABLE 200 IS THE TABLE TO BE SEARCHED.
IN FIELD 2, 83 IS THE TABLE TO BE SEARCHED. IN FIELD 2, 83 IS USED TO SET UP
ROW 100 AS THE LAST ROW TO BE SEARCHED. IN FIELD 6, THE NUMBER OF MATCHES IS
PICKED UP FROM TABLE 1 (THE ANSWER TABLE) AND IS USED AS PARAMETERIC DATA TO
OPERATION 83 IN ORDER TO RUN "RUN" FOR THE NUMBER OF MATCHES THAT WAS FOUND BY
THE SEARCH ACCOMPLISHED BY OPERATION 98 IN FIELD 4.
HEX FORMAT FOR EDIT: 0053
OPERATION 84 - STORE AND VIEW COMMENTS ACCORDING TO LOGIC TYPE
DURING FORMATTING WHEN OPERATION 84 IS ENTERED THE SYSTEM WILL REQUIRE A
"TYPE" CODE TO BE ENTERED. ONE OF THE FOLLOWING TYPES MUST BE ENTERED.
0 = 0 3 > OR = 0
1 < 0 4 > 0
2 < OR = 0 5 NOT = 0
THE NUMBER THAT WILL BE TESTED AGAINST IS THE VALUE IN THE FIELD THAT
CONTAINED THE LAST OPERATION 33. DURING UPDATING (WHETHER GENERAL OR ITEM
UPDATING) THE SYSTEM STORES DATA WHEN OPERAION 33 IS ENCOUNTERED. WHEN
OPERATION 84 IS THEN ENCOUNTERED, THE SYSTEM WILL LOOK AT THE TYPE CODE, WHICH
IS A PART OF OPERATION 84. IT WILL THEN TEST THE VALUE OF THE STORED DATA
FROM OPERATION 33. IF THE DATA MEETS THE TYPE CODE REQUIREMENTS, THE COMMENTS
THAT HAVE BEEN FORMATTED INTO THE FIELD WILL BE VIEWED ON THE SCREEN, AND WILL
BE ENTERED AS DATA INTO THE CURRENT FIELD. IF THE DATA DOES NOT MEET THE TYPE
CODE REQUIREMENTS NOTHING WILL APPEAR ON THE SCREEN AND BLANKS WILL BE ENTERED
INTO THE FIELD.
EXAMPLE: 084
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I--------------------------I--------I-----------------
1 I D6.1 I ENTER PATIENT'S TEMP ^ I \ I 0 N
2 I D6.1 I ^ I \ I 18(98.6)Y13(1,3()Y33N
3 I A16 I PATIENT TOO HOT ^ I \ I 84(4)N
4 I A16 I PATIENT TOO COLD^ I \ I 84(1)N
5 I A24 I PATIENT NORMAL ^ I \ I 84(0)N
6 I D6.1 I ^ I \ I 11(1,6)Y33N
7 I A12 I PATIENT DEAD ^ I ^ I 84(0)N
IN THE EXAMPLE, THE OPERATOR ENTERS THE PATIENT'S TEMPERATURE (FIELD 1)
IN FIELD 2. 98.6 IS SUBTRACTED FROM THE TEMPERATURE AND THE DIFFERENCE
IS STORED BY OPERATION 33. IN FIELDS 3, 4, AND 5 ONLY ONE COMMENT WILL
BE TRUE. IF THE TEMPERATURE IS 0. BOTH FIELDS 4 AND 5 WILL HAVE THE
COMMENT VIEWED AND PRINTED.
HEX FORMAT FOR EDIT: 0054 000N WHERE N = TYPE CODE 0-5
OPERATION 85 - DISABLES OPERATION 1, 2, 34, 35, 37, 52,
AND 53 IN CALLED REPORTS
OPERATION 85 DISABLES ALL TRANSFER TYPE OF OPERATIONS IN A CALLED REPORT
TO FACILITATE SPEEDY INPUT OF DATA. IT MAY BE USED IN CONJUNCTION WITH
OPERATION 86 WHICH ENABLES THEM AGAIN.
EXAMPLE: INPUT
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I--------------------------I--------I------------
1 I I6 I ENTER INVENTORY # ^ I \ I 0 Y 38 N
2 I A20 I ^ I \ I 53Y34(1)N
3 I A30 I ENTER NAME ^ I \ I 0Y34(2)N
4 I A10 I DATE ^ I \ I 0Y34(3)N
5 I D12.2 I AMOUNT ^ I ^ I 4Y34(4)Y35(0,DELIVR)N
110STR
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I--------------------------I--------I------------
1 I A1 I CNT R ^ I ^ I 85Y65Y88Y35(0,INPUT)N
110RUN
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I--------------------------I--------I------------
1 I I6 I ^ I ^ I 86Y18(1)Y88Y52(INPUT)
IN THE EXAMPLE REPORTS, A SYSTEM HAS BEEN DESIGNED TO ALLOW THE OPERATOR
TO INPUT DATA, CHECK HASH TOTALS AND THEN RUN DATA INTO A FINAL REPORT,
(DELIVR) NOT SHOWN. THE SYSTEM WOULD BE INITIATED BY EXECUTING A GENERAL
UPDATE INTO "110STR" WHICH WOULD TURN CONTROL OVER TO INPUT UNTIL THE OPERATOR
ENTERED A "CONTROL R" AS THE FIRST CHARACTER IN SOME FIELD. OPERATION 53 IN
FIELD 2 OF "INPUT" ALONG WITH OPERATION 34 IN FIELDS 2, 3, 4, AND 5 AS WELL
AS OPERATION 35 IN FIELD 5 WILL BE DEACTIVATED BECAUSE OF OPERATION 85 IN
FIELD 1 OF "110STR".
AFTER ALL DATA HAS BEEN ENTERED INTO "INPUT", AND ITEM UPDATES HAVE BEEN
MADE TO CORRECT ALL ERRORS, A GENERAL UPDATE INTO "110RUN" WILL CAUSE
"INPUT" TO ACTIVATE ALL 34'S, 35'S, AND 53'S SO THAT THE DATA WILL BE
TRANSFERRRED INTO "DELIVR".
HEX FORMAT FOR EDIT: 0055
OPERATION 86 - USED PRIOR TO 52 TO ENABLE 34, 35, AND 37
OPERATION 86 ENABLES 34, 35, AND 37 IN CALLED REPORTS. THESE COULD HAVE
BEEN DISABLED BY SOME OPERATION 85 IN ANOTHER REPORT, OR SOME OPERATION 90 IN
THE CALLED REPORT.
EXAMPLE: CALDRP
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I--------------------------I--------I------------
1 I A30 I NAME OF CLIENT ^ I \ I 0Y90Y34(1)N
2 I D12.2 I DEBIT AMOUNT ^ I \ I 0Y90Y34(2)N
3 I D12.2 I CREDIT AMOUNT ^ I ^ I 0Y4Y0Y90Y34(2)Y
35(0,LED)N
RUN
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I--------------------------I--------I------------
1 I I6 I ^ I ^ I 86Y18(1)Y88Y52Y
(CALDRP,1)N
IN THE EXAMPLE, DATA COULD BE INPUT INTO "CALDRP", HASH TOTALS CHECKED
AND ITEMS UPDATED WITH NO TRANSFER TO "LED", WHEN "RUN" IS GENERAL UP- DATED.
THE ENTIRE REPORT WOULD RUN INTO "LED" BECAUSE ALL 34'S AND 35'S WOULD BE
ACTIVATED FOR ALL ROWS.
HEX FORMAT FOR EDIT: 0056
OPERATION 87 - MAKES LEADING ZER0S INTO ASTERISKS(*******)
OPERATION 87 IS USED IN FLOATING FIELDS ONLY. OPERATION 87 IS FOR
CHECK WRITING AND SPECIAL APPLICATIONS. ASTERISKS REPLACE LEADING
BLANKS. OPERATION 87 MUST BE FIRST IN A FIELD OR SECOND OR THIRD
FOLLOWING A 4, 25, AND/OR 67.
EXAMPLE: 087
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A60 I PAY THIS AMOUNT (45 SPCS)^I \ I 20 N
2 I D12.2 I ENTER AMOUNT TO PAY ^ I ^ I 87 Y 0 N
IN THE EXAMPLE REPORT, 087, THE PRINTOUT WOULD HAVE LEADING ASTERISKS IN
FIELD 2.
PAY THIS AMOUNT ********************1250.98
HEX FORMAT FOR EDIT: 0057
OPERATION 88 - SET DATA IN THIS FIELD AS CONTROL FOR OPERATION
35, 37 OR 52.
OPERATION 88 SETS UP A CONTROL SITUATION ACCORDING TO WHICH OPERATION(S)
IT PRECEEDS. CARE MUST BE TAKEN TO DEACTIVATE ITS USE (USE OPERATION 89)
IF SUBSEQUENT OPERATIONS THAT IT WILL AFFECT ARE USED. OPERATION 88 PICKS
UP THE DATA THAT HAS BEEN ESTABLISHED FOR THE CURRENT FIELD AND 35, 37
AND 52 WILL TRANSFER TO SPECIFIED REPORTS. THESE REPORTS WILL BE UPDATED
ACCORDING TO THE FOLLOWING RULES:
1. IF THE REPORT WAS ENTERED VIA OPERATION 35 OR 37 AND OPERATION 88
IS NON ZERO, CONTROL WILL STAY IN THE REPORT UNTIL THE 88 CHARACTER
IS EQUAL TO THE FIRST CHARACTER OF ANY INPUT STRING, OR A FIELD GOES
TO 0 THAT CONTAINS OPERATION 97.
2. IF THE REPORT IS ENTERED VIA A "52", AND THE VALUE OF OPERATION 88
IS POSITIVE. THE REPORT SPECIFIED WILL BE RUN FROM THE ROW SPECIFIED
BY OPERATION 51 TO THE END OF THE REPORT.
3. IF THE REPORT IS ENTERED VIA A 52 AND THE VALUE OF OPERATION 88 IS
NEGATIVE. THE ROW SPECIFIED BY OPERATION 51 WILL BE RUN AS GENERAL
UPDATE.
EXAMPLE: 088
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I---------------
1 I A1 I (CTRL A) ^ I \ I 65Y88Y35(0,INPUT)N
2 I I6 I ^ I \ I 18Y88Y52(INPUT)N
3 I I6 I ^ I ^ I 18(-1)Y88Y52(INPUT)
IN THE EXAMPLE, 088, FIELD 1 TURNS CONTROL OVER TO "INPUT" UNTIL A
"CONTROL A" IS ENTERED AS THE FIRST CHARACTER OF SOME FIELD (PREFERRABLY
A NUMBER FIELD). FIELD 2 WILL RUN THE ENTIRE "INPUT" REPORT, AND FIELD
3 GENERAL UPDATES ROW 1 OF "INPUT".
HEX FORMAT FOR EDIT: 0058
OPERATION 89 - RESETS OPERATION 88 & 83
OPERATION 88 WORKS WITH OPERATIONS 35, 37 , AND 52 SO CARE MUST BE TAKEN
TO MAKE SURE THAT OPERATION 88 IS DEACTIVATED AFTER ITS USE. OPERATION 83 IS
ALSO RESET BY OPERATION 89.
EXAMPLE: 089
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
2 I I6 I ENTER NUMBER ^ I ^ I 89Y0Y52(RPT1,1)N
IN THE EXAMPLE, 089, FIELD 1 TURNS CONTROL OVER TO "RPT" UNTIL THE
OPERATOR ENTERS "A" AS THE FIRST CHARACTER IN SOME FIELD OR OPERATION 97 IS
ENCOUNTERED IN SOME FIELD THAT GOES TO ZERO. IT SHOULD BE NOTED THAT IF
OPERATION 89 HAD NOT PRECEDED OPERATION 52 IN FIELD 2, THE ENTIRE ROW 1 OR
"RPT1" WOULD HAVE BEEN RUN AS GENERAL UPDATE BECAUSE "A" IS A NEGATIVE BINARY
NUMBER UNDER AN "I" FORMAT. THE DESIRED RESULT IS TO ADD THE VALUE IN FIELD 2
TO FIELD 1 OF "RPT1".
HEX FORMAT FOR EDIT: 0059
OPERATION 90 - INHIBIT OPERATIONS 34, 35, OR 37 IN THE CURRENT FIELD
OPERATION 90 PRIOR TO OPERATION 34,35, OR 37 DISABLES THEM, HOWEVER,
THESE MAY BE ENABLED USING OPERATIONS 86 AND 52 IN ANOTHER REPORT. THIS COULD
BE USED TO INPUT DATA, CHECK HASH TOTALS AND A "RUN" REPORT COULD RUN THE
VALUES INTO ANOTHER REPORT.
EXAMPLE: I/O
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I---------------------------I--------I------------
1 I A30 I NAME ^ I \ I 90Y0Y34(1)N
2 I D12.2 I AMOUNT ^ I ^ I 4Y90Y0Y34(2)Y
35(0,TARGET0)N
RUN
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I---------------------------I--------I----------------
1 I I6 I ^ I ^ I 18(1)Y86Y52(I/O,1)N
IN THE EXAMPLE, DATA WOULD BE ENTERED INTO "I/O" USING GENERAL UPDATING.
OPERATION 90 IN FIELDS 1 AND 2, NO TRANSFER WOULD BE MADE TO "TARGET" TO
TRANSFER THE DATA. HOWEVER, WHEN "RUN" IS GENERAL UPDATED, THE DATA WILL BE
PROCESSED INTO "TARGET" VIA "I/O".
HEX FORMAT FOR EDIT: 005A
OPERATION 91 - REMOVE GENERAL UPDATE FROM THE SPECIFIED REPORT
DURING FORMATTING, IF OPERATION 91 IS ENCOUNTERED, THE SYSTEM WILL
RESPOND WITH "REPORT NAME", AND THE NAME OF THE REPORT MUST BE ENTERED IF ONLY
THE RETURN KEY IS DEPRESSED (NO NAME IS ENTERED) THE SYSTEM WLL REMOVE THE
GENERAL UPDATE FROM THE REPORT ENTERED AS DATA IN THE PREVIOUS "A" FIELD.
EXAMPLE: OP91
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I-----------------------------I--------I------------
1 I A6 I ^ I ^ I 40Y91(RPT)N
OP91A
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I-----------------------------I--------I------------
1 I A6 I REPORT NAME ^ I ^ I 0Y 91( ) N
IN THE FIRST EXAMPLE, OP91, WHEN A GENERAL UPDATE IS ACCOMPLISHED, THE
SYSTEM WILL REMOVE THE GENERAL UPDATE FROM "RPT".
IN THE SECOND EXAMPLE, OP91A, WHEN A GENERAL UPDATE IS ACCOMPLISHED, THE
SYSTEM ASKS "REPORT NAME", AND THE OPERATOR MUST ENTER THE NAME OF A REPORT
THAT IS TO HAVE ITS GENERAL UPDATE REMOVED.
HEX FORMAT FOR EDIT: 005B NNNN AAAA MMEE WHERE NNNN AAAA MMEE IS
ASCII STRING NAMING THE
REPORT
OPERATION 92 - REMOVE THE REPORT SPECIFIED
DURING FORMATTING, IF OPERATION 92 IS ENTERED THE SYSTEM WILL RESPOND
WITH "REPORT NAME", AND THE NAME OF THE REPORT MUST BE ENTERED. IF ONLY THE
RETURN KEY IS DEPRESSED (NO REPORT NAME IS ENTERED) THE SYSTEM WILL REMOVE THE
REPORT ENTERED AS DATA IN THE PREVIOUS "A" DATA FIELD.
EXAMPLE: 092
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A6 I ^ I ^ I 92(REPRT1)N
092A
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A6 I NAME OF REPORT TO REMOVE ^I ^ I 0 Y 92()N
IN THE FIRST EXAMPLE, 092, WHEN A GENERAL UPDATE IS ACCOMPLISHED, REPRT1
WILL BE REMOVED FROM THE CURRENT FILE.
IN THE SECOND EXAMPLE, 092A, WHEN A GENERAL UPDATE IS ACCOMPLISHED, THE
QUERY "ENTER NAME OF REPORT TO BE REMOVED" WILL BE VIEWED AND ONE MUST KEY IN
THE NAME OF THE REPORT TO BE REMOVED.
HEX FORMAT FOR EDIT: 005C NNNN AAAA MMEE WHERE NNNN AAAA MMEE IS AN
ASCII STRING NAMING THE
REPORT TO REMOVE
OPERATION 93 - STORE THE DATA IN THE CURRENT FIELD INTO THE TABLE
SPECIFIED BY THE LAST OPERATION 81 AND ROW NUMBER
SPECIFIED BY THE LAST OPERATION 51
THE SYSTEM HAS AN INHERENT SET OF TABLES, NUMBERED FROM 1 AND CONTINUING
FOR AS MANY AS IS UTILIZED. ALL TABLES ARE SINGLE COLUMN MATRICES (OR
REPORTS). A TABLE CAN BE ESTABLISHED ONLY BY OPERATION 93, WHICH STORES DATA
INTO THE TABLE AND THEREFORE ESTABLISHES IT. OPERATION 100 CANNOT ESTABLISH A
DIRECTORY FOR A TABLE UNTIL OPERATION 93 HAS BEEN EXECUTED AGAINST THE TABLE.
TABLES DO NOT EXIST UNTIL DATA IS STORED INTO THEM BY AN OPERATION 93. NO
RETRIEVING, SEARCHING, OR STORING OPERATIONS PERTAINING TO TABLES WILL OPERATE
CORRECTLY UNTIL THE "93" HAS BEEN RUN AGAINST THEM.
TABLES CAN BE OF ANY FORMAT, AND CAN BE USED ACROSS FORMATS, I.E., AN "A"
TABLE CAN LATER BE USED AS AN "I", "D", OR "F" FORMAT. HOWEVER, CARE MUST BE
USED IF DATA IS STORED AS AN "A" AND LATER IS PICKED UP AS "I" DATA. WHEN DATA
IS USED IN A TABLE ACROSS FORMATS, ONE MUST KNOW WHAT THE BINARY (OR
HEXADECIMAL) EQUIVALENT OF ONE IS TO ANOTHER FOR MEANINGFUL PROCESSING OF DATA
TO BE ACCOMPLISHED. A FURTHER DISCUSSION OF TABLES IS INCLUDED IN APPENDIX D.
EXAMPLE: 093
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I I6 I TABLE NUMBER ^ I \ I 0 Y 81 N
2 I I6 I ROW NUMBER ^ I \ I 0 Y 51 N
3 I D12.2 I DATA ^ I ^ I 0 Y 93 N
IN THE EXAMPLE, 093, FIELD 1 ESTABLISHES THE TABLE, FIELD 2 ESTABLISHES
THE ROW AND FIELD 3 STORES THE DATA INTO THE SPECIFIED TABLE.
HEX FORMAT FOR EDIT: 005D
OPERATION 94 - BRING DATA INTO THE CURRENT FIELD FROM THE TABLE
SPECIFIED BY THE LAST OPERATION 81 AND ROW SPECIFIED
BY THE LAST OPERATION 38
TWO ARGUMENTS, OPERATION 81 AND 38, MUST BE ESTABLISHED PRIOR TO
OPERATION 94. OPERATION 81 SETS UP THE TABLE NUMBER AND OPERATION 38 SETS UP
THE ROW NUMBER IN THAT TABLE.
EXAMPLE: 094
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I I6 I TABLE NUMBER ^ I \ I 0 Y 81 N
2 I I6 I ROW NUMBER ^ I \ I 0 Y 38 N
3 I A30 I ^ I ^ I 62 Y 94 N
IN THE EXAMPLE, 094, FIELD 1 SETS UP THE TABLE, FIELD 2 SETS UP THE ROW
NUMBER, AND FIELD 3 RETRIEVES THE DATA, FLASHES IT ON THE SCREEN AND PLACES IT
IN THE CURRENT FIELD.
HEX FORMAT FOR EDIT: 005E
OPERATION 95 - SEARCH THE FOREIGN REPORT (SPECIFIED BY THE LAST "A"
FIELD) FOR DATA AND BRING THE ANSWER BACK TO THIS FIELD
OPERATION 95 OPERATES EXACTLY LIKE OPERATION 1, EXCEPT THE NAME OF THE
REPORT IS GOTTEN FROM DATA ENTERED INTO THE PREVIOUS FIELD, WHICH MUST BE AT
LEAST AN "A6".
WHILE FORMATTING A REPORT, AND OPERATION 95 IS ENTERED, THE SYSTEM WILL
IMMEDIATELY RESPOND WITH "REPORT NAME". BECAUSE THE NAME TO BE USED IS ENTERED
"ON THE FLY", THE RETURN KEY MAY BE PRESSED AT THIS TIEM. THE SYSTEM THEN WILL
RESPOND WITH "ANSWER FIELD" AND THE FIELD THE FOREIGN REPORT CONTAINING THE
DESIRED ANSWER MUST BE ENTERED.
OPERATION 95 OPERATES IN CONJUNCTION WITH OPERATION 28. OPERATION 28 SETS
UP SEARCH DATA FOR OPERATION 95, AND WHEN 28 IS ENTERED THE SYSTEM WILL
RESPOND WITH "FIELD" AND AT THIS POINT THE FIELD TO SEARCH IN THE FOREIGN
REPORT MUST BE ENTERED. NEXT THE SYSTEM WILL TRANSMIT "TYPE" AND ONE OF THE
FOLLOWING SEARCH TYPES MUST BE ENTERED:
0 =
1 <
2 < OR =
3 > OR =
4 >
5 NOT=
EXAMPLE: 095
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A6 I NAME ^ I \ I 0Y28(1,0)N
2 I D12.2 I AMOUNT ^ I \ I 0Y28(4,4)N
3 I A6 I NAME OF REPORT TO SEARCH^ I \ I 0 N
4 I F10.2 I ^ I ^ I 95( ,5)N
IN THIS EXAMPLE, THE FIRST 2 FIELDS SET UP SEARCH DATA FOR FIELD 4. THE
DATA IS ENTERED FROM THE KEYBOARD IN FIELD 1 AND WILL HAVE TO EXACTLY MATCH
SOME FIELD 1 OF DATA IN THE FOREIGN REPORT AND THE VALUE ENTERED IN FIELD 2
MUST BE LESS THAN SOME FIELD 4 IN THE FOREIGN REPORT. FIELD 3 REQUIRES THAT
THE NAME OF THE REPORT TO BE SEARCHED, BE ENTERED FROM THE KEYBOARD, AND FIELD
4 EXECUTES THE SEARCH, BRINGING BACK THE FIRST COLUMN 5 OF DATA THAT MEETS THE
DATA REQUIREMENTS ESTABLISHED IN FIELDS 1 AND 2.
HEX FORMAT FOR EDIT: 005F HHHH HHHH HHHH 000#
WHERE THE 2ND-4TH WORDS ARE THE ASCII REPORT NAME
AND # IS THE LOGIC TYPE
OPERATION 96 - PRINT THE ROW OF THE CURRENT REPORT SPECIFIED BY THIS
INTEGER VALUE CONTAINED IN THIS FIELD, IF THE VALUE IS
NON ZERO
OPERATION 96 MUST BE THE FIRST OPERATION IN AN "I" FIELD. THE PRINT
REPORT MUST BE UNDER OPERATION 36 IN ORDER TO WORK. OPERATION 36 IS EXECUTED
ONLY DURING PRINT CYCLE, AND OPERATION 96 WORKS IN CONJUNCTION WITH 36 IN
ORDER TO PRINT MORE THAN ONE ROW OF DATA WHEN THAT ROW IS BEING PRINTED UNDER
OPERATION 36. OPERATION 96 IS A MECHANISM TO "LINK" ROWS TOGETHER.
EXAMPLE: 096
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A30 I NAME ^ I \ I 0 N
2 I I6 I NEXT ROW TO PRINT ^ I ^ I 96 Y 0 N
SPIES
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A30 I KNOWN SPIES (11SPCS) ^ I \ I 20 N
2 I I6 I BEGINNING ROW # IN 096 ^ I ^ I 36 (096) Y 0 N
TWO REPORTS ARE NEEDED FOR THE EXAMPLE BECAUSE 96 WORKS UNDER 36. INPUT
INTO "096" AND "SPIES" MUST BE IN SYNC SO THAT WHEN "SPIES" IS PRINTED CONTROL
WILL PASS TO "096" WHERE FIELD 1 (A30) WILL BE PRINTED. THE SYSTEM WILL
EXAMINE THE DATA IN FIELD 2; IF IT IS NON ZERO THAT ROW NUMBER WILL BE
PRINTED. WHEN DATA IN FIELD 2 IS FOUND TO BE ZERO, CONTROL WILL PASS BACK TO
"SPIES".
HEX FORMAT FOR EDIT: 0060
OPERATION 97 - RESETS OPERATION 83 COUNTER AND DISABLES
OPERATION 88'S CONTROL CHARACTER
OPERATION 97 IS USED WITH "I", "F", OR "D" FORMATS. OPERATION 97 IS USED
IN "CALLED REPORTS" TO ENABLE RETURNS TO THE "CALLING REPORTS". TO REVIEW,
OPERATION 83 ESTABLISHES THE NUMBER OF ROWS TO GENERATE WHEN OPERATION 35 OR
37 IS ENCOUNTERED (35 AND 37 CAUSE CONTROL TO PASS TO A SPECIFIED REPORT).
OPERATION 88 MODIFIES OPERATIONS 35 OR 37 TO REMAIN IN THE CALLED REPORT UNTIL
AN ESTABLISHED CONTROL CHARACTER IS ENTERED FROM THE INPUT KEYBOARD.
OPERATION 97 DISABLES THESE WHEN THE VALUE IN THE FIELD IS ZERO.
EXAMPLE: 083
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I I6 I # OF ROWS TO AUTO GEN^ I ^ I 0Y83Y35(0,GEN)N
088
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A1 I ENTER CONTROL CHARACTER ^ I ^ I 0Y88Y35(0,GEN)N
GEN
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I A12 I NAME ^ I \ I 0 N
2 I A12 I ADDRESS ^ I \ I 0 N
3 I I6 I ENTER # TO CONTINUE ^ I ^ I 0 Y 97 N
THREE REPORTS, 083, 088, AND GEN, FORM THE EXAMPLE. "083" TURNS CONTROL
IMMEDIATELY OVER TO "GEN" FOR THE NUMBER OF TIMES SPECIFIED BY THE INPUT
KEYBOARD OR UNTIL A ZERO IS INPUT IN FIELD 3 OF "GEN". "088" REQUIRES THE
INPUT KEYBOARD TO ENTER THE CONTROL CHARACTER FOR RETURNING FROM "GEN". THE
SYSTEM GOES IMMEDIATELY TO "GEN" AND STAYS THERE UNTIL THE SPECIFIED CONTROL
CHARACTER IS ENTERED OR UNTIL FIELD 3 CONTAINS ZERO.
HEX FORMAT FOR EDIT: 0061
OPERATION 98 - SEARCH A TABLE: PUT THE ROW NUMBER OF MATCHES IN ROW
ONE OF THE ANSWER TABLE, START IN ROW 2 AND
SEQUENTIALLY PUT THE ROW NUMBER OF EACH MATCH
OPERATION 98 USES THE DATA THAT HAS BEEN SET UP IN THE CURRENT FIELD AS
SEARCH DATA INTO A SPECIFIED TABLE. BEFORE 98 CAN BE USED, AN ANSWER TABLE
MUST BE ESTABLISHED. THE BEGINNING ROW NUMBER AND THE NUMBER OF ROWS TO BE
SEARCHED MUST BE ESTABLISHED. THE TABLE TO BE SEARCHED MUST BE ESTABLISHED,
AND THE SEARCH DATA ITSELF MUST BE ESTABLISHED. THE ESTABLISHMENT OF THESE
CRITERIA TAKES SEVERAL COLUMNS.
1. THE ANSWER TABLE IS ESTABLISHED BY STORING 0 INTO ROW ONE OF ANY
ARBITRARY "I" FORMAT TYPE TABLE.
2. THE BEGINNING ROW NUMBER IS ESTABLISHED BY OPERATION 38 IN SOME
"I" FIELD PRIOR TO OPERATION 98.
3. THE NUMBER OF ROWS IS ESTABLISHED BY OPERATION 83 IN SOME "I" FIELD.
4. THE TABLE TO BE SEARCHED IS ESTABLISHED BY OPERATION 81 IN SOME "I"
FIELD.
EXAMPLE: SEARCH
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATION
-------I----------I----------------------------I--------I-----------
1 I I6 I ANSWER TABLE ^ I \ I 0 Y 81 N
2 I I6 I ^ I \ I 18(0) Y 93 N
3 I I6 I BEGINNING ROW # ^ I \ I 0 Y 38 N
4 I I6 I NUMBER OF ROWS ^ I \ I 0 Y 83 N
5 I I6 I TABLE TO BE SEARCHED ^ I \ I 0 Y 81 N
6 I A10 I DATA TO SEARCH FOR ^ I \ I 0 Y 98 N
7 I I6 I ^ I \ I 18(2) Y 38 N
8 I I6 I ^ I \ I 10(1,8) Y 81 N
9 I I6 I ^ I \ I 94 Y 38 N
10 I I6 I ^ I \ I 18(5) Y 81 N
11 I I6 I ^ I ^ I 62 Y 94 N
IN THE EXAMPLE, FIELD 1 AND 2 SET UP THE ANSWER TABLE BY PLACING 0 INTO
THE TABLE SPECIFIED BY INPUT. THE BEGINNING ROW AND NUMBER OF ROWS TO SEARCH
ARE ESTABLISHED IN FIELDS 3 AND 4. FIELD 5 SETS UP THE TABLE TO BE SEARCHED
AND FIELD 6 RECEIVES THE DATA AND EXECUTES THE SEARCH, THE ANSWER TABLE, ROW
2, IS ACCESSED BY FIELDS 7,8, AND 9. ROW 2 OF THE ANSWER TABLE 5 IS
CONSIDERED A "PSEUDO" ANSWER TABLE IN THAT ITS ROWS TRACK THE SEARCHED TABLE.
IN THIS CASE THE ANSWER RETRIEVED IN FIELD 11 (D12.2) WILL BE FLASHED ON THE
SCREEN AND CAPTURED.
HEX FORMAT FOR EDIT: 0062
OPERATION 99 - ADD VALUE IN THIS FIELD TO THE ROW SPECIFIED BY THE LAST
OPERATION 38 IN THE TABLE SPECIFIED BY THE LAST OPERATION 81
OPERATION 99 WILL ADD THE CONTENTS OF THE CURRENT FIELD TO THE ROW
SPECIFIED BY THE LAST OPERATION 38 IN THE TABLE SPECIFIED BY THE LAST
OPERATION 81. NO ARGUMENTS ARE ASKED FOR DURING FORMATTING. IF ANY ITEM IN A
ROW OF DATA IS "ITEM UPDATED", THE DATA CONTAINED IN FIELDS THAT CONTAIN
OPERATION 99 WILL BE SUBTRACTED FROM THE NEW COMPUTED VALUE AND THIS RESULT
WILL BE ADDED TO THE ROW IN THE TABLE SPECIFIED. IN ANY CASE, THE RESULT OF
THE ADDITION WILL BE IN THE FIELD'S REGISTER AND MAY BE OBTAINED FOR
PROCESSING BY ADDING THE FIELD TO A ZERO FIELD.
EXAMPLE: ADTBLE
FIELD I FORMAT I COMMENTS I \ OR ^ I OPERATIONS
-------I----------I----------------------------I--------I------------
1 I I6 I TABLE NUMBER ^ I \ I 0 Y 81 N
2 I I6 I ROW NUMBER ^ I \ I 0 Y 38 N
3 I D12.2 I AMOUNT TO ADD ^ I ^ I 0 Y 99 N
IN THE ABOVE EXAMPLE, ADTBLE, DURING A GENERAL UPDATE , ONE MUST ENTER A
TABLE NUMBER AND ROW NUMBER FOLLOWED BY THE AMOUNT TO BE ADDED TO THAT TABLE.
HEX FORMAT FOR EDIT: 0063
Gass Index