cdc:nos2.source:opl.opl871:deck:sform.003
Deck SFORM Part 003
49 Modifications
Listing Sections
- Deck SFORM Start
- Deck SFORM Part 1 (Line 1453)
- Deck SFORM Part 2 (Line 3127)
- Deck SFORM Part 3 (Line 4583)
- Deck SFORM Part 4 (Line 5960)
- Deck SFORM Part 5 (Line 7272)
Source
Seq # *Modification Id* Act ----------------------------+ 04583 M01S02834.ns2605 ---|IF SLENGTH EQ 0 THEN 04584 M01S02835.ns2605 ---| BEGIN # IF ZERO OUTSTRING COUNT # 04585 M01S02836.ns2605 ---| NUMOTCHARS = PANNUMBYTE[0] * 2; # ASSUME WORST CASE # 04586 M01S02837.ns2605 ---| END 04587 M01S02838.ns2605 ---|ELSE 04588 M01S02839.ns2605 ---| BEGIN 04589 M01S02840.ns2605 ---| NUMOTCHARS = SLENGTH; # SET NUMBER OF CHARACTERS # 04590 M01S02841.ns2605 ---| END
| Line S00297 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04591 M01S00297.ns2605 +++|IF SLENGTH GR NUMVDCHARS * 2 OR SLENGTH LQ 0 THEN 04592 M01S00298.ns2605 +++| SLENGTH = NUMVDCHARS * 2; # IF LENGTH ADJUSTMENT NEEDED #
| Line S02842 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04593 M01S02842.ns2605 ---|WHYLE NUMOTCHARS NQ 0 AND NUMVDCHARS NQ 0 DO
| Line S00299 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04594 M01S00299.ns2605 +++|NUMOTCHARS = 0; # INITIALIZE LOOP # 04595 M01S00300.ns2605 +++|WHYLE NUMOTCHARS LS SLENGTH AND NUMVDCHARS GR 0 DO 04596 M00S02843.sform +++| BEGIN # TRANSLATE CHARACTERS #
| Line S02844 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04597 M01S02844.ns2605 ---| NUMOTCHARS = NUMOTCHARS - 1; # DECREMENT OUTSTRING COUNT #
| Line S00301 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04598 M01S00301.ns2605 +++| NUMOTCHARS = NUMOTCHARS + 1; # INCREMENT OUTSTRING COUNT #
| Line S02845 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04599 M01S02845.sform8 ---| ASCIICHR = B<6*FROMCHAROS,6>FROMWORD;
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04600 M01S00007.sform8 +++| ASCIICHR = B<6*FROMCHAROS,6>FROMSTRIU[FROMINDEX]; 04601 M00S02846.sform +++| FROMCHAROS = FROMCHAROS + 1; # UPDATE FROMSTRING CHAR. OFFSET # 04602 M00S02847.sform +++| IF FROMCHAROS EQ 10 THEN 04603 M00S02848.sform +++| BEGIN # IF FROMSTRING WORD EXHAUSTED #
| Line S02849 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04604 M01S02849.sform8 ---| FROMINDEX = FROMINDEX + 1; # GET NEXT WORD FROM FROMSTRING # 04605 M01S02850.sform8 ---| FROMWORD = FROMSTRIU[FROMINDEX]; 04606 M01S02851.sform8 ---| FROMCHAROS = 0; # RESET CHARACTER OFFSET #
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04607 M01S00008.sform8 +++| FROMINDEX = FROMINDEX + 1; # UPDATE FROMSTRING WORD INDEX # 04608 M01S00009.sform8 +++| FROMCHAROS = 0; 04609 M00S02852.sform +++| END 04610 M00S02853.sform +++| IF ESCAPECODE NQ 0 THEN 04611 M00S02854.sform +++| BEGIN # IF HALF WAY THROUGH TWELVE BIT # 04612 M00S02855.sform +++| IF ESCAPECODE EQ 62 THEN 04613 M00S02856.sform +++| BEGIN # IF LOWER CASE ALPHABETIC # 04614 M00S02857.sform +++| ASCII8CHR = ASCIICHR + 96; 04615 M00S02858.sform +++| END 04616 M00S02859.sform +++| ELSE 04617 M00S02860.sform +++| BEGIN # IF SPECIAL ASCII CHARACTER # 04618 M00S02861.sform +++| ASCII8CHR = AS2A8[ASCIICHR]; 04619 M00S02862.sform +++| END 04620 M00S02863.sform +++| ESCAPECODE = 0; # CLEAR ESCAPE CODE # 04621 M00S02864.sform +++| END 04622 M00S02865.sform +++| ELSE 04623 M00S02866.sform +++| BEGIN # IF SIX BIT ASCII CHARACTER # 04624 M00S02867.sform +++| IF ASCIICHR NQ 60 AND ASCIICHR NQ 62 THEN 04625 M00S02868.sform +++| BEGIN # IF NOT ESCAPE CODE # 04626 M00S02869.sform +++| ASCII8CHR = DC2A8[ASCIICHR]; 04627 M00S02870.sform +++| END 04628 M00S02871.sform +++| ELSE 04629 M00S02872.sform +++| BEGIN 04630 M00S02873.sform +++| ESCAPECODE = ASCIICHR; # SAVE ESCAPE CODE # 04631 M00S02874.sform +++| END 04632 M00S02875.sform +++| END 04633 M00S02876.sform +++| IF ESCAPECODE EQ 0 THEN 04634 M00S02877.sform +++| BEGIN # IF CHARACTER TO MOVE # 04635 M00S02878.sform +++| NUMVDCHARS = NUMVDCHARS - 1; # DECREMENT VARDATA COUNT #
| Line S02879 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04636 M01S02879.sform8 ---| B<6*TOCHAROS,12>TOWORD = ASCII8CHR;
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04637 M01S00010.sform8 +++| B<6*TOCHAROS,12>TOSTRIU[TOINDEX] = ASCII8CHR; 04638 M00S02880.sform +++| TOCHAROS = TOCHAROS + 2; # UPDATE TOSTRING CHAR. OFFSET # 04639 M00S02881.sform +++| IF TOCHAROS EQ 10 THEN 04640 M00S02882.sform +++| BEGIN # IF TOSTRING WORD IS FULL #
| Line S02883 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04641 M01S02883.sform8 ---| TOSTRIU[TOINDEX] = TOWORD; # STORE NEXT WORD INTO TOSTRING # 04642 M01S02884.sform8 ---| TOINDEX = TOINDEX + 1;
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04643 M01S00011.sform8 +++| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX # 04644 M00S02885.sform +++| TOCHAROS = 0; # RESET CHARACTER OFFSET # 04645 M00S02886.sform +++| END
| Line S02887 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04646 M01S02887.sform8 ---| END 04647 M01S02888.sform8 ---| END 04648 M01S02889.sform8 ---|IF TOCHAROS NQ 0 THEN 04649 M01S02890.sform8 ---| BEGIN # IF PARTIAL WORD TO MOVE # 04650 M01S02891.sform8 ---| FOR NUMVDCHARS = 0 STEP 2 UNTIL TOCHAROS - 2 DO 04651 M01S02892.sform8 ---| BEGIN # MOVE ONLY REQUIRED CHARACTERS # 04652 M01S02893.sform8 ---| B<6*NUMVDCHARS,12>TOSTRIU[TOINDEX] = B<6*NUMVDCHARS,12>TOWORD; 04653 M00S02894.sform +++| END 04654 M00S02895.sform +++| END
| Line S00302 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04655 M01S00302.ns2605 +++|WHYLE FILL AND NUMVDCHARS GR 0 DO 04656 M01S00303.ns2605 +++| BEGIN 04657 M01S00304.ns2605 +++| NUMVDCHARS = NUMVDCHARS - 1; 04658 M01S00305.ns2605 +++| C<TOCHAROS,2>TOSTRIU[TOINDEX] = B<48,12>SPACE; 04659 M01S00306.ns2605 +++| TOCHAROS = TOCHAROS + 2; # UPDATE TOSTRING OFFSET # 04660 M01S00307.ns2605 +++| IF TOCHAROS EQ 10 THEN 04661 M01S00308.ns2605 +++| BEGIN # IF TOSTRING WORD EXHAUSTED # 04662 M01S00309.ns2605 +++| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX # 04663 M01S00310.ns2605 +++| TOCHAROS = 0; 04664 M01S00311.ns2605 +++| END 04665 M01S00312.ns2605 +++| END 04666 M00S02896.sform +++| 04667 M00S02897.sform +++|END # MVASA8 # 04668 M00S02898.sform +++|CONTROL EJECT; 04669 M00S02899.sform +++|
| Line S02900 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04670 M01S02900.ns2605 ---|PROC MVA8AS(STRINGOS,SLENGTH);
| Line S00313 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04671 M01S00313.ns2605 +++|PROC MVA8AS(STRINGOS,VAROS,SLENGTH,NUMVDCHARS,FILL); 04672 M00S02901.sform +++| 04673 M00S02902.sform +++|# TITLE MVA8AS - MOVE AND TRANSLATE ASCII8 TO ASCII. # 04674 M00S02903.sform +++| 04675 M00S02904.sform +++|BEGIN # MVA8AS # 04676 M00S02905.sform +++| 04677 M00S02906.sform +++|# 04678 M00S02907.sform +++|** MVA8AS - MOVE AND TRANSLATE ASCII8 TO ASCII. 04679 M00S02908.sform +++|* 04680 M00S02909.sform +++|* THIS PROCEDURE MOVES THE CHARACTER DATA FROM VARDATA TO 04681 M00S02910.sform +++|* INSTRING AFTER A READ, USING THE BASED ARRAYS FROMSTRING 04682 M00S02911.sform +++|* AND TOSTRING, TRANSLATING FROM ASCII8 TO ASCII. 04683 M00S02912.sform +++|*
| Line S02913 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04684 M01S02913.ns2605 ---|* PROC MVA8AS(STRINGOS,SLENGTH)
| Line S00314 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04685 M01S00314.ns2605 +++|* PROC MVA8AS(STRINGOS,VAROS,SLENGTH,NUMVDCHARS,FILL) 04686 M00S02914.sform +++|* 04687 M00S02915.sform +++|* ENTRY BASED ARRAYS FROMSTRING AND TOSTRING POSITIONED. 04688 M00S02916.sform +++|* STRINGOS = THE CHARACTER OFFSET INTO INSTRING.
| Line S00315 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04689 M01S00315.ns2605 +++|* VAROS = THE CHARACTER OFFSET INTO VARDATA. 04690 M00S02917.sform +++|* SLENGTH = INSTRING LENGTH IN SIX BIT CHARACTERS.
| Line S00316 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04691 M01S00316.ns2605 +++|* NUMVDCHARS = NUMBER OF CHARACTERS IN VARDATA. 04692 M01S00317.ns2605 +++|* FILL = TRUE IF BLANK FILL REQUIRED. 04693 M00S02918.sform +++|* 04694 M00S02919.sform +++|* EXIT STRING MOVED AND TRANSLATED. 04695 M00S02920.sform +++|*
| Line S02921 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04696 M01S02921.ns2605 ---|* NOTES SINCE INSTRING IS DEFINED IN THE APPLICATION PROGRAM
| Line S02922 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04697 M02S02922.ns2605 ---|* AND THUS DOES NOT NECESSARILY START ON A WORD BOUNDARY 04698 M02S02923.ns2605 ---|* FROMCHAROS IS SET TO STRINGOS BEFORE THE LOOP IS BEGUN.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04699 M02S00012.ns2605 ---|* AND THUS DOES NOT NECESSARILY START ON A WORD BOUNDARY, 04700 M02S00013.ns2605 ---|* TOCHAROS IS SET TO STRINGOS BEFORE THE LOOP IS BEGUN.
| Line S02924 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04701 M01S02924.ns2605 ---|* ALSO SLENGTH IS NOT NECESSARILY THE NUMBER OF CHARACTERS
| Line S00318 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04702 M01S00318.ns2605 +++|* NOTE SLENGTH IS NOT NECESSARILY THE NUMBER OF CHARACTERS 04703 M00S02925.sform +++|* (SINCE THEY CAN BE EITHER SIX OR TWELVE BITS LONG) BUT 04704 M00S02926.sform +++|* RATHER THE NUMBER OF SIX BIT PARCELS IN INSTRING. 04705 M00S02927.sform +++|# 04706 M00S02928.sform +++|ITEM STRINGOS I; # CHARACTER OFFSET / OUTSTRING # 04707 M00S02929.sform +++|ITEM SLENGTH I; # LENGTH IN SIX BIT CHARACTERS #
| Line S00319 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04708 M01S00319.ns2605 +++|ITEM VAROS I; # CHARACTER OFFSET / VARDATA # 04709 M01S00320.ns2605 +++|ITEM NUMVDCHARS I; # NUMBER OF CHARS. IN VARDATA # 04710 M01S00321.ns2605 +++|ITEM FILL B; # TRUE IF BLANK FILL REQUIRED # 04711 M00S02930.sform +++| 04712 M00S02931.sform +++|ITEM ASCIICHR I; # HOLDS AN ASCII CHARACTER # 04713 M00S02932.sform +++|ITEM ASCII8CHR I; # HOLDS AN ASCII8 CHARACTER #
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04714 M01S00014.sform8 +++|ITEM ESCAPECODE I; # ESCAPE CODE # 04715 M00S02933.sform +++|ITEM FROMCHAROS I; # CHARACTER OFFSET / FROMSTRING # 04716 M00S02934.sform +++|ITEM FROMINDEX I; # INDEX INTO FROMSTRING #
| Line S02935 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04717 M01S02935.sform8 ---|ITEM FROMWORD I; # HOLDS A WORD FROM FROMSTRING #
| Line S02936 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04718 M01S02936.ns2605 ---|ITEM NUMVDCHARS I; # NUMBER OF CHARS. IN VARDATA # 04719 M00S02937.sform +++|ITEM NUMINCHARS I; # NUMBER OF CHARS. IN INSTRING #
| Line S02938 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04720 M01S02938.sform8 ---|ITEM ESCAPECODE I; # ESCAPE CODE # 04721 M00S02939.sform +++|ITEM TOCHAROS I; # CHARACTER OFFSET / TOSTRING # 04722 M00S02940.sform +++|ITEM TOINDEX I; # INDEX INTO TOSTRING #
| Line S02941 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04723 M02S02941.ns2605 ---|ITEM TOWORD I; # HOLDS A WORD FOR TOSTRING # 04724 M00S02942.sform +++| 04725 M00S02943.sform +++|FROMINDEX = 0; # GET FIRST WORD FROM FROMSTRING #
| Line S02944 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04726 M01S02944.sform8 ---|FROMWORD = FROMSTRIU[FROMINDEX];
| Line S02945 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04727 M01S02945.ns2605 ---|FROMCHAROS = 0; # NO CHARACTER OFFSET / VARDATA #
| Line S00322 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04728 M01S00322.ns2605 +++|FROMCHAROS = VAROS; # CHARACTER OFFSET / VARDATA # 04729 M00S02946.sform +++|TOINDEX = 0; 04730 M00S02947.sform +++|TOCHAROS = STRINGOS; # CHARACTER OFFSET / INSTRING # 04731 M00S02948.sform +++|ESCAPECODE = 0; # CLEAR ESCAPE CODE #
| Line S02949 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04732 M01S02949.ns2605 ---|NUMVDCHARS = PANNUMBYTE[0]; # SET VARDATA CHARACTER COUNT # 04733 M01S02950.ns2605 ---|IF SLENGTH EQ 0 THEN 04734 M01S02951.ns2605 ---| BEGIN # IF ZERO INSTRING COUNT # 04735 M01S02952.ns2605 ---| NUMINCHARS = PANNUMBYTE[0] * 2; # ASSUME WORST CASE # 04736 M01S02953.ns2605 ---| END 04737 M01S02954.ns2605 ---|ELSE 04738 M01S02955.ns2605 ---| BEGIN 04739 M01S02956.ns2605 ---| NUMINCHARS = SLENGTH; # SET NUMBER OF CHARACTERS # 04740 M01S02957.ns2605 ---| END 04741 M01S02958.ns2605 ---|WHYLE NUMINCHARS NQ 0 AND NUMVDCHARS NQ 0 DO
| Line S00323 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04742 M01S00323.ns2605 +++|IF SLENGTH LQ 0 THEN SLENGTH = NUMVDCHARS * 2; 04743 M01S00324.ns2605 +++|NUMINCHARS = 0; # INITIALIZE LOOP # 04744 M01S00325.ns2605 +++|WHYLE NUMINCHARS LS SLENGTH AND NUMVDCHARS GR 0 DO 04745 M00S02959.sform +++| BEGIN # TRANSLATE CHARACTERS #
| Line S02960 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04746 M01S02960.sform8 ---| ASCII8CHR = B<6*FROMCHAROS,12>FROMWORD;
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04747 M01S00015.sform8 +++| ASCII8CHR = B<6*FROMCHAROS,12>FROMSTRIU[FROMINDEX]; 04748 M00S02961.sform +++| NUMVDCHARS = NUMVDCHARS - 1; # DECREMENT VARDATA COUNT # 04749 M00S02962.sform +++| FROMCHAROS = FROMCHAROS + 2; # UPDATE FROMSTRING CHAR. OFFSET # 04750 M00S02963.sform +++| IF FROMCHAROS EQ 10 THEN 04751 M00S02964.sform +++| BEGIN # IF FROMSTRING WORD IS EMPTY #
| Line S02965 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04752 M01S02965.sform8 ---| FROMINDEX = FROMINDEX + 1; # GET NEXT WORD FROM FROMSTRING #
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04753 M01S00016.sform8 +++| FROMINDEX = FROMINDEX + 1; # UPDATE FROMSTRING WORD INDEX #
| Line S02966 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04754 M01S02966.sform8 ---| FROMWORD = FROMSTRIU[FROMINDEX]; 04755 M00S02967.sform +++| FROMCHAROS = 0; # RESET CHARACTER OFFSET # 04756 M00S02968.sform +++| END
| Line S02969 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04757 M01S02969.ns2605 ---| IF ASCII8CHR EQ 58 THEN # CHECK FOR COLON # 04758 M01S02970.ns2605 ---| BEGIN
| Line S00326 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04759 M01S00326.ns2605 +++| IF ASCII8CHR GQ 97 THEN 04760 M01S00327.ns2605 +++| BEGIN # IF LOWER CASE # 04761 M01S00328.ns2605 +++| ESCAPECODE = 62; 04762 M01S00329.ns2605 +++| ASCIICHR = ASCII8CHR - 96; # CONVERT TO UPPER CASE # 04763 M01S00330.ns2605 +++| END 04764 M01S00331.ns2605 +++| ELSE IF ASCII8CHR EQ TERASC8ATD[0] THEN 04765 M01S00332.ns2605 +++| BEGIN # IF 64-COLON OR 63-PERCENT # 04766 M00S02971.sform +++| ESCAPECODE = 60; # SET ESCAPE CODE AND CHAR. # 04767 M00S02972.sform +++| ASCIICHR = 04; 04768 M00S02973.sform +++| END
| Line S02974 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04769 M01S02974.ns2605 ---| IF ASCII8CHR EQ 64 THEN # CHECK FOR AT SIGN # 04770 M01S02975.ns2605 ---| BEGIN
| Line S00333 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04771 M01S00333.ns2605 +++| ELSE IF ASCII8CHR EQ 64 THEN 04772 M01S00334.ns2605 +++| BEGIN # IF AT SIGN # 04773 M00S02976.sform +++| ESCAPECODE = 60; # SET ESCAPE CODE AND CHAR. # 04774 M00S02977.sform +++| ASCIICHR = 01; 04775 M00S02978.sform +++| END
| Line S02979 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04776 M01S02979.ns2605 ---| IF ASCII8CHR EQ 94 THEN # CHECK FOR CIRCUMFLEX # 04777 M01S02980.ns2605 ---| BEGIN
| Line S00335 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04778 M01S00335.ns2605 +++| ELSE IF ASCII8CHR EQ 94 THEN 04779 M01S00336.ns2605 +++| BEGIN # IF CIRCUMFLEX # 04780 M00S02981.sform +++| ESCAPECODE = 60; # SET ESCAPE CODE AND CHAR. # 04781 M00S02982.sform +++| ASCIICHR = 02; 04782 M00S02983.sform +++| END
| Line S02984 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04783 M01S02984.ns2605 ---| IF ASCII8CHR EQ 96 THEN # CHECK FOR REVERSE SLANT # 04784 M01S02985.ns2605 ---| BEGIN
| Line S00337 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04785 M01S00337.ns2605 +++| ELSE IF ASCII8CHR EQ 96 THEN 04786 M01S00338.ns2605 +++| BEGIN # IF REVERSE SLANT # 04787 M00S02986.sform +++| ESCAPECODE = 60; # SET ESCAPE CODE AND CHAR. # 04788 M00S02987.sform +++| ASCIICHR = 07; 04789 M00S02988.sform +++| END
| Line S02989 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04790 M01S02989.ns2605 ---| IF ASCII8CHR GQ 97 THEN # CHECK FOR UPPER CASE # 04791 M01S02990.ns2605 ---| BEGIN 04792 M01S02991.ns2605 ---| ESCAPECODE = 62; 04793 M01S02992.ns2605 ---| ASCIICHR = ASCII8CHR - 96; # CONVERT TO LOWER CASE # 04794 M01S02993.ns2605 ---| END 04795 M00S02994.sform +++| IF ESCAPECODE NQ 0 THEN 04796 M00S02995.sform +++| BEGIN # IF TWELVE BIT CHARACTER #
| Line S02996 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04797 M01S02996.ns2605 ---| NUMINCHARS = NUMINCHARS - 1; # DECREMENT CHARACTER COUNT # 04798 M01S02997.ns2605 ---| IF NUMINCHARS NQ 0 THEN
| Line S00339 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04799 M01S00339.ns2605 +++| IF NUMINCHARS LS SLENGTH-1 THEN 04800 M00S02998.sform +++| BEGIN # IF ROOM FOR ALL TWELVE BITS #
| Line S00340 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04801 M01S00340.ns2605 +++| NUMINCHARS = NUMINCHARS + 1; # INCREMENT CHARACTER COUNT #
| Line S02999 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04802 M01S02999.sform8 ---| B<6*TOCHAROS,6>TOWORD = ESCAPECODE;
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04803 M01S00017.sform8 +++| B<6*TOCHAROS,6>TOSTRIU[TOINDEX] = ESCAPECODE; 04804 M00S03000.sform +++| TOCHAROS = TOCHAROS + 1; # UPDATE TOSTRING CHAR. OFFSET # 04805 M00S03001.sform +++| IF TOCHAROS EQ 10 THEN 04806 M00S03002.sform +++| BEGIN # IF TOSTRING WORD IS FULL # 04807 M00S03003.sform +++| TOCHAROS = 0; # RESET CHARACTER OFFSET #
| Line S03004 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04808 M01S03004.sform8 ---| TOSTRIU[TOINDEX] = TOWORD; # STORE WORD INTO TOSTRING # 04809 M01S03005.sform8 ---| TOINDEX = TOINDEX + 1; # UPDATE TOWORD INDEX #
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04810 M01S00018.sform8 +++| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX # 04811 M00S03006.sform +++| END
| Line S03007 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04812 M01S03007.ns2605 ---| NUMINCHARS = NUMINCHARS - 1; # DECREMENT CHARACTER COUNT #
| Line S03008 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04813 M02S03008.ns2605 ---| B<6*TOCHAROS,6>TOWORD = ASCIICHR;
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04814 M02S00019.ns2605 ---| B<6*TOCHAROS,6>TOSTRIU[TOINDEX] = ASCIICHR;
| Line S03009 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04815 M01S03009.ns2605 ---| TOCHAROS = TOCHAROS + 1; # UPDATE TOSTRING CHAR. OFFSET # 04816 M01S03010.ns2605 ---| IF TOCHAROS EQ 10 THEN 04817 M01S03011.ns2605 ---| BEGIN # IF TOSTRING WORD IS FULL # 04818 M01S03012.ns2605 ---| TOCHAROS = 0; # RESET CHARACTER OFFSET #
| Line S03013 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04819 M02S03013.ns2605 ---| TOSTRIU[TOINDEX] = TOWORD; # STORE WORD INTO TOSTRING # 04820 M02S03014.ns2605 ---| TOINDEX = TOINDEX + 1; # UPDATE TOWORD INDEX #
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04821 M02S00020.ns2605 ---| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX #
| Line S03015 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04822 M01S03015.ns2605 ---| END 04823 M00S03016.sform +++| END 04824 M00S03017.sform +++| ESCAPECODE = 0; # CLEAR ESCAPE CODE # 04825 M00S03018.sform +++| END 04826 M00S03019.sform +++| ELSE 04827 M00S03020.sform +++| BEGIN 04828 M00S03021.sform +++| ASCIICHR = A82DC[ASCII8CHR]; # TRANSLATE CHARACTER #
| Line S03022 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04829 M01S03022.ns2605 ---| NUMINCHARS = NUMINCHARS - 1; # DECREMENT CHARACTER COUNT #
| Line S03023 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04830 M02S03023.ns2605 ---| B<6*TOCHAROS,6>TOWORD = ASCIICHR;
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04831 M02S00021.ns2605 ---| B<6*TOCHAROS,6>TOSTRIU[TOINDEX] = ASCIICHR;
| Line S03024 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04832 M01S03024.ns2605 ---| TOCHAROS = TOCHAROS + 1; # UPDATE TOSTRING CHAR. OFFSET # 04833 M01S03025.ns2605 ---| IF TOCHAROS EQ 10 THEN 04834 M01S03026.ns2605 ---| BEGIN # IF TOSTRING WORD IS FULL # 04835 M01S03027.ns2605 ---| TOCHAROS = 0; # RESET CHARACTER OFFSET #
| Line S03028 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04836 M02S03028.ns2605 ---| TOSTRIU[TOINDEX] = TOWORD; # STORE WORD INTO TOSTRING # 04837 M02S03029.ns2605 ---| TOINDEX = TOINDEX + 1; # UPDATE TOWORD INDEX #
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | sform8 |
M02 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04838 M02S00022.ns2605 ---| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX #
| Line S03030 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04839 M01S03030.ns2605 ---| END
| Line S00341 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04840 M01S00341.ns2605 +++| END 04841 M01S00342.ns2605 +++| IF ESCAPECODE EQ 0 THEN 04842 M01S00343.ns2605 +++| BEGIN 04843 M01S00344.ns2605 +++| NUMINCHARS = NUMINCHARS + 1; # INCREMENT CHARACTER COUNT # 04844 M01S00345.ns2605 +++| B<6*TOCHAROS,6>TOSTRIU[TOINDEX] = ASCIICHR; 04845 M01S00346.ns2605 +++| TOCHAROS = TOCHAROS + 1; # UPDATE TOSTRING CHAR. OFFSET # 04846 M01S00347.ns2605 +++| IF TOCHAROS EQ 10 THEN 04847 M01S00348.ns2605 +++| BEGIN # IF TOSTRING WORD IS FULL # 04848 M01S00349.ns2605 +++| TOCHAROS = 0; # RESET CHARACTER OFFSET # 04849 M01S00350.ns2605 +++| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX # 04850 M01S00351.ns2605 +++| END 04851 M01S00352.ns2605 +++| END 04852 M01S00353.ns2605 +++| END 04853 M01S00354.ns2605 +++|WHYLE FILL AND NUMINCHARS LS SLENGTH DO 04854 M01S00355.ns2605 +++| BEGIN # IF BLANK FILL REQUIRED # 04855 M01S00356.ns2605 +++| B<6*TOCHAROS,6>TOSTRIU[TOINDEX] = O"55"; 04856 M01S00357.ns2605 +++| SLENGTH = SLENGTH - 1; # DECREMENT CHARACTER COUNT # 04857 M01S00358.ns2605 +++| TOCHAROS = TOCHAROS + 1; # UPDATE TOSTRING CHAR. OFFSET # 04858 M01S00359.ns2605 +++| IF TOCHAROS EQ 10 THEN 04859 M01S00360.ns2605 +++| BEGIN # IF TOSTRING WORD IS FULL # 04860 M01S00361.ns2605 +++| TOCHAROS = 0; # RESET CHARACTER OFFSET # 04861 M01S00362.ns2605 +++| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX #
| Line S03031 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04862 M01S03031.sform8 ---| END 04863 M01S03032.sform8 ---| END 04864 M01S03033.sform8 ---|IF TOCHAROS NQ 0 THEN 04865 M01S03034.sform8 ---| BEGIN # IF PARTIAL WORD TO MOVE # 04866 M01S03035.sform8 ---| FOR NUMINCHARS = 0 STEP 1 UNTIL TOCHAROS -1 DO 04867 M01S03036.sform8 ---| BEGIN # MOVE ONLY REQUIRED CHARACTERS # 04868 M01S03037.sform8 ---| B<6*NUMINCHARS,6>TOSTRIU[TOINDEX] = B<6*NUMINCHARS,6>TOWORD; 04869 M00S03038.sform +++| END 04870 M00S03039.sform +++| END 04871 M00S03040.sform +++| 04872 M00S03041.sform +++|END # MVA8AS # 04873 M00S03042.sform +++|CONTROL EJECT; 04874 M00S03043.sform +++|
| Line S03044 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04875 M01S03044.ns2605 ---|PROC MVA8DC(STRINGOS,SLENGTH);
| Line S00363 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04876 M01S00363.ns2605 +++|PROC MVA8DC(STRINGOS,VAROS,SLENGTH,NUMVDCHARS,FILL); 04877 M00S03045.sform +++| 04878 M00S03046.sform +++|# TITLE MVA8DC - MOVE AND TRANSLATE ASCII8 TO DISPLAY CODE. # 04879 M00S03047.sform +++| 04880 M00S03048.sform +++|BEGIN # MVA8DC # 04881 M00S03049.sform +++| 04882 M00S03050.sform +++|# 04883 M00S03051.sform +++|** MVA8DC - MOVE AND TRANSLATE ASCII8 TO DISPLAY CODE. 04884 M00S03052.sform +++|* 04885 M00S03053.sform +++|* THIS PROCEDURE MOVES THE CHARACTER DATA FROM VARDATA TO 04886 M00S03054.sform +++|* INSTRING AFTER A READ, USING THE BASED ARRAYS FROMSTRING 04887 M00S03055.sform +++|* AND TOSTRING, TRANSLATING FROM ASCII8 TO DISPLAY CODE. 04888 M00S03056.sform +++|*
| Line S03057 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04889 M01S03057.ns2605 ---|* PROC MVA8DC(STRINGOS,SLENGTH)
| Line S00364 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04890 M01S00364.ns2605 +++|* PROC MVA8DC(STRINGOS,VAROS,SLENGTH,NUMVDCHARS,FILL) 04891 M00S03058.sform +++|* 04892 M00S03059.sform +++|* ENTRY BASED ARRAYS FROMSTRING AND TOSTRING POSITIONED. 04893 M00S03060.sform +++|* STRINGOS = THE CHARACTER OFFSET INTO INSTRING.
| Line S00365 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04894 M01S00365.ns2605 +++|* VAROS = THE CHARACTER OFFSET INTO VARDATA. 04895 M00S03061.sform +++|* SLENGTH = INSTRING LENGTH IN SIX BIT CHARACTERS.
| Line S00366 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04896 M01S00366.ns2605 +++|* NUMVDCHARS = LENGTH OF FIELD OR PANEL STRING. 04897 M01S00367.ns2605 +++|* FILL = TRUE IF BLANK FILL REQUIRED. 04898 M00S03062.sform +++|* 04899 M00S03063.sform +++|* EXIT STRING MOVED AND TRANSLATED. 04900 M00S03064.sform +++|* 04901 M00S03065.sform +++|* NOTES SINCE INSTRING IS DEFINED IN THE APPLICATION PROGRAM 04902 M00S03066.sform +++|* AND THUS DOES NOT NECESSARILY START ON A WORD BOUNDARY 04903 M00S03067.sform +++|* TOCHAROS IS SET TO STRINGOS BEFORE THE LOOP IS BEGUN. 04904 M00S03068.sform +++|# 04905 M00S03069.sform +++|ITEM STRINGOS I; # CHARACTER OFFSET / OUTSTRING # 04906 M00S03070.sform +++|ITEM SLENGTH I; # LENGTH IN SIX BIT CHARACTERS #
| Line S00368 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04907 M01S00368.ns2605 +++|ITEM VAROS I; # VARIABLE CHARACTER OFFSET # 04908 M01S00369.ns2605 +++|ITEM NUMVDCHARS I; # FIELD/PANEL STRING LENGTH # 04909 M01S00370.ns2605 +++|ITEM FILL B; # TRUE IF BLANK FILL REQUIRED # 04910 M00S03071.sform +++| 04911 M00S03072.sform +++|ITEM FROMCHAROS I; # CHARACTER OFFSET / FROMSTRING # 04912 M00S03073.sform +++|ITEM FROMINDEX I; # INDEX INTO FROMSTRING #
| Line S03074 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04913 M01S03074.sform8 ---|ITEM FROMWORD I; # HOLDS A WORD FROM FROMSTRING # 04914 M00S03075.sform +++|ITEM NUMCHARS I; # NUMBER OF CHARACTERS TO TRANS. # 04915 M00S03076.sform +++|ITEM TOCHAROS I; # CHARACTER OFFSET / TOSTRING # 04916 M00S03077.sform +++|ITEM TOINDEX I; # INDEX INTO TOSTRING #
| Line S03078 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04917 M01S03078.sform8 ---|ITEM TOWORD I; # HOLDS A WORD FOR TOSTRING # 04918 M00S03079.sform +++|
| Line S03080 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04919 M01S03080.ns2605 ---|FROMCHAROS = 0; # NO CHARACTER OFFSET / VARDATA #
| Line S00371 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04920 M01S00371.ns2605 +++|FROMCHAROS = VAROS; # CHARACTER OFFSET / VARDATA # 04921 M00S03081.sform +++|FROMINDEX = 0; # GET FIRST WORD FROM VARDATA #
| Line S03082 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04922 M01S03082.sform8 ---|FROMWORD = FROMSTRIU[FROMINDEX]; 04923 M00S03083.sform +++|TOINDEX = 0; 04924 M00S03084.sform +++|TOCHAROS = STRINGOS; # CHARACTER OFFSET / INSTRING #
| Line S03085 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04925 M01S03085.ns2605 ---| 04926 M01S03086.ns2605 ---|IF SLENGTH GR PANNUMBYTE[0] 04927 M01S03087.ns2605 ---| OR SLENGTH EQ 0 THEN 04928 M01S03088.ns2605 ---| BEGIN # IF INSTRING EXCEEDS VARDATA # 04929 M01S03089.ns2605 ---| SLENGTH = PANNUMBYTE[0]; # RESET NUMBER OF CHARS. TO MOVE # 04930 M01S03090.ns2605 ---| END 04931 M01S03091.ns2605 ---|FOR NUMCHARS = 0 STEP 1 UNTIL SLENGTH - 1 DO
| Line S00372 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04932 M01S00372.ns2605 +++|IF SLENGTH LQ 0 THEN SLENGTH = NUMVDCHARS; 04933 M01S00373.ns2605 +++|IF SLENGTH LS NUMVDCHARS THEN NUMVDCHARS = SLENGTH; 04934 M01S00374.ns2605 +++|NUMCHARS = 0; # INITIALIZE CHARACTER COUNT # 04935 M01S00375.ns2605 +++|WHYLE NUMCHARS LS NUMVDCHARS DO
| Line S03092 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04936 M01S03092.sform8 ---| BEGIN # TRANSLATE CHARACTERS # 04937 M01S03093.sform8 ---| B<6*TOCHAROS,6>TOWORD = A82DC[B<6*FROMCHAROS,12>FROMWORD];
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04938 M01S00023.sform8 +++| BEGIN # MOVE AND TRANSLATE CHARACTER #
| Line S00376 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04939 M01S00376.ns2605 +++| NUMCHARS = NUMCHARS +1; # INCREMENT CHARACTER COUNT #
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04940 M01S00024.sform8 +++| B<6*TOCHAROS,6>TOSTRIU[TOINDEX] = 04941 M01S00025.sform8 +++| A82DC[B<6*FROMCHAROS,12>FROMSTRIU[FROMINDEX]]; 04942 M00S03094.sform +++| FROMCHAROS = FROMCHAROS + 2; # UPDATE FROMSTRING CHAR. OFFSET # 04943 M00S03095.sform +++| IF FROMCHAROS EQ 10 THEN 04944 M00S03096.sform +++| BEGIN # IF FROMSTRING WORD IS EMPTY # 04945 M00S03097.sform +++| FROMCHAROS = 0; # RESET CHARACTER OFFSET # 04946 M00S03098.sform +++| FROMINDEX = FROMINDEX + 1; # UPDATE FROMSTRING WORD INDEX #
| Line S03099 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04947 M01S03099.sform8 ---| FROMWORD = FROMSTRIU[FROMINDEX]; # GET NEXT WORD FROM FROMSTRING # 04948 M00S03100.sform +++| END 04949 M00S03101.sform +++| TOCHAROS = TOCHAROS + 1; # UPDATE TOSTRING CHAR. OFFSET # 04950 M00S03102.sform +++| IF TOCHAROS EQ 10 THEN 04951 M00S03103.sform +++| BEGIN # IF TOSTRING WORD IS FULL # 04952 M00S03104.sform +++| TOCHAROS = 0; # RESET CHARACTER OFFSET #
| Line S03105 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04953 M01S03105.sform8 ---| TOSTRIU[TOINDEX] = TOWORD; # STORE WORD INTO TOSTRING # 04954 M01S03106.sform8 ---| TOINDEX = TOINDEX + 1; # UPDATE TOWORD INDEX #
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04955 M01S00026.sform8 +++| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX #
| Line S03107 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 04956 M01S03107.sform8 ---| END 04957 M01S03108.sform8 ---| END 04958 M01S03109.sform8 ---|IF TOCHAROS NQ 0 THEN 04959 M01S03110.sform8 ---| BEGIN # IF PARTIAL WORD TO MOVE # 04960 M01S03111.sform8 ---| FOR NUMCHARS = 0 STEP 1 UNTIL TOCHAROS - 1 DO 04961 M01S03112.sform8 ---| BEGIN # MOVE ONLY REQUIRED CHARACTERS # 04962 M01S03113.sform8 ---| B<6*NUMCHARS,6>TOSTRIU[TOINDEX] = B<6*NUMCHARS,6>TOWORD; 04963 M00S03114.sform +++| END 04964 M00S03115.sform +++| END
| Line S00377 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04965 M01S00377.ns2605 +++|WHYLE FILL AND NUMCHARS LS SLENGTH DO 04966 M01S00378.ns2605 +++| BEGIN # IF BLANK FILL REQUIRED # 04967 M01S00379.ns2605 +++| SLENGTH = SLENGTH - 1; 04968 M01S00380.ns2605 +++| B<6*TOCHAROS,6>TOSTRIU[TOINDEX] = O"55"; 04969 M01S00381.ns2605 +++| TOCHAROS = TOCHAROS + 1; # UPDATE TOSTRING OFFSET # 04970 M01S00382.ns2605 +++| IF TOCHAROS EQ 10 THEN 04971 M01S00383.ns2605 +++| BEGIN # IF TOSTRING WORD IS FULL # 04972 M01S00384.ns2605 +++| TOCHAROS = 0; # RESET CHARACTER OFFSET # 04973 M01S00385.ns2605 +++| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX # 04974 M01S00386.ns2605 +++| END 04975 M01S00387.ns2605 +++| END 04976 M00S03116.sform +++| 04977 M00S03117.sform +++|END # MVA8DC # 04978 M00S03118.sform +++|CONTROL EJECT; 04979 M00S03119.sform +++|
| Line S03120 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04980 M01S03120.ns2605 ---|PROC MVDCA8(STRINGOS,SLENGTH);
| Line S00388 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04981 M01S00388.ns2605 +++|PROC MVDCA8(STRINGOS,VAROS,SLENGTH,NUMVDCHARS,FILL); 04982 M00S03121.sform +++| 04983 M00S03122.sform +++|# TITLE MVDCA8 - MOVE AND TRANSLATE DISPLAY CODE TO ASCII8. # 04984 M00S03123.sform +++| 04985 M00S03124.sform +++|BEGIN # MVDCA8 # 04986 M00S03125.sform +++| 04987 M00S03126.sform +++|# 04988 M00S03127.sform +++|** MVDCA8 - MOVE AND TRANSLATE DISPLAY CODE TO ASCII8. 04989 M00S03128.sform +++|* 04990 M00S03129.sform +++|* THIS PROCEDURE MOVES THE CHARACTER DATA FROM OUTSTRING TO 04991 M00S03130.sform +++|* VARDATA BEFORE A WRITE, USING THE BASED ARRAYS FROMSTRING 04992 M00S03131.sform +++|* AND TOSTRING, TRANSLATING FROM DISPLAY CODE TO ASCII8. 04993 M00S03132.sform +++|*
| Line S03133 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04994 M01S03133.ns2605 ---|* PROC MVDCA8(STRINGOS,SLENGTH)
| Line S00389 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04995 M01S00389.ns2605 +++|* PROC MVDCA8(STRINGOS,VAROS,SLENGTH,NUMVDCHARS,FILL) 04996 M00S03134.sform +++|* 04997 M00S03135.sform +++|* ENTRY BASED ARRAYS FROMSTRING AND TOSTRING POSITIONED. 04998 M00S03136.sform +++|* STRINGOS = THE CHARACTER OFFSET INTO OUTSTRING.
| Line S00390 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 04999 M01S00390.ns2605 +++|* VAROS = THE CHARACTER OFFSET INTO VARDATA. 05000 M00S03137.sform +++|* SLENGTH = OUTSTRING LENGTH IN SIX BIT CHARACTERS.
| Line S00391 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 05001 M01S00391.ns2605 +++|* NUMVDCHARS = LENGTH OF FIELD OR PANEL STRING. 05002 M01S00392.ns2605 +++|* FILL = TRUE IF BLANK FILL REQUIRED. 05003 M00S03138.sform +++|* 05004 M00S03139.sform +++|* EXIT STRING MOVED AND TRANSLATED. 05005 M00S03140.sform +++|* 05006 M00S03141.sform +++|* NOTES SINCE OUTSTRING IS DEFINED IN THE APPLICATION PROGRAM 05007 M00S03142.sform +++|* AND THUS DOES NOT NECESSARILY START ON A WORD BOUNDARY 05008 M00S03143.sform +++|* FROMCHAROS IS SET TO STRINGOS BEFORE THE LOOP IS BEGUN. 05009 M00S03144.sform +++|# 05010 M00S03145.sform +++|ITEM STRINGOS I; # CHARACTER OFFSET / OUTSTRING # 05011 M00S03146.sform +++|ITEM SLENGTH I; # LENGTH IN SIX BIT CHARACTERS #
| Line S00393 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 05012 M01S00393.ns2605 +++|ITEM VAROS I; # VARIABLE CHARACTER OFFSET # 05013 M01S00394.ns2605 +++|ITEM NUMVDCHARS I; # FIELD/PANEL STRING LENGTH # 05014 M01S00395.ns2605 +++|ITEM FILL B; # TRUE IF BLANK FILL REQUIRED # 05015 M00S03147.sform +++| 05016 M00S03148.sform +++|ITEM FROMCHAROS I; # CHARACTER OFFSET / FROMSTRING # 05017 M00S03149.sform +++|ITEM FROMINDEX I; # INDEX INTO FROMSTRING #
| Line S03150 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 05018 M01S03150.sform8 ---|ITEM FROMWORD I; # HOLDS A WORD FROM FROMSTRING # 05019 M00S03151.sform +++|ITEM NUMCHARS I; # NUMBER OF CHARACTERS TO TRANS. #
| Line S00396 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 05020 M01S00396.ns2605 +++|ITEM SPACE I = BLANK; # ASCII SPACE FOR BLANK FILL # 05021 M00S03152.sform +++|ITEM TOCHAROS I; # CHARACTER OFFSET / TOSTRING # 05022 M00S03153.sform +++|ITEM TOINDEX I; # INDEX INTO TOSTRING #
| Line S03154 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 05023 M01S03154.sform8 ---|ITEM TOWORD I; # HOLDS A WORD FOR TOSTRING # 05024 M00S03155.sform +++| 05025 M00S03156.sform +++|FROMCHAROS = STRINGOS; # CHARACTER OFFSET / OUTSTRING # 05026 M00S03157.sform +++|FROMINDEX = 0; # GET FIRST WORD FROM FROMSTRING #
| Line S03158 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 05027 M01S03158.sform8 ---|FROMWORD = FROMSTRIU[FROMINDEX]; 05028 M00S03159.sform +++|TOINDEX = 0;
| Line S03160 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 05029 M01S03160.ns2605 ---|TOCHAROS = 0; # NO CHARACTER OFFSET / VARDATA # 05030 M01S03161.ns2605 ---| # TRANSLATE PANNUMBYTE CHARS. # 05031 M01S03162.ns2605 ---|IF SLENGTH GR PANNUMBYTE[0] 05032 M01S03163.ns2605 ---| OR SLENGTH EQ 0 THEN 05033 M01S03164.ns2605 ---| BEGIN # IF OUTSTRING EXCEEDS VARDATA # 05034 M01S03165.ns2605 ---| SLENGTH = PANNUMBYTE[0]; # RESET NUMBER OF CHARS. TO MOVE # 05035 M01S03166.ns2605 ---| END
| Line S00397 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 05036 M01S00397.ns2605 +++|TOCHAROS = VAROS; # CHARACTER OFFSET / VARDATA # 05037 M01S00398.ns2605 +++|IF SLENGTH GR NUMVDCHARS OR SLENGTH LQ 0 THEN 05038 M01S00399.ns2605 +++| SLENGTH = NUMVDCHARS; # IF LENGTH ADJUSTMENT NEEDED #
| Line S03167 Modification History | |
|---|---|
M01 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 05039 M01S03167.ns2605 ---|FOR NUMCHARS = 0 STEP 1 UNTIL SLENGTH - 1 DO
| Line S00400 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 05040 M01S00400.ns2605 +++|FOR NUMCHARS = 1 STEP 1 UNTIL SLENGTH DO 05041 M00S03168.sform +++| BEGIN # TRANSLATE CHARACTERS #
| Line S03169 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 05042 M01S03169.sform8 ---| B<6*TOCHAROS,12>TOWORD = DC2A8[B<6*FROMCHAROS,6>FROMWORD];
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 05043 M01S00027.sform8 +++| B<6*TOCHAROS,12>TOSTRIU[TOINDEX] = 05044 M01S00028.sform8 +++| DC2A8[B<6*FROMCHAROS,6>FROMSTRIU[FROMINDEX]]; 05045 M00S03170.sform +++| FROMCHAROS = FROMCHAROS + 1; # UPDATE FROMSTRING CHAR. OFFSET # 05046 M00S03171.sform +++| IF FROMCHAROS EQ 10 THEN 05047 M00S03172.sform +++| BEGIN # IF FROMSTRING WORD IS EMPTY # 05048 M00S03173.sform +++| FROMCHAROS = 0; # RESET CHARACTER OFFSET # 05049 M00S03174.sform +++| FROMINDEX = FROMINDEX + 1; # UPDATE FROMSTRING WORD INDEX #
| Line S03175 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 05050 M01S03175.sform8 ---| FROMWORD = FROMSTRIU[FROMINDEX]; # GET NEXT WORD FROM FROMSTRING # 05051 M00S03176.sform +++| END 05052 M00S03177.sform +++| TOCHAROS = TOCHAROS + 2; # UPDATE TOSTRING CHAR. OFFSET # 05053 M00S03178.sform +++| IF TOCHAROS EQ 10 THEN 05054 M00S03179.sform +++| BEGIN # IF TOSTRING WORD IS FULL # 05055 M00S03180.sform +++| TOCHAROS = 0; # RESET CHARACTER OFFSET #
| Line S03181 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 05056 M01S03181.sform8 ---| TOSTRIU[TOINDEX] = TOWORD; # STORE WORD INTO TOSTRING # 05057 M01S03182.sform8 ---| TOINDEX = TOINDEX + 1; # UPDATE TOWORD INDEX #
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 05058 M01S00029.sform8 +++| TOINDEX = TOINDEX + 1; # UPDATE TOSTRING WORD INDEX #
| Line S03183 Modification History | |
|---|---|
M01 (Removed by) | sform8 |
Seq # *Modification Id* Act ----------------------------+ 05059 M01S03183.sform8 ---| END 05060 M01S03184.sform8 ---| END 05061 M01S03185.sform8 ---|IF TOCHAROS NQ 0 THEN 05062 M01S03186.sform8 ---| BEGIN # IF PARTIAL WORD TO MOVE # 05063 M01S03187.sform8 ---| FOR NUMCHARS = 0 STEP 1 UNTIL TOCHAROS -1 DO 05064 M01S03188.sform8 ---| BEGIN # MOVE ONLY REQUIRED CHARACTERS # 05065 M01S03189.sform8 ---| B<6*NUMCHARS,6>TOSTRIU[TOINDEX] = B<6*NUMCHARS,6>TOWORD; 05066 M00S03190.sform +++| END 05067 M00S03191.sform +++| END
| Line S00401 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 05068 M01S00401.ns2605 +++|WHYLE FILL AND SLENGTH LS NUMVDCHARS DO 05069 M01S00402.ns2605 +++| BEGIN 05070 M01S00403.ns2605 +++| NUMVDCHARS = NUMVDCHARS - 1; 05071 M01S00404.ns2605 +++| B<6*TOCHAROS,12>TOSTRIU[TOINDEX] = B<48,12>SPACE; 05072 M01S00405.ns2605 +++| TOCHAROS = TOCHAROS + 2; # INCREMENT TOSTRING OFFSET # 05073 M01S00406.ns2605 +++| IF TOCHAROS EQ 10 THEN 05074 M01S00407.ns2605 +++| BEGIN # IF FROMSTRING WORD IS EMPTY # 05075 M01S00408.ns2605 +++| TOCHAROS = 0; # RESET CHARACTER OFFSET # 05076 M01S00409.ns2605 +++| TOINDEX = TOINDEX + 1; # UPDATE FROMSTRING WORD INDEX # 05077 M01S00410.ns2605 +++| END 05078 M01S00411.ns2605 +++| END 05079 M00S03192.sform +++| 05080 M00S03193.sform +++|END # MVDCA8 # 05081 M00S03194.sform +++|CONTROL EJECT; 05082 M00S03195.sform +++| 05083 M00S03196.sform +++|PROC NCHECK(FLDIND,IVAL,EVAL,INPUTTYPE,DOLLARSIGN); 05084 M00S03197.sform +++| 05085 M00S03198.sform +++|# TITLE NCHECK - NUMERIC CHECK OF INPUT FIELD. # 05086 M00S03199.sform +++| 05087 M00S03200.sform +++|BEGIN # NCHECK # 05088 M00S03201.sform +++| 05089 M00S03202.sform +++|# 05090 M00S03203.sform +++|** NCHECK - CHECK NUMERIC FIELD. 05091 M00S03204.sform +++|* 05092 M00S03205.sform +++|* THIS PROCEDURE CHECKS THAT THE INPUT FITS THE FORMAT SPECIFIED 05093 M00S03206.sform +++|* FOR THE FIELD AND CALULATES THE NUMERIC VALUE OF THE INPUT. 05094 M00S03207.sform +++|* 05095 M00S03208.sform +++|* PROC NCHECK(FLDIND,IVAL,EVAL,INPUTTYPE,DOLLARSIGN) 05096 M00S03209.sform +++|* 05097 M00S03210.sform +++|* ENTRY FLDIND = INDEX OF CURRENT FIELD IN FLDLIST. 05098 M00S03211.sform +++|* 05099 M00S03212.sform +++|* EXIT IVAL = INTEGER VALUE OF INPUT. 05100 M00S03213.sform +++|* EVAL = EXPONENT VALUE OF INPUT. 05101 M00S03214.sform +++|* INPUTTYPE = FORMAT TYPE OF INPUT. 05102 M00S03215.sform +++|* DOLLARSIGN = TRUE IF $ IN INPUT. 05103 M00S03216.sform +++|* FLDVALID[FLDIND] = FALSE, IF INVALID INPUT. 05104 M00S03217.sform +++|* 05105 M00S03218.sform +++|* CALLS GETNUM, SKPBLK. 05106 M00S03219.sform +++|# 05107 M00S03220.sform +++|ITEM FLDIND I; # INDEX IN FLDLIST # 05108 M00S03221.sform +++|ITEM IVAL I; # INTEGER VALUE # 05109 M00S03222.sform +++|ITEM EVAL I; # EXPONENT VALUE # 05110 M00S03223.sform +++|ITEM INPUTTYPE I; # FORMAT TYPE (9 N $ E BAD)# 05111 M00S03224.sform +++|ITEM DOLLARSIGN B; # $ IN INPUT # 05112 M00S03225.sform +++| 05113 M00S03226.sform +++|ITEM CHAR I; # INPUT CHARACTER # 05114 M00S03227.sform +++|ITEM CHARPOS I; # CHARACTER POSITION IN FIELD # 05115 M00S03228.sform +++|ITEM COMMADEL I = O"0054"; # COMMA DELIMETER # 05116 M00S03229.sform +++|ITEM COMMATHERE B; # COMMA PRESENT FLAG # 05117 M00S03230.sform +++|ITEM DECIMALPT B; # DECIMAL POINT IN INPUT # 05118 M00S03231.sform +++|ITEM DIGITINT I; # NUMBER OF DIGITS IN INTEGER # 05119 M00S03232.sform +++|ITEM DIGITLIMIT I=17; # MAXIMUM DIGITS ALLOWED # 05120 M00S03233.sform +++|ITEM DIGITS I; # NUMBER OF DIGITS IN SUBFIELD # 05121 M00S03234.sform +++|ITEM DVAL I; # DECIMAL VALUE # 05122 M00S03235.sform +++|ITEM ESIGN I; # EXPONENT SIGN VALUE # 05123 M00S03236.sform +++|ITEM EXPONLIMIT I=322; # MAXIMUM EXPONENT ALLOWED # 05124 M00S03237.sform +++|ITEM I I; # LOOP COUNTER # 05125 M00S03238.sform +++|ITEM ISIGN I; # INTEGER SIGN VALUE #
| Line S03239 Modification History | |
|---|---|
M01 (Removed by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05126 M01S03239.sform25 ---|ITEM PERIODDEL I = O"0056"; # PERIOD DELIMETER #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05127 M01S00001.sform25 +++|ITEM PERIODDEL I = O"0056"; # PERIOD DELIMITER # 05128 M00S03240.sform +++|ITEM SOMEDIGITS B; # IF ANY NUMERIC INPUT # 05129 M00S03241.sform +++|ITEM TVAL I; # TEMPORARY VALUE #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05130 M01S00002.sform25 +++|ITEM VARIND I; # INDEX INTO VARLIST OF VARIABLE # 05131 M00S03242.sform +++| 05132 M00S03243.sform +++|SOMEDIGITS = FALSE; # INITIAL VALUES # 05133 M00S03244.sform +++|COMMATHERE = FALSE; 05134 M00S03245.sform +++|DOLLARSIGN = FALSE; 05135 M00S03246.sform +++|DECIMALPT = FALSE;
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05136 M01S00003.sform25 +++|VARIND = FLDVARORD[FLDIND]; 05137 M00S03247.sform +++| 05138 M00S03248.sform +++|CONTROL IFEQ EUROPEAN,1; # IF EUROPEAN CURRENCY FORMAT #
| Line S03249 Modification History | |
|---|---|
M01 (Removed by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05139 M01S03249.sform25 ---| IF VARPICTYPE[FLDVARORD[FLDIND]] EQ FORMTYPE"$" THEN
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05140 M01S00004.sform25 +++| IF VARPICTYPE[VARIND] EQ FORMTYPE"$" THEN 05141 M00S03250.sform +++| BEGIN # CURRENCY FORMAT # 05142 M00S03251.sform +++| COMMADEL = PERIOD; 05143 M00S03252.sform +++| PERIODDEL = COMMA; 05144 M00S03253.sform +++| END 05145 M00S03254.sform +++| ELSE 05146 M00S03255.sform +++| BEGIN # NOT CURRENCY FORMAT # 05147 M00S03256.sform +++| COMMADEL = COMMA; 05148 M00S03257.sform +++| PERIODDEL = PERIOD; 05149 M00S03258.sform +++| END 05150 M00S03259.sform +++|CONTROL FI; # END EUROPEAN # 05151 M00S03260.sform +++| 05152 M00S03261.sform +++|INPUTTYPE = FORMTYPE"BAD"; 05153 M00S03262.sform +++|IVAL = 0; 05154 M00S03263.sform +++|DVAL = 0; 05155 M00S03264.sform +++|EVAL = 0; 05156 M00S03265.sform +++|TVAL = 0; 05157 M00S03266.sform +++|ISIGN = 1; 05158 M00S03267.sform +++|ESIGN = 1; 05159 M00S03268.sform +++|CHARPOS = 0; 05160 M00S03269.sform +++|DIGITINT = 0; 05161 M00S03270.sform +++| 05162 M00S03271.sform +++|SKPBLK(FLDIND,CHARPOS,CHAR); # FIND START OF FIELD # 05163 M00S03272.sform +++| 05164 M00S03273.sform +++|IF UPPER(CHAR) EQ CAPE THEN GOTO EXPSUBFLD; # START OF EXPONENT # 05165 M00S03274.sform +++| 05166 M00S03275.sform +++|IF CHAR EQ DOLLAR THEN 05167 M00S03276.sform +++| BEGIN # CURRENCY INPUT # 05168 M00S03277.sform +++| DOLLARSIGN = TRUE; 05169 M00S03278.sform +++| INPUTTYPE = FORMTYPE"$"; 05170 M00S03279.sform +++| CHARPOS = CHARPOS + 1; 05171 M00S03280.sform +++| END 05172 M00S03281.sform +++| 05173 M00S03282.sform +++|IF CHAR EQ PLUS OR CHAR EQ MINUS THEN 05174 M00S03283.sform +++| BEGIN # SIGNED INPUT # 05175 M00S03284.sform +++| INPUTTYPE = FORMTYPE"N"; 05176 M00S03285.sform +++| IF CHAR EQ MINUS THEN ISIGN = -1; 05177 M00S03286.sform +++| CHARPOS = CHARPOS + 1; 05178 M00S03287.sform +++| END 05179 M00S03288.sform +++| 05180 M00S03289.sform +++|IF CHAR EQ PERIODDEL THEN GOTO DECSUBFLD; # START OF DECIMAL # 05181 M00S03290.sform +++| 05182 M00S03291.sform +++|INTSUBFLD: # GET VALUE OF INTEGER SUBFIELD # 05183 M00S03292.sform +++| 05184 M00S03293.sform +++| GETNUM(FLDIND,CHARPOS,IVAL,DIGITS); 05185 M00S03294.sform +++| DIGITINT = DIGITINT + DIGITS;
| Line S03295 Modification History | |
|---|---|
M01 (Removed by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05186 M01S03295.sform25 ---| IF (COMMATHERE AND DIGITS NQ 3) OR DIGITINT GR DIGITLIMIT THEN
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05187 M01S00005.sform25 +++| IF (COMMATHERE AND DIGITS NQ 3) 05188 M01S00006.sform25 +++| OR (DIGITINT GR DIGITLIMIT AND VARTYPE[VARIND] GR 1) THEN 05189 M00S03296.sform +++| BEGIN 05190 M00S03297.sform +++| INPUTTYPE = FORMTYPE"BAD"; 05191 M00S03298.sform +++| RETURN; 05192 M00S03299.sform +++| END 05193 M00S03300.sform +++| IF DIGITS NQ 0 THEN SOMEDIGITS = TRUE; 05194 M00S03301.sform +++| IF NEXTCHAR(FLDIND,CHARPOS) EQ COMMADEL THEN 05195 M00S03302.sform +++| BEGIN # CURRENCY TYPE INPUT # 05196 M00S03303.sform +++| IF (NOT COMMATHERE AND DIGITS GR 3) OR DIGITS LS 1 THEN 05197 M00S03304.sform +++| BEGIN 05198 M00S03305.sform +++| INPUTTYPE = FORMTYPE"BAD"; 05199 M00S03306.sform +++| RETURN; 05200 M00S03307.sform +++| END 05201 M00S03308.sform +++| DOLLARSIGN = TRUE; 05202 M00S03309.sform +++| COMMATHERE = TRUE; 05203 M00S03310.sform +++| IF CHARPOS GQ FLDLENGTH[FLDIND] - 1 THEN GOTO ENDOFFLD; 05204 M00S03311.sform +++| CHARPOS = CHARPOS + 1; 05205 M00S03312.sform +++| CHAR = NEXTCHAR(FLDIND,CHARPOS); 05206 M00S03313.sform +++| IF CHAR LS ZEROCH OR CHAR GR NINECH THEN 05207 M00S03314.sform +++| BEGIN # INVALID CHARACTER # 05208 M00S03315.sform +++| INPUTTYPE = FORMTYPE"BAD"; 05209 M00S03316.sform +++| RETURN; 05210 M00S03317.sform +++| END 05211 M00S03318.sform +++| INPUTTYPE = FORMTYPE"$"; 05212 M00S03319.sform +++| GOTO INTSUBFLD; 05213 M00S03320.sform +++| END
| Line S03321 Modification History | |
|---|---|
M01 (Removed by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05214 M01S03321.sform25 ---| IVAL = ISIGN * IVAL;
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | sform25 |
M02 (Removed by) | sfor25a |
Seq # *Modification Id* Act ----------------------------+ 05215 M02S00007.sfor25a ---| IF VARTYPE[VARIND] GR 1 THEN IVAL = ISIGN * IVAL;
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sfor25a |
Seq # *Modification Id* Act ----------------------------+ 05216 M01S00001.sfor25a +++| IVAL = ISIGN * IVAL; 05217 M00S03322.sform +++| IF CHARPOS GQ FLDLENGTH[FLDIND] THEN GOTO ENDOFFLD; 05218 M00S03323.sform +++| CHAR = NEXTCHAR(FLDIND,CHARPOS); # LOOK AT NEXT CHARACTER # 05219 M00S03324.sform +++| IF UPPER(CHAR) EQ CAPE THEN GOTO EXPSUBFLD; # START OF EXPONENT # 05220 M00S03325.sform +++| IF CHAR EQ PERIODDEL THEN GOTO DECSUBFLD; # START OF DECIMAL # 05221 M00S03326.sform +++| IF CHAR EQ MINUS OR CHAR EQ PLUS AND SOMEDIGITS THEN 05222 M00S03327.sform +++| BEGIN # START OF EXPONENT # 05223 M00S03328.sform +++| GOTO EXPSUBFLD; 05224 M00S03329.sform +++| END 05225 M00S03330.sform +++| IF CHAR EQ BLANK THEN GOTO ENDOFFLD; # END OF FIELD # 05226 M00S03331.sform +++| INPUTTYPE = FORMTYPE"BAD"; # BAD INPUT # 05227 M00S03332.sform +++| RETURN; 05228 M00S03333.sform +++| 05229 M00S03334.sform +++|DECSUBFLD: # GET VALUE OF DECIMAL SUBFIELD # 05230 M00S03335.sform +++| 05231 M00S03336.sform +++| DECIMALPT = TRUE; 05232 M00S03337.sform +++| INPUTTYPE = FORMTYPE"$"; 05233 M00S03338.sform +++| CHARPOS = CHARPOS + 1; 05234 M00S03339.sform +++| IF CHARPOS GQ FLDLENGTH[FLDIND] THEN GOTO ENDOFFLD; 05235 M00S03340.sform +++| GETNUM(FLDIND,CHARPOS,DVAL,DIGITS);
| Line S03341 Modification History | |
|---|---|
M01 (Removed by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05236 M01S03341.sform25 ---| DIGITINT = DIGITINT + DIGITS; 05237 M01S03342.sform25 ---| IF DIGITINT GR DIGITLIMIT THEN
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | sform25 |
M02 (Removed by) | sfor25a |
Seq # *Modification Id* Act ----------------------------+ 05238 M02S00008.sfor25a ---| IF DIGITINT+DIGITS GR DIGITLIMIT AND VARTYPE[VARIND] GR 1 THEN
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | sfor25a |
Seq # *Modification Id* Act ----------------------------+ 05239 M01S00002.sfor25a +++| DIGITINT = DIGITINT + DIGITS; 05240 M01S00003.sfor25a +++| IF DIGITINT GR DIGITLIMIT AND VARTYPE[VARIND] GR 1 THEN 05241 M00S03343.sform +++| BEGIN # TOO MANY DIGITS ENTERED # 05242 M00S03344.sform +++| INPUTTYPE = FORMTYPE"BAD"; 05243 M00S03345.sform +++| RETURN; 05244 M00S03346.sform +++| END 05245 M00S03347.sform +++| IF DIGITS NQ 0 THEN 05246 M00S03348.sform +++| BEGIN # SOME DECIMAL DIGITS ENTERED #
| Line S03349 Modification History | |
|---|---|
M01 (Removed by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05247 M01S03349.sform25 ---| FOR I = 1 STEP 1 UNTIL DIGITS DO
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | sform25 |
M02 (Removed by) | sfor25a |
Seq # *Modification Id* Act ----------------------------+ 05248 M02S00009.sfor25a ---| FOR I = 1 STEP 1 WHILE I LQ DIGITS AND DIGITINT+I LQ DIGITLIMIT DO
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | sfor25a |
Seq # *Modification Id* Act ----------------------------+ 05249 M01S00004.sfor25a +++| IF DIGITINT LQ DIGITLIMIT THEN 05250 M00S03350.sform +++| BEGIN
| Line S03351 Modification History | |
|---|---|
M01 (Removed by) | sfor25a |
Seq # *Modification Id* Act ----------------------------+ 05251 M01S03351.sfor25a ---| IVAL = IVAL * 10;
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | sfor25a |
Seq # *Modification Id* Act ----------------------------+ 05252 M01S00005.sfor25a +++| FOR I = 1 STEP 1 UNTIL DIGITS DO 05253 M01S00006.sfor25a +++| BEGIN 05254 M01S00007.sfor25a +++| IVAL = IVAL * 10; 05255 M01S00008.sfor25a +++| END 05256 M01S00009.sfor25a +++| IVAL = IVAL + DVAL*ISIGN; 05257 M00S03352.sform +++| END
| Line S03353 Modification History | |
|---|---|
M01 (Removed by) | sform25 |
Seq # *Modification Id* Act ----------------------------+ 05258 M01S03353.sform25 ---| IVAL = IVAL + DVAL*ISIGN;
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | sform25 |
M02 (Removed by) | sfor25a |
Seq # *Modification Id* Act ----------------------------+ 05259 M02S00010.sfor25a ---| DIGITINT = DIGITINT + DIGITS; 05260 M02S00011.sfor25a ---| IF DIGITINT LQ DIGITLIMIT THEN IVAL = IVAL + DVAL*ISIGN; 05261 M00S03354.sform +++| SOMEDIGITS = TRUE; 05262 M00S03355.sform +++| END 05263 M00S03356.sform +++| EVAL = -DIGITS; 05264 M00S03357.sform +++| IF DIGITS GR 2 THEN INPUTTYPE = FORMTYPE"E"; 05265 M00S03358.sform +++| IF CHARPOS GQ FLDLENGTH[FLDIND] THEN GOTO ENDOFFLD; # END OF FIELD # 05266 M00S03359.sform +++| CHAR = NEXTCHAR(FLDIND,CHARPOS); 05267 M00S03360.sform +++| IF CHAR EQ PLUS OR CHAR EQ MINUS 05268 M00S03361.sform +++| OR UPPER(CHAR) EQ CAPE THEN 05269 M00S03362.sform +++| BEGIN # START OF EXPONENT # 05270 M00S03363.sform +++| GOTO EXPSUBFLD; 05271 M00S03364.sform +++| END 05272 M00S03365.sform +++| IF CHAR EQ BLANK THEN GOTO ENDOFFLD; # END OF FIELD # 05273 M00S03366.sform +++| INPUTTYPE = FORMTYPE"BAD"; 05274 M00S03367.sform +++| RETURN; 05275 M00S03368.sform +++| 05276 M00S03369.sform +++|EXPSUBFLD: # GET VALUE OF EXPONENT SUBFIELD # 05277 M00S03370.sform +++| 05278 M00S03371.sform +++| INPUTTYPE = FORMTYPE"E"; 05279 M00S03372.sform +++| IF UPPER(CHAR) EQ CAPE THEN 05280 M00S03373.sform +++| BEGIN # SKIP E CHARACTER # 05281 M00S03374.sform +++| CHARPOS = CHARPOS + 1; 05282 M00S03375.sform +++| CHAR = NEXTCHAR(FLDIND,CHARPOS); 05283 M00S03376.sform +++| END 05284 M00S03377.sform +++| IF CHAR EQ MINUS THEN 05285 M00S03378.sform +++| BEGIN # NEGATIVE EXPONENT # 05286 M00S03379.sform +++| ESIGN = -1; 05287 M00S03380.sform +++| CHARPOS = CHARPOS + 1; 05288 M00S03381.sform +++| CHAR = NEXTCHAR(FLDIND,CHARPOS); 05289 M00S03382.sform +++| END 05290 M00S03383.sform +++| ELSE IF CHAR EQ PLUS THEN 05291 M00S03384.sform +++| BEGIN # POSITIVE EXPONENT # 05292 M00S03385.sform +++| CHARPOS = CHARPOS + 1; 05293 M00S03386.sform +++| CHAR = NEXTCHAR(FLDIND,CHARPOS); 05294 M00S03387.sform +++| END 05295 M00S03388.sform +++| GETNUM(FLDIND,CHARPOS,TVAL,DIGITS); 05296 M00S03389.sform +++| IF DIGITS EQ 0 OR DIGITS GR DIGITLIMIT THEN 05297 M00S03390.sform +++| BEGIN # TOO MANY OR NO DIGITS IN EXP # 05298 M00S03391.sform +++| INPUTTYPE = FORMTYPE"BAD"; 05299 M00S03392.sform +++| RETURN; 05300 M00S03393.sform +++| END 05301 M00S03394.sform +++| EVAL = ESIGN * TVAL + EVAL; 05302 M00S03395.sform +++| 05303 M00S03396.sform +++|ENDOFFLD: # END OF INPUT FIELD # 05304 M00S03397.sform +++| 05305 M00S03398.sform +++| IF ABS(EVAL) + DIGITINT GR EXPONLIMIT THEN 05306 M00S03399.sform +++| BEGIN # INPUT NUMBER TOO LARGE # 05307 M00S03400.sform +++| INPUTTYPE = FORMTYPE"BAD"; 05308 M00S03401.sform +++| RETURN; 05309 M00S03402.sform +++| END 05310 M00S03403.sform +++| 05311 M00S03404.sform +++| IF (DOLLARSIGN AND (INPUTTYPE EQ FORMTYPE"E")) OR NOT SOMEDIGITS THEN 05312 M00S03405.sform +++| BEGIN # REAL INPUT WITH $ OR NO DIGITS # 05313 M00S03406.sform +++| INPUTTYPE = FORMTYPE"BAD"; 05314 M00S03407.sform +++| RETURN; 05315 M00S03408.sform +++| END 05316 M00S03409.sform +++| 05317 M00S03410.sform +++| IF SOMEDIGITS AND (FORMTYPE"NINE" GR INPUTTYPE) THEN 05318 M00S03411.sform +++| BEGIN # UNSIGNED INTEGER INPUT # 05319 M00S03412.sform +++| INPUTTYPE = FORMTYPE"NINE"; 05320 M00S03413.sform +++| END 05321 M00S03414.sform +++| 05322 M00S03415.sform +++| IF CHARPOS LQ FLDLENGTH[FLDIND] -1 THEN 05323 M00S03416.sform +++| BEGIN # CHECK FOR EXTRA CHARACTERS # 05324 M00S03417.sform +++| FOR I = CHARPOS STEP 1 UNTIL FLDLENGTH[FLDIND] -1 DO 05325 M00S03418.sform +++| BEGIN 05326 M00S03419.sform +++| IF NEXTCHAR(FLDIND,I) NQ BLANK THEN INPUTTYPE = FORMTYPE"BAD"; 05327 M00S03420.sform +++| END 05328 M00S03421.sform +++| END 05329 M00S03422.sform +++| 05330 M00S03423.sform +++|END # NCHECK # 05331 M00S03424.sform +++|CONTROL EJECT; 05332 M00S03425.sform +++| 05333 M00S03426.sform +++|PROC PICVAL(FLDIND); 05334 M00S03427.sform +++| 05335 M00S03428.sform +++|# TITLE PICVAL - PERFORM PICTURE VALIDATION. # 05336 M00S03429.sform +++| 05337 M00S03430.sform +++|BEGIN # PICVAL # 05338 M00S03431.sform +++| 05339 M00S03432.sform +++|# 05340 M00S03433.sform +++|** PICVAL - PERFORM PICTURE VALIDATION. 05341 M00S03434.sform +++|* 05342 M00S03435.sform +++|* THIS PROCEDURE VALIDATES THAT INPUT TO THE VARIABLE POINTED TO 05343 M00S03436.sform +++|* BY FLDIND CONFORMS WITH THE PICTURE TYPE SPECIFIED IN VARLIST. 05344 M00S03437.sform +++|* 05345 M00S03438.sform +++|* PROC PICVAL(FLDIND) 05346 M00S03439.sform +++|* 05347 M00S03440.sform +++|* ENTRY FLDIND = FLDLIST INDEX FOR FIELD TO BE CHECKED. 05348 M00S03441.sform +++|* 05349 M00S03442.sform +++|* EXIT FLDVALID[FLDIND] = FALSE, IF INPUT IS INVALID. 05350 M00S03443.sform +++|* 05351 M00S03444.sform +++|* CALLS DATEVL, NCHECK. 05352 M00S03445.sform +++|# 05353 M00S03446.sform +++|ITEM FLDIND I; # INDEX OF VARIABLE TO VALIDATE # 05354 M00S03447.sform +++| 05355 M00S03448.sform +++|ITEM DOLLARSIGN B; # $ IN INPUT # 05356 M00S03449.sform +++|ITEM EVAL I; # EXPONENT VALUE OF INPUT # 05357 M00S03450.sform +++|ITEM INPIND I; # INDEX OF CHARACTER IN INPUT # 05358 M00S03451.sform +++|ITEM INPTYPE I; # FORMAT TYPE OF INPUT # 05359 M00S03452.sform +++|ITEM IVAL I; # INTEGER VALUE OF INPUT # 05360 M00S03453.sform +++|ITEM NCHAR I; # NEXT CHARACTER IN VARDATA # 05361 M00S03454.sform +++|ITEM PTYPE I; # PICTURE TYPE # 05362 M00S03455.sform +++|ITEM VARIND I; # INDEX INTO VARLIST OF VARIABLE # 05363 M00S03456.sform +++| 05364 M00S03457.sform +++|SWITCH PICTURTYPE # PICTURE TYPE SWITCH # 05365 M00S03458.sform +++| , 05366 M00S03459.sform +++| PICX, # X PICTURE(DEFAULT) # 05367 M00S03460.sform +++| PICA, # ALPHA PICTURE # 05368 M00S03461.sform +++| PIC9, # INTEGER PICTURE # 05369 M00S03462.sform +++| PICN, # NUMERIC PICTURE # 05370 M00S03463.sform +++| PIC$, # DOLLAR PICTURE # 05371 M00S03464.sform +++| PICE, # REAL PICTURE # 05372 M00S03465.sform +++| PICY, # YYMMDD DATE PICTURE # 05373 M00S03466.sform +++| PICM, # MMDDYY DATE PICTURE # 05374 M00S03467.sform +++| PICD; # DDMMYY DATE PICTURE # 05375 M00S03468.sform +++| 05376 M00S03469.sform +++|VARIND = FLDVARORD[FLDIND]; 05377 M00S03470.sform +++|PTYPE = VARPICTYPE[VARIND] ; 05378 M00S03471.sform +++| 05379 M00S03472.sform +++|GOTO PICTURTYPE[PTYPE]; 05380 M00S03473.sform +++| 05381 M00S03474.sform +++|PICX: # DISPLAYABLE CHARACTER TYPE # 05382 M00S03475.sform +++| 05383 M00S03476.sform +++| RETURN; 05384 M00S03477.sform +++| 05385 M00S03478.sform +++|PICA: # ALPHABETIC FORMAT # 05386 M00S03479.sform +++| 05387 M00S03480.sform +++| FOR INPIND = 0 STEP 1 UNTIL FLDLENGTH[FLDIND] -1 DO 05388 M00S03481.sform +++| BEGIN 05389 M00S03482.sform +++| NCHAR = NEXTCHAR(FLDIND,INPIND); 05390 M00S03483.sform +++| IF NOT(NCHAR GQ CAPA AND NCHAR LQ CAPZ) 05391 M00S03484.sform +++| AND NOT(NCHAR GQ LOWA AND NCHAR LQ LOWZ) 05392 M00S03485.sform +++| AND NOT(NCHAR EQ BLANK) THEN 05393 M00S03486.sform +++| BEGIN # NOT ALPHABETIC INPUT # 05394 M00S03487.sform +++| FLDVALID[FLDIND] = FALSE; 05395 M00S03488.sform +++| END 05396 M00S03489.sform +++| END 05397 M00S03490.sform +++| 05398 M00S03491.sform +++| RETURN; 05399 M00S03492.sform +++| 05400 M00S03493.sform +++|PICY: 05401 M00S03494.sform +++|PICM: 05402 M00S03495.sform +++|PICD: # DATE FORMATS # 05403 M00S03496.sform +++| 05404 M00S03497.sform +++| DATEVL(FLDIND,IVAL,EVAL); 05405 M00S03498.sform +++| RETURN; 05406 M00S03499.sform +++| 05407 M00S03500.sform +++|PICE: # REAL FORMAT # 05408 M00S03501.sform +++|PIC9: # INTEGER FORMAT # 05409 M00S03502.sform +++|PICN: # SIGNED INTEGER FORMAT # 05410 M00S03503.sform +++|PIC$: # CURRENCY FORMAT # 05411 M00S03504.sform +++| 05412 M00S03505.sform +++| NCHECK(FLDIND,IVAL,EVAL,INPTYPE,DOLLARSIGN); 05413 M00S03506.sform +++| IF (VARPICTYPE[VARIND] EQ FORMTYPE"E" AND DOLLARSIGN) 05414 M00S03507.sform +++| OR INPTYPE GR VARPICTYPE[VARIND] OR INPTYPE EQ FORMTYPE"BAD" THEN 05415 M00S03508.sform +++| BEGIN 05416 M00S03509.sform +++| FLDVALID[FLDIND] = FALSE; 05417 M00S03510.sform +++| END 05418 M00S03511.sform +++| RETURN; 05419 M00S03512.sform +++| 05420 M00S03513.sform +++|END # PICVAL # 05421 M00S03514.sform +++|CONTROL EJECT; 05422 M00S03515.sform +++| 05423 M00S03516.sform +++|PROC POSARR(PANELADDR); 05424 M00S03517.sform +++|
| Line S03518 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05425 M01S03518.242l642 ---|# TITLE POSARR - POSITON PANEL RECORD BASED ARRAYS. #
| Line S00844 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05426 M01S00844.242l642 +++|# TITLE POSARR - POSITION PANEL RECORD BASED ARRAYS. # 05427 M00S03519.sform +++| 05428 M00S03520.sform +++|BEGIN # POSARR # 05429 M00S03521.sform +++| 05430 M00S03522.sform +++|# 05431 M00S03523.sform +++|** POSARR - POSITION PANEL RECORD BASED ARRAYS. 05432 M00S03524.sform +++|* 05433 M00S03525.sform +++|* THIS PROCEDURE POSITIONS THE BASED ARRAYS THAT DESCRIBE THE 05434 M00S03526.sform +++|* FORMAT OF THE INFORMATION IN PANEL RECORD USING THE ADDRESS 05435 M00S03527.sform +++|* PASSED IN PANELADDR. 05436 M00S03528.sform +++|* 05437 M00S03529.sform +++|* PROC POSARR(PANELADDR) 05438 M00S03530.sform +++|* 05439 M00S03531.sform +++|* ENTRY PANELADDR = FWA OF THE PANEL RECORD IN MEMORY. 05440 M00S03532.sform +++|* 05441 M00S03533.sform +++|* EXIT ALL PANEL RECORD BASED ARRAYS POSITIONED. 05442 M00S03534.sform +++|# 05443 M00S03535.sform +++|ITEM PANELADDR I; # THE ADDRESS OF THE PANEL # 05444 M00S03536.sform +++| 05445 M00S03537.sform +++|ITEM ZEROWORD I = 0; # DUMMY FIELD LIST # 05446 M00S03538.sform +++| 05447 M00S03539.sform +++|P<RECORD> = PANELADDR; # POSITION BASED ARRAYS # 05448 M00S03540.sform +++|P<PANELHEADR> = PANELADDR; 05449 M00S03541.sform +++|P<VDATA> = PANELADDR + PANHEADLEN; 05450 M00S03542.sform +++| 05451 M00S03543.sform +++|IF PANSTRFLD[0] NQ 0 THEN 05452 M00S03544.sform +++| BEGIN # IF PANEL HAS FIELD LIST # 05453 M00S03545.sform +++| P<FLDLIST> = PANELADDR + PANSTRFLD[0]; 05454 M00S03546.sform +++| END 05455 M00S03547.sform +++|ELSE 05456 M00S03548.sform +++| BEGIN # NO FIELD LIST, ONLY BOXES # 05457 M00S03549.sform +++| P<FLDLIST> = LOC(ZEROWORD); 05458 M00S03550.sform +++| END 05459 M00S03551.sform +++| 05460 M00S03552.sform +++|P<VARLIST> = PANELADDR + PANSTRVAR[0]; 05461 M00S03553.sform +++|P<FUNLIST> = PANELADDR + PANSTRFUN[0]; 05462 M00S03554.sform +++|P<ATTLIST> = PANELADDR + PANSTRATT[0]; 05463 M00S03555.sform +++|P<ARRLIST> = PANELADDR + PANSTRARR[0]; 05464 M00S03556.sform +++|P<BOXLIST> = PANELADDR + PANSTRBOX[0]; 05465 M00S03557.sform +++| 05466 M00S03558.sform +++|END # POSARR #
| Line S00231 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 05467 M01S00231.243l647 +++|CONTROL EJECT; 05468 M01S00232.243l647 +++| 05469 M01S00233.243l647 +++|PROC POSTWO(PANELADDR); 05470 M01S00234.243l647 +++| 05471 M01S00235.243l647 +++|# TITLE POSTWO - POSITION PANEL RECORD BASED ARRAYS FOR SFATTR. # 05472 M01S00236.243l647 +++| 05473 M01S00237.243l647 +++|BEGIN # POSTWO # 05474 M01S00238.243l647 +++| 05475 M01S00239.243l647 +++|# 05476 M01S00240.243l647 +++|** POSTWO - POSITION PANEL RECORD BASED ARRAYS FOR SFATTR. 05477 M01S00241.243l647 +++|* 05478 M01S00242.243l647 +++|* THIS PROCEDURE POSITIONS THE BASED ARRAYS THAT DESCRIBE THE 05479 M01S00243.243l647 +++|* FORMAT OF THE INFORMATION IN PANEL RECORD USING THE ADDRESS 05480 M01S00244.243l647 +++|* PASSED IN PANELADDR FOR USE BY SFATTR. 05481 M01S00245.243l647 +++|* 05482 M01S00246.243l647 +++|* PROC POSTWO(PANELADDR) 05483 M01S00247.243l647 +++|* 05484 M01S00248.243l647 +++|* ENTRY PANELADDR = FWA OF THE PANEL RECORD IN MEMORY. 05485 M01S00249.243l647 +++|* 05486 M01S00250.243l647 +++|* EXIT ALL PANEL RECORD BASED ARRAYS POSITIONED. 05487 M01S00251.243l647 +++|# 05488 M01S00252.243l647 +++|ITEM PANELADDR I; # THE ADDRESS OF THE PANEL # 05489 M01S00253.243l647 +++| 05490 M01S00254.243l647 +++|ITEM ZEROWORD I = 0; # DUMMY FIELD LIST # 05491 M01S00255.243l647 +++| 05492 M01S00256.243l647 +++|P<PANEL2HEAD> = PANELADDR; 05493 M01S00257.243l647 +++| 05494 M01S00258.243l647 +++|IF PAN2STRFLD[0] NQ 0 THEN 05495 M01S00259.243l647 +++| BEGIN # IF PANEL HAS FIELD LIST # 05496 M01S00260.243l647 +++| P<FLD2LIST> = PANELADDR + PAN2STRFLD[0]; 05497 M01S00261.243l647 +++| END 05498 M01S00262.243l647 +++|ELSE 05499 M01S00263.243l647 +++| BEGIN # NO FIELD LIST, ONLY BOXES # 05500 M01S00264.243l647 +++| P<FLD2LIST> = LOC(ZEROWORD); 05501 M01S00265.243l647 +++| END 05502 M01S00266.243l647 +++| 05503 M01S00267.243l647 +++|P<VAR2LIST> = PANELADDR + PAN2STRVAR[0]; 05504 M01S00268.243l647 +++|P<ATT2LIST> = PANELADDR + PAN2STRATT[0];
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sform15 |
Seq # *Modification Id* Act ----------------------------+ 05505 M01S00001.sform15 +++|P<ARR2LIST> = PANELADDR + PAN2STRARR[0];
| Line S00269 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 05506 M01S00269.243l647 +++| 05507 M01S00270.243l647 +++|END # POSTWO # 05508 M00S03559.sform +++|CONTROL EJECT; 05509 M00S03560.sform +++| 05510 M00S03561.sform +++|PROC PSTRNG(FLDIND,MESSNUM); 05511 M00S03562.sform +++| 05512 M00S03563.sform +++|# TITLE PSTRNG - PRINT MESSAGE STRING. # 05513 M00S03564.sform +++| 05514 M00S03565.sform +++|BEGIN # PSTRNG # 05515 M00S03566.sform +++| 05516 M00S03567.sform +++|# 05517 M00S03568.sform +++|** PSTRNG - PRINT MESSAGE STRING. 05518 M00S03569.sform +++|* 05519 M00S03570.sform +++|* THIS PROCEDURE CLEARS THE MESSAGE AREA AND PRINTS A USER OR 05520 M00S03571.sform +++|* SMF MESSAGE. 05521 M00S03572.sform +++|* 05522 M00S03573.sform +++|* PROC PSTRNG(FLDIND,MESSNUM) 05523 M00S03574.sform +++|* 05524 M00S03575.sform +++|* ENTRY FLDIND = INDEX OF FIELD FOR HELP STRING. 05525 M00S03576.sform +++|* MESSNUM = SWITCH VALUE FOR MESSAGE PROMPT. 05526 M00S03577.sform +++|* 05527 M00S03578.sform +++|* EXIT MESSAGE TRUNCATED IF NECESSARY AND WRITTEN. 05528 M00S03579.sform +++|*
| Line S03580 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05529 M01S03580.242l642 ---|* CALLS CPANEL, VDTBOO, VDTCHR, VDTCLL, VDTEOO, VDTPOS, VDTSAM 05530 M01S03581.242l642 ---|* VDTSTR.
| Line S00845 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 05531 M02S00845.ns2346 ---|* CALLS CPANEL, MCLEAN, VDTCAA, VDTCHR, VDTSTR.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 05532 M01S00011.ns2346 +++|* CALLS CPANEL, MCLEAN, VDTCHR, VDTPOS, VDTSAM, VDTSTR. 05533 M00S03582.sform +++|* 05534 M00S03583.sform +++|* USES TERHELPREQ, TERMESREAD, TERMESWRIT. 05535 M00S03584.sform +++|# 05536 M00S03585.sform +++|ITEM FLDIND I; # INDEX INTO FIELD LIST # 05537 M00S03586.sform +++|ITEM MESSNUM S:MESSSTAT; # SWITCH FOR MESSAGE PROMPT # 05538 M00S03587.sform +++| 05539 M00S03588.sform +++|ITEM CINDEX I; # CHARACTER INDEX INTO MESSAGE # 05540 M00S03589.sform +++|ITEM I I; # LOOP VARIABLE # 05541 M00S03590.sform +++|ITEM MESCHR I; # HOLDS ONE CHARACTER OF MESSAGE # 05542 M00S03591.sform +++|ITEM MCOUNT I; # CHARACTER COUNT FOR MESSAGE # 05543 M00S03592.sform +++|ITEM MSGFIT B; # MESSAGE TRUNCATION FLAG # 05544 M00S03593.sform +++|ITEM VARIND I; # INDEX INTO VARLIST # 05545 M00S03594.sform +++|ITEM WINDEX I; # WORD INDEX INTO MESSAGE # 05546 M00S03595.sform +++|
| Line S00846 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05547 M01S00846.242l642 +++|*IF UNDEF,QTRM
| Line S03596 Modification History | |
|---|---|
M01 (Removed by) | sform13 |
Seq # *Modification Id* Act ----------------------------+ 05548 M01S03596.sform13 ---|ARRAY CONMESS[0:2] P(1);
| Line S03597 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
M02 (Removed by) | sform13 |
Seq # *Modification Id* Act ----------------------------+ 05549 M02S03597.sform13 ---| BEGIN # :I PLEASE CONFIRM #
| Line S00847 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | sform13 |
Seq # *Modification Id* Act ----------------------------+ 05550 M02S00847.sform13 ---| BEGIN # :IPLEASE CONFIRM #
| Line S03598 Modification History | |
|---|---|
M01 (Removed by) | sform13 |
Seq # *Modification Id* Act ----------------------------+ 05551 M01S03598.sform13 ---| ITEM CONMESSAGE U(00,00,60) = [ 05552 M01S03599.sform13 ---| O"00112076147605760176", 05553 M01S03600.sform13 ---| O"23760555760376177616", 05554 M01S03601.sform13 ---| O"76067611762276150000"]; 05555 M01S03602.sform13 ---| END 05556 M01S03603.sform13 ---| 05557 M01S03604.sform13 ---|ARRAY CORMESS[0:2] P(1); 05558 M01S03605.sform13 ---| BEGIN # :IPLEASE CORRECT # 05559 M01S03606.sform13 ---| ITEM CORMESSAGE U(00,00,60) = [ 05560 M01S03607.sform13 ---| O"00112076147605760176", 05561 M01S03608.sform13 ---| O"23760555760376177622", 05562 M01S03609.sform13 ---| O"76227605760376240000"]; 05563 M01S03610.sform13 ---| END 05564 M01S03611.sform13 ---| 05565 M01S03612.sform13 ---|ARRAY DEFMESS[0:2] P(1); 05566 M01S03613.sform13 ---| BEGIN # :IPLEASE ENTER # 05567 M01S03614.sform13 ---| ITEM DEFMESSAGE U(00,00,60) = [ 05568 M01S03615.sform13 ---| O"00112076147605760176", 05569 M01S03616.sform13 ---| O"23760555760576167624", 05570 M01S03617.sform13 ---| O"76057622000000000000"]; 05571 M01S03618.sform13 ---| END 05572 M01S03619.sform13 ---| 05573 M01S03620.sform13 ---|ARRAY ERRMESS[0:4] P(1); 05574 M01S03621.sform13 ---| BEGIN # :IPLEASE REENTER INPUT # 05575 M01S03622.sform13 ---| ITEM ERRMESSAGE U(00,00,60) = [ 05576 M01S03623.sform13 ---| O"00112076147605760176", 05577 M01S03624.sform13 ---| O"23760555762276057605", 05578 M01S03625.sform13 ---| O"76167624760576225576", 05579 M01S03626.sform13 ---| O"11761676207625762400", 05580 M01S03627.sform13 ---| O"00000000000000000000"]; 05581 M01S03628.sform13 ---| END 05582 M01S03629.sform13 ---| 05583 M01S03630.sform13 ---|ARRAY FUNMESS[0:4] P(1); 05584 M01S03631.sform13 ---| BEGIN # :IPLEASE PRESS FUNCTION KEY # 05585 M01S03632.sform13 ---| ITEM FUNMESSAGE U(00,00,60) = [ 05586 M01S03633.sform13 ---| O"00112076147605760176", 05587 M01S03634.sform13 ---| O"23760555762076227605", 05588 M01S03635.sform13 ---| O"76237623557606762576", 05589 M01S03636.sform13 ---| O"16760376247611761776", 05590 M01S03637.sform13 ---| O"16557613760576310000"]; 05591 M01S03638.sform13 ---| END
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sform13 |
Seq # *Modification Id* Act ----------------------------+ 05592 M01S00001.sform13 +++|ARRAY CONMESS[0:3] P(1); 05593 M01S00002.sform13 +++| BEGIN # PLEASE CONFIRM # 05594 M01S00003.sform13 +++| ITEM CONMESSAGE U(00,00,60) = [ 05595 M01S00004.sform13 +++| O"41204154414541414163", 05596 M01S00005.sform13 +++| O"41454040414341574156", 05597 M01S00006.sform13 +++| O"41464151416241550000"]; 05598 M01S00007.sform13 +++| END 05599 M01S00008.sform13 +++| 05600 M01S00009.sform13 +++|ARRAY CORMESS[0:3] P(1); 05601 M01S00010.sform13 +++| BEGIN # PLEASE CORRECT # 05602 M01S00011.sform13 +++| ITEM CORMESSAGE U(00,00,60) = [ 05603 M01S00012.sform13 +++| O"41204154414541414163", 05604 M01S00013.sform13 +++| O"41454040414341574162", 05605 M01S00014.sform13 +++| O"41624145414341640000"]; 05606 M01S00015.sform13 +++| END 05607 M01S00016.sform13 +++| 05608 M01S00017.sform13 +++|ARRAY DEFMESS[0:2] P(1); 05609 M01S00018.sform13 +++| BEGIN # PLEASE ENTER # 05610 M01S00019.sform13 +++| ITEM DEFMESSAGE U(00,00,60) = [ 05611 M01S00020.sform13 +++| O"41204154414541414163", 05612 M01S00021.sform13 +++| O"41454040414541564164", 05613 M01S00022.sform13 +++| O"41454162000000000000"]; 05614 M01S00023.sform13 +++| END 05615 M01S00024.sform13 +++| 05616 M01S00025.sform13 +++|ARRAY ERRMESS[0:4] P(1); 05617 M01S00026.sform13 +++| BEGIN # PLEASE REENTER INPUT # 05618 M01S00027.sform13 +++| ITEM ERRMESSAGE U(00,00,60) = [ 05619 M01S00028.sform13 +++| O"41204154414541414163", 05620 M01S00029.sform13 +++| O"41454040416241454145", 05621 M01S00030.sform13 +++| O"41564164414541624040", 05622 M01S00031.sform13 +++| O"41514156416041654164", 05623 M01S00032.sform13 +++| O"00000000000000000000"]; 05624 M01S00033.sform13 +++| END 05625 M01S00034.sform13 +++| 05626 M01S00035.sform13 +++|ARRAY FUNMESS[0:5] P(1); 05627 M01S00036.sform13 +++| BEGIN # PLEASE PRESS FUNCTION KEY # 05628 M01S00037.sform13 +++| ITEM FUNMESSAGE U(00,00,60) = [ 05629 M01S00038.sform13 +++| O"41204154414541414163", 05630 M01S00039.sform13 +++| O"41454040416041624145", 05631 M01S00040.sform13 +++| O"41634163404041464165", 05632 M01S00041.sform13 +++| O"41564143416441514157", 05633 M01S00042.sform13 +++| O"41564040415341454171", 05634 M01S00043.sform13 +++| O"00000000000000000000"]; 05635 M01S00044.sform13 +++| END
| Line S00848 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05636 M01S00848.242l642 +++|*ELSE 05637 M01S00849.242l642 +++|ARRAY CONMESS[0:3] P(1); 05638 M01S00850.242l642 +++| BEGIN # PLEASE CONFIRM # 05639 M01S00851.242l642 +++| ITEM CONMESSAGE U(00,00,60) = [ 05640 M01S00852.242l642 +++| O"40404040412041544145", 05641 M01S00853.242l642 +++| O"41414163414540404143", 05642 M01S00854.242l642 +++| O"41574156414641514162", 05643 M01S00855.242l642 +++| O"41550000000000000000"]; 05644 M01S00856.242l642 +++| END 05645 M01S00857.242l642 +++| 05646 M01S00858.242l642 +++|ARRAY CORMESS[0:3] P(1); 05647 M01S00859.242l642 +++| BEGIN # PLEASE CORRECT # 05648 M01S00860.242l642 +++| ITEM CORMESSAGE U(00,00,60) = [ 05649 M01S00861.242l642 +++| O"40404040412041544145", 05650 M01S00862.242l642 +++| O"41414163414540404143", 05651 M01S00863.242l642 +++| O"41574162416241454143", 05652 M01S00864.242l642 +++| O"41640000000000000000"]; 05653 M01S00865.242l642 +++| END 05654 M01S00866.242l642 +++| 05655 M01S00867.242l642 +++|ARRAY DEFMESS[0:2] P(1); 05656 M01S00868.242l642 +++| BEGIN # PLEASE ENTER # 05657 M01S00869.242l642 +++| ITEM DEFMESSAGE U(00,00,60) = [ 05658 M01S00870.242l642 +++| O"40404040412041544145", 05659 M01S00871.242l642 +++| O"41414163414540404145", 05660 M01S00872.242l642 +++| O"41564164414541620000"]; 05661 M01S00873.242l642 +++| END 05662 M01S00874.242l642 +++| 05663 M01S00875.242l642 +++|ARRAY ERRMESS[0:4] P(1); 05664 M01S00876.242l642 +++| BEGIN # PLEASE REENTER INPUT # 05665 M01S00877.242l642 +++| ITEM ERRMESSAGE U(00,00,60) = [ 05666 M01S00878.242l642 +++| O"40404040412041544145", 05667 M01S00879.242l642 +++| O"41414163414540404162", 05668 M01S00880.242l642 +++| O"41454145415641644145", 05669 M01S00881.242l642 +++| O"41624040415141564160", 05670 M01S00882.242l642 +++| O"41654164000000000000"]; 05671 M01S00883.242l642 +++| END 05672 M01S00884.242l642 +++| 05673 M01S00885.242l642 +++|ARRAY FUNMESS[0:5] P(1); 05674 M01S00886.242l642 +++| BEGIN # PLEASE PRESS FUNCTION KEY # 05675 M01S00887.242l642 +++| ITEM FUNMESSAGE U(00,00,60) = [ 05676 M01S00888.242l642 +++| O"40404040412041544145", 05677 M01S00889.242l642 +++| O"41414163414540404160", 05678 M01S00890.242l642 +++| O"41624145416341634040", 05679 M01S00891.242l642 +++| O"41464165415641434164", 05680 M01S00892.242l642 +++| O"41514157415640404153", 05681 M01S00893.242l642 +++| O"41454171000000000000"]; 05682 M01S00894.242l642 +++| END 05683 M01S00895.242l642 +++|*ENDIF 05684 M00S03639.sform +++| 05685 M00S03640.sform +++|BASED ARRAY MESSNAME [0:0] P(1); # MESSAGE STRING # 05686 M00S03641.sform +++| BEGIN 05687 M00S03642.sform +++| ITEM MESSWORD U(00,00,60); # MESSAGE WORD # 05688 M00S03643.sform +++| END 05689 M00S03644.sform +++| 05690 M00S03645.sform +++|SWITCH JUMPCASE:MESSSTAT 05691 M00S03646.sform +++| JUMPHELP:HELP, # SMF OR USER HELP # 05692 M00S03647.sform +++| JUMPCONF:CONFIRM, # PLEASE CONFIRM # 05693 M00S03648.sform +++| JUMPRENT:REENTER; # PLEASE RENTER INPUT # 05694 M00S03649.sform +++|
| Line S03650 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05695 M01S03650.242l642 ---|VDTBOO; 05696 M00S03651.sform +++|MCLEAN(MCOUNT,MSGFIT); # CLEAN MESSAGE AREA # 05697 M00S03652.sform +++| 05698 M00S03653.sform +++|GOTO JUMPCASE[MESSNUM]; # ISSUE MESSAGE # 05699 M00S03654.sform +++| 05700 M00S03655.sform +++|JUMPHELP: # PRINT HELP MESSAGE # 05701 M00S03656.sform +++| 05702 M00S03657.sform +++| IF FLDIND NQ -1 THEN 05703 M00S03658.sform +++| BEGIN # IF INPUT FIELD # 05704 M00S03659.sform +++| VARIND = FLDVARORD[FLDIND]; 05705 M00S03660.sform +++| IF VARHSOS[VARIND] NQ 0 THEN 05706 M00S03661.sform +++| BEGIN # IF USER HELP MESSAGE DEFINED # 05707 M00S03662.sform +++| P<MESSNAME> = LOC(RECWORDU[0])+ VARHSOS[VARIND]; 05708 M00S03663.sform +++| END 05709 M00S03664.sform +++| ELSE 05710 M00S03665.sform +++| BEGIN # NO USER HELP MESSAGE DEFINED # 05711 M00S03666.sform +++| MSGFIT = TRUE; # SMF MESSAGE WILL FIT # 05712 M00S03667.sform +++| IF NOT FLDENTERED[FLDIND] THEN 05713 M00S03668.sform +++| BEGIN # IF DATA NOT ENTERED IN FIELD # 05714 M00S03669.sform +++| P<MESSNAME> = LOC(DEFMESSAGE[0]); # *PLEASE ENTER* # 05715 M00S03670.sform +++| END 05716 M00S03671.sform +++| ELSE 05717 M00S03672.sform +++| BEGIN # DATA ENTERED IN FIELD # 05718 M00S03673.sform +++| P<MESSNAME> = LOC(CORMESSAGE[0]); # *PLEASE CORRECT* # 05719 M00S03674.sform +++| END 05720 M00S03675.sform +++| END 05721 M00S03676.sform +++| END 05722 M00S03677.sform +++| ELSE 05723 M00S03678.sform +++| BEGIN # NO INPUT FIELD # 05724 M00S03679.sform +++| MSGFIT = TRUE; # SMF MESSAGE WILL FIT # 05725 M00S03680.sform +++| P<MESSNAME> = LOC(FUNMESSAGE[0]); # *PLEASE PRESS FUNCTION KEY* # 05726 M00S03681.sform +++| END
| Line S03682 Modification History | |
|---|---|
M01 (Removed by) | ns2231 |
Seq # *Modification Id* Act ----------------------------+ 05727 M01S03682.ns2231 ---| TERHELPREQ[0] = FALSE; # XYZ # # HELP REQUEST HONORED #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2231 |
Seq # *Modification Id* Act ----------------------------+ 05728 M01S00003.ns2231 +++| TERHELPREQ[0] = FALSE; # HELP REQUEST HONORED # 05729 M00S03683.sform +++| GOTO PRINTMSG; 05730 M00S03684.sform +++| 05731 M00S03685.sform +++|JUMPRENT: 05732 M00S03686.sform +++| 05733 M00S03687.sform +++| MSGFIT = TRUE; # SMF MESSAGE WILL FIT # 05734 M00S03688.sform +++| P<MESSNAME> = LOC(ERRMESSAGE[0]); # *PLEASE REENTER INPUT* # 05735 M00S03689.sform +++| GOTO PRINTMSG; 05736 M00S03690.sform +++| 05737 M00S03691.sform +++|JUMPCONF: 05738 M00S03692.sform +++| 05739 M00S03693.sform +++| MSGFIT = TRUE; # SMF MESSAGE WILL FIT # 05740 M00S03694.sform +++| IF FLDIND NQ -1 THEN 05741 M00S03695.sform +++| BEGIN # IF INPUT FIELD # 05742 M00S03696.sform +++| P<MESSNAME> = LOC(CONMESSAGE[0]); # *PLEASE CONFIRM* # 05743 M00S03697.sform +++| END 05744 M00S03698.sform +++| ELSE 05745 M00S03699.sform +++| BEGIN # NO INPUT FIELD # 05746 M00S03700.sform +++| P<MESSNAME> = LOC(FUNMESSAGE[0]); # *PLEASE PRESS FUNCTION KEY* # 05747 M00S03701.sform +++| END 05748 M00S03702.sform +++| 05749 M00S03703.sform +++|PRINTMSG: # PRINT MESSAGE # 05750 M00S03704.sform +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | sform5 |
Seq # *Modification Id* Act ----------------------------+ 05751 M01S00003.sform5 +++| VDTPOS(0,0); # POSITION TO MESSAGE LINE # 05752 M00S03705.sform +++| IF MSGFIT THEN 05753 M00S03706.sform +++| BEGIN # IF MESSAGE WILL FIT # 05754 M00S03707.sform +++| VDTSTR(MESSNAME); # PRINT ENTIRE MESSAGE # 05755 M00S03708.sform +++| END 05756 M00S03709.sform +++| ELSE 05757 M00S03710.sform +++| BEGIN # TRUNCATE AS NEEDED #
| Line S03711 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05758 M01S03711.242l642 ---| CINDEX = 2; # SKIP 0007 BYTE #
| Line S00896 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05759 M01S00896.242l642 +++| CONTROL IFEQ QTRMV,0; # IF NOT QTRM VARIANT # 05760 M01S00897.242l642 +++| CINDEX = 2; # SKIP 0007 BYTE # 05761 M01S00898.242l642 +++| CONTROL FI; # END OF IF NOT QTRM # 05762 M01S00899.242l642 +++| CONTROL IFEQ QTRMV,1; # IF QTRM VARIANT # 05763 M01S00900.242l642 +++| CINDEX = 0; # START AT BEGINNING OF LINE # 05764 M01S00901.242l642 +++| CONTROL FI; # END OF IF QTRM # 05765 M00S03712.sform +++| WINDEX = 0; 05766 M00S03713.sform +++| MESCHR = C<CINDEX,2>MESSWORD[WINDEX]; 05767 M00S03714.sform +++| FOR I = 0 STEP 1 WHILE MESCHR NQ 0 AND I LQ MCOUNT DO 05768 M00S03715.sform +++| BEGIN # WRITE MESSAGE # 05769 M00S03716.sform +++| VDTCHR(MESCHR); 05770 M00S03717.sform +++| CINDEX = CINDEX + 2; 05771 M00S03718.sform +++| IF CINDEX GQ 10 THEN 05772 M00S03719.sform +++| BEGIN # IF WORD EXHAUSTED # 05773 M00S03720.sform +++| CINDEX = 0; # RESET CHARACTER INDEX # 05774 M00S03721.sform +++| WINDEX = WINDEX + 1; # GET NEXT WORD # 05775 M00S03722.sform +++| END 05776 M00S03723.sform +++| MESCHR = C<CINDEX,2>MESSWORD[WINDEX]; 05777 M00S03724.sform +++| END 05778 M00S03725.sform +++| END 05779 M00S03726.sform +++| 05780 M00S03727.sform +++| TERMESWRIT[0] = TRUE; # MESSAGE WRITTEN # 05781 M00S03728.sform +++| TERMESREAD[0] = FALSE; # MESSAGE NOT READ BY USER YET # 05782 M00S03729.sform +++|
| Line S03730 Modification History | |
|---|---|
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 05783 M01S03730.ns2346 ---| VDTCAA; # CLEAR ALL ATTRIBUTES #
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2346 |
M02 (Removed by) | ns2356 |
Seq # *Modification Id* Act ----------------------------+ 05784 M02S00012.ns2356 ---| VDTSAM(0); # CLEAR ALL ATTRIBUTES #
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2356 |
Seq # *Modification Id* Act ----------------------------+ 05785 M01S00009.ns2356 +++| IF NOT TERBLCKMDE[0] THEN 05786 M01S00010.ns2356 +++| BEGIN 05787 M01S00011.ns2356 +++| VDTSAM(0); 05788 M01S00012.ns2356 +++| END 05789 M01S00013.ns2356 +++| ELSE 05790 M01S00014.ns2356 +++| BEGIN 05791 M01S00015.ns2356 +++| VDTSAM(O"6001"); 05792 M01S00016.ns2356 +++| END
| Line S03731 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05793 M01S03731.242l642 ---| VDTEOO; 05794 M00S03732.sform +++| CPANEL; # REWRITE SCREEN AS NEEDED # 05795 M00S03733.sform +++| 05796 M00S03734.sform +++|END # PSTRNG # 05797 M00S03735.sform +++|CONTROL EJECT; 05798 M00S03736.sform +++| 05799 M00S03737.sform +++|PROC READIN(FLDIND,COFFSET); 05800 M00S03738.sform +++| 05801 M00S03739.sform +++|# TITLE READIN - READ INPUT FROM TERMINAL. # 05802 M00S03740.sform +++| 05803 M00S03741.sform +++|BEGIN # READIN # 05804 M00S03742.sform +++| 05805 M00S03743.sform +++|# 05806 M00S03744.sform +++|** READIN - READ INPUT FROM TERMINAL. 05807 M00S03745.sform +++|* 05808 M00S03746.sform +++|* THIS PROCEDURE READS INPUT FROM THE TERMINAL AND STORES 05809 M00S03747.sform +++|* IT IN THE APPROPRIATE PLACE IN VARDATA. 05810 M00S03748.sform +++|* 05811 M00S03749.sform +++|* PROC READIN(FLDIND,COFFSET) 05812 M00S03750.sform +++|* 05813 M00S03751.sform +++|* ENTRY FLDIND = INDEX OF FIELD FOR STARTING CURSOR POSITION. 05814 M00S03752.sform +++|* COFFSET = CURSOR OFFSET IN FIELD. 05815 M00S03753.sform +++|* 05816 M00S03754.sform +++|* EXIT FLDIND = LAST FIELD ENTERED. 05817 M00S03755.sform +++|* VARDATA CONTAINS INPUT DATA. 05818 M00S03756.sform +++|* 05819 M00S03757.sform +++|* CALLS BFIELD, CPANEL, FFIELD, FUNKEY, PSTRNG, TABKEY, VDTBOI, 05820 M00S03758.sform +++|* VDTCOR, VDTEOO, VDTINP, VDTOUT, VDTPOS, WRIVCH. 05821 M00S03759.sform +++|* 05822 M00S03760.sform +++|* USES TERABNTERM, TERHELPFLD, TERHELPREQ, TERMESREAD, 05823 M00S03761.sform +++|* TERMISSINP, TERNRMTERM, TERPENDHLP, TERREWFLDS,
| Line S03762 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05824 M01S03762.242l642 ---|* TERREWSCRN, TERSOFTPOS, TERSOFTTAB.
| Line S00902 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05825 M01S00902.242l642 +++|*IF UNDEF,QTRM 05826 M01S00903.242l642 +++|* TERREWSCRN, TERSOFTPOS, TERSOFTTAB. 05827 M01S00904.242l642 +++|*ELSE 05828 M01S00905.242l642 +++|* TERREWSCRN, TERSOFTPOS, TERSOFTTAB, TERWAITINP. 05829 M01S00906.242l642 +++|*ENDIF 05830 M00S03763.sform +++|# 05831 M00S03764.sform +++| ITEM FLDIND I; # INDEX OF FIELD IN FLDLIST # 05832 M00S03765.sform +++| ITEM COFFSET I; # CURSOR POSITION OFFSET # 05833 M00S03766.sform +++| 05834 M00S03767.sform +++| ITEM CHAR I; # VDT INPUT CHARACTER # 05835 M00S03768.sform +++| ITEM FIELD I; # INDEX OF FIELD IN FLDLIST # 05836 M00S03769.sform +++| ITEM I I; # LOOP COUNTER # 05837 M00S03770.sform +++| ITEM INPOS U = 0; # LINE AND COLUMN OF INPUT # 05838 M00S03771.sform +++| ITEM INPUTERROR B; # ERROR IN INPUT # 05839 M00S03772.sform +++| ITEM INSEARCH B = FALSE; # DO NOT INCLUDE OUT-ONLY FIELDS # 05840 M00S03773.sform +++| ITEM LASTFIELD I; # LAST FIELD THAT RECEIVED INPUT # 05841 M00S03774.sform +++| ITEM LASTORD I; # PREVIOUS INPUT ORDINAL # 05842 M00S03775.sform +++| ITEM LASTPOS U = 0; # LAST X AND Y POSITION # 05843 M00S03776.sform +++| ITEM OFFSET I; # CHARACTER OFFSET WITHIN FIELD # 05844 M00S03777.sform +++| ITEM ORD I; # VDT INPUT ORDINAL # 05845 M00S03778.sform +++| ITEM SKIPINP B; # SKIP DATA TIL NEXT INPUT READ # 05846 M00S03779.sform +++| ITEM STARTFIELD I; # FIELD TO START SEARCH # 05847 M00S03780.sform +++| ITEM STARTPOS I; # X/Y POSITION TO START SEARCH # 05848 M00S03781.sform +++| ITEM XPOS I; # VDT INPUT COLUMN NUMBER # 05849 M00S03782.sform +++| ITEM YPOS I; # VDT INPUT LINE NUMBER #
| Line S03783 Modification History | |
|---|---|
M01 (Removed by) | ns2231 |
Seq # *Modification Id* Act ----------------------------+ 05850 M01S03783.ns2231 ---| ITEM ZZZGKEY I; # SYMPL IS CONFUSED # 05851 M01S03784.ns2231 ---| ITEM ZZZNEXT I; # SYMPL IS CONFUSED # 05852 M00S03785.sform +++| 05853 M00S03786.sform +++| SWITCH INPUTTYPE:SCREENST # VDT INPUT ORDINALS #
| Line S03787 Modification History | |
|---|---|
M01 (Removed by) | ns2641 |
Seq # *Modification Id* Act ----------------------------+ 05854 M01S03787.ns2641 ---| CONTINUE : RESERV1, # RESERVED #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2641 |
Seq # *Modification Id* Act ----------------------------+ 05855 M01S00001.ns2641 +++| CONTINUE : CLRALL, # CLEAR ALL TABS - IGNORED # 05856 M00S03788.sform +++| CHARACTER : CHAR, # OVERSTRIKE CHARACTER # 05857 M00S03789.sform +++| INSERTCHAR : INSC, # INSERT CHARACTER # 05858 M00S03790.sform +++| DELETECHAR : DELC, # DELETE CHARACTER # 05859 M00S03791.sform +++| INSERTLINE : INSL, # INSERT LINE # 05860 M00S03792.sform +++| DELETELINE : DELL, # DELETE LINE # 05861 M00S03793.sform +++| CLEARPAGE : CLRPAG, # CLEAR PAGE #
| Line S03794 Modification History | |
|---|---|
M01 (Removed by) | ns2453 |
Seq # *Modification Id* Act ----------------------------+ 05862 M01S03794.ns2453 ---| CONTINUE : CLREOP, # CLEAR TO END OF PAGE #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2453 |
Seq # *Modification Id* Act ----------------------------+ 05863 M01S00001.ns2453 +++| CLEARPAGE : CLREOP, # CLEAR TO END OF PAGE # 05864 M00S03795.sform +++| CLEARPAGE : CLRUNP, # CLEAR UNPROTECTED # 05865 M00S03796.sform +++| CLEAREOL : CLREOL, # CLEAR TO END OF LINE # 05866 M00S03797.sform +++| CONTINUE : POS, # POSITION CURSOR #
| Line S03798 Modification History | |
|---|---|
M01 (Removed by) | sform9 |
Seq # *Modification Id* Act ----------------------------+ 05867 M01S03798.sform9 ---| CONTINUE : HOME, # POSITION HOME #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | sform9 |
Seq # *Modification Id* Act ----------------------------+ 05868 M01S00003.sform9 +++| HOMEKEY : HOME, # POSITION HOME # 05869 M00S03799.sform +++| CONTINUE : UP, # CURSOR UP # 05870 M00S03800.sform +++| CONTINUE : DOWN, # CURSOR DOWN #
| Line S03801 Modification History | |
|---|---|
M01 (Removed by) | sform9 |
Seq # *Modification Id* Act ----------------------------+ 05871 M01S03801.sform9 ---| CONTINUE : LEFT, # CURSOR LEFT # 05872 M01S03802.sform9 ---| CONTINUE : RIGHT, # CURSOR RIGHT #
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | sform9 |
Seq # *Modification Id* Act ----------------------------+ 05873 M01S00004.sform9 +++| LEFTKEY : LEFT, # CURSOR LEFT # 05874 M01S00005.sform9 +++| RIGHTKEY : RIGHT, # CURSOR RIGHT # 05875 M00S03803.sform +++| FORWARDTAB : FTAB, # TAB FORWARD # 05876 M00S03804.sform +++| BACKWRDTAB : BTAB, # TAB BACKWARD # 05877 M00S03805.sform +++| CONTINUE : RET, # RETURN # 05878 M00S03806.sform +++| ERASECHAR : ERAC, # ERASE CHARACTER # 05879 M00S03807.sform +++| ERASELINE : ERAL, # ERASE LINE # 05880 M00S03808.sform +++| ENDOFINPUT : EOI, # END OF INFORMATION # 05881 M00S03809.sform +++| CONTINUE : RESET, # RESET # 05882 M00S03810.sform +++| APPLICFUN : FKEY, # FUNCTION KEY # 05883 M00S03811.sform +++| GENERICFUN : GKEY, # GENERIC KEY # 05884 M00S03812.sform +++| BADINPUT : BAD, # BAD # 05885 M00S03813.sform +++| CONTINUE : NOOP, # NOOP # 05886 M00S03814.sform +++| CONTINUE : COORD, # COORDINATES # 05887 M00S03815.sform +++| CONTINUE : PROTECT, # PROTECT ALL #
| Line S03816 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05888 M01S03816.242l642 ---| CONTINUE : RESERV2, # RESERVED #
| Line S00907 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05889 M01S00907.242l642 +++| NEWFIELD : STRTFLD, # START OF NEW FIELD #
| Line S03817 Modification History | |
|---|---|
M01 (Removed by) | ns2641 |
Seq # *Modification Id* Act ----------------------------+ 05890 M01S03817.ns2641 ---| CONTINUE : RESERV3, # RESERVED # 05891 M01S03818.ns2641 ---| CONTINUE : RESERV4; # RESERVED #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2641 |
Seq # *Modification Id* Act ----------------------------+ 05892 M01S00002.ns2641 +++| CONTINUE : CLRTAB, # CLEAR TAB STOP - IGNORED # 05893 M01S00003.ns2641 +++| CONTINUE : SETTAB; # SET TAB STOP - IGNORED # 05894 M00S03819.sform +++| 05895 M00S03820.sform +++|INPOS = 0; 05896 M00S03821.sform +++|FIELD = FLDIND; 05897 M00S03822.sform +++|LASTFIELD = FLDIND; 05898 M00S03823.sform +++|INPUTERROR = FALSE;
| Line S03824 Modification History | |
|---|---|
M01 (Removed by) | ns2231 |
Seq # *Modification Id* Act ----------------------------+ 05899 M01S03824.ns2231 ---|TERHELPREQ[0] = FALSE; # XYZ #
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2231 |
Seq # *Modification Id* Act ----------------------------+ 05900 M01S00004.ns2231 +++|TERHELPREQ[0] = FALSE; 05901 M00S03825.sform +++|
| Line S00908 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05902 M01S00908.242l642 +++|*IF DEF,QTRM 05903 M01S00909.242l642 +++|IF TERWAITINP[0] THEN 05904 M01S00910.242l642 +++| BEGIN # IF INPUT RECEIVED # 05905 M01S00911.242l642 +++| TERWAITINP[0] = FALSE; # CLEAR FLAG # 05906 M01S00912.242l642 +++| GOTO DOREAD1; # CONTINUE # 05907 M01S00913.242l642 +++| END 05908 M01S00914.242l642 +++| 05909 M01S00915.242l642 +++|*ENDIF 05910 M00S03826.sform +++|DOREAD: # READ INPUT FROM TERMINAL # 05911 M00S03827.sform +++|
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | sform5 |
Seq # *Modification Id* Act ----------------------------+ 05912 M01S00004.sform5 +++| ORD = SCREENST"EOI"; # SET LAST ORDINAL TO EOI #
| Line S03828 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05913 M01S03828.242l642 ---| SOFTTAB = 0; # NUMBER OF SOFT TABS PENDING #
| Line S00916 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05914 M01S00916.242l642 +++| TERSOFTTAB[0] = 0; # NUMBER OF SOFT TABS PENDING # 05915 M00S03829.sform +++| SKIPINP = FALSE; 05916 M00S03830.sform +++| TERMISSINP[0] = FALSE; 05917 M00S03831.sform +++| 05918 M00S03832.sform +++| IF INPUTERROR THEN 05919 M00S03833.sform +++| BEGIN # BAD INPUT # 05920 M00S03834.sform +++| PSTRNG(DUMMY,MESSSTAT"REENTER"); 05921 M00S03835.sform +++| INPUTERROR = FALSE; 05922 M00S03836.sform +++| END 05923 M00S03837.sform +++| ELSE 05924 M00S03838.sform +++| BEGIN # NO INPUT ERROR # 05925 M00S03839.sform +++| IF TERHELPREQ[0] THEN 05926 M00S03840.sform +++| BEGIN # HELP REQUESTED FOR FIELD # 05927 M00S03841.sform +++| PSTRNG(TERHELPFLD[0],MESSSTAT"HELP");
| Line S03842 Modification History | |
|---|---|
M01 (Removed by) | ns2231 |
Seq # *Modification Id* Act ----------------------------+ 05928 M01S03842.ns2231 ---| TERHELPREQ[0] = FALSE; # XYZ # 05929 M00S03843.sform +++| FIELD = TERHELPFLD[0]; 05930 M00S03844.sform +++| END 05931 M00S03845.sform +++| ELSE 05932 M00S03846.sform +++| BEGIN # NO HELP REQUESTED # 05933 M00S03847.sform +++| CPANEL; # REWRITE SCREEN AS NEEDED # 05934 M00S03848.sform +++| END 05935 M00S03849.sform +++| END 05936 M00S03850.sform +++| 05937 M00S03851.sform +++| IF VALIDFIELD THEN 05938 M00S03852.sform +++| BEGIN # VALID FIELD # 05939 M00S03853.sform +++| XPOS = COFFSET + FLDXCORD[FIELD]; 05940 M00S03854.sform +++| YPOS = FLDYCORD[FIELD]; 05941 M00S03855.sform +++| END 05942 M00S03856.sform +++| ELSE 05943 M00S03857.sform +++| BEGIN # INVALID FIELD # 05944 M00S03858.sform +++| XPOS = 0; 05945 M00S03859.sform +++| YPOS = 0; 05946 M00S03860.sform +++| END 05947 M00S03861.sform +++| VDTPOS(XPOS,YPOS); # POSITION CURSOR # 05948 M00S03862.sform +++| VDTEOO;
| Line S00917 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 05949 M01S00917.242l642 +++|*IF DEF,QTRM 05950 M01S00918.242l642 +++| TERWAITINP[0] = TRUE; # SET WAITING FOR INPUT # 05951 M01S00919.242l642 +++| NIT$RC = 23; # SET RETURN CODE # 05952 M01S00920.242l642 +++| RETURN; # RETURN # 05953 M01S00921.242l642 +++| 05954 M01S00922.242l642 +++|DOREAD1: # CONTINUE AFTER QTRM INPUT # 05955 M01S00923.242l642 +++| 05956 M01S00924.242l642 +++|*ENDIF
| Line S03863 Modification History | |
|---|---|
M01 (Removed by) | sform5 |
Seq # *Modification Id* Act ----------------------------+ 05957 M01S03863.sform5 ---| VDTBOI(ORD); # READ INPUT # 05958 M01S03864.sform5 ---| IF ORD NQ 0 THEN
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | sform5 |
Seq # *Modification Id* Act ----------------------------+ 05959 M01S00005.sform5 +++| VDTBOI(LASTORD); # CHECK FOR TYPE AHEAD #
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/sform.003.txt · Last modified: by 127.0.0.1