DataMuseum.dk

top - metrics - download

    Length: 1792 (0x700)
    Types: TextFile
    Names: »TEX.VAL«

└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
    └─⟦this⟧ »TEX.VAL« 

TextFile

*     TEX.VAL     -VALIDATION PROGRAM SET EXACT ON
* VALIDATE  MKODE2
STORE '  ' TO OK
STORE F TO MQ:VVAL
IF MQ:MODE <> ' RET '
   STORE T TO MQ:VVAL
   STORE T TO MQ:VMORE2
ENDIF
DO WHILE MQ:VVAL
   DO WHILE MQ:VMORE2
      IF MKODE2 = '  '
         STORE F TO MQ:VMORE2
         STORE F TO MQ:VVAL
         LOOP
      ENDIF
      IF MKODE2 >= '00' .AND. MKODE2 <= '99'
         STORE F TO MQ:VMORE2
      ELSE
         @ 21,0
         @ 22,0
         @ 23,0
         @ 23,07 SAY 'GRUPPEKODE 2 -   FRA   : >= 00  TIL  <= 99 '
         @ 05,031 GET MKODE2
         READ
      ENDIF
   ENDDO  MQ:VMORE2
   * VALIDATE  MKODE6
   STORE T TO MQ:VMORE6
   DO WHILE MQ:VMORE6
      IF !(OK) = 'JA'
         @ 07,031 GET MKODE6
         READ
      ENDIF
      IF MKODE6 = '00' .AND. MKODE2 > '00'
         STORE F TO MQ:VMORE6
         STORE F TO MQ:VVAL
         LOOP
      ENDIF
      IF MKODE6 > '39' .AND. MKODE6 < '49' .AND. MKODE2 = '00'
         STORE F TO MQ:VMORE6
         STORE F TO MQ:VVAL
         LOOP
      ENDIF
      STORE '  ' TO OK
      @ 21,0
      @ 22,0
      @ 23,0
      @ 21,07 SAY '**  SE FORKLARING PÅ SKÆRM  -  KONTROLLER FØRST KODE2   **'
      @ 23,07 SAY 'ØNSKES KODE2 TASTET OM, SÅ TAST  JA    ELLERS TAST RETUR !'
      @ 23,70 GET OK
      READ
      @ 21,0
      @ 22,0
      @ 23,0
      IF !(OK) <> 'JA'
         STORE 'JA' TO OK
         LOOP
      ELSE
         @ 05,031 GET MKODE2
         READ
         STORE F TO MQ:VMORE6
         STORE T TO MQ:VMORE2
         LOOP
   ENDDO  MQ:VMORE6
ENDDO MQ:VVAL
RELEASE MQ:VMORE2, MQ:VMORE6, MQ:VVAL
@ 21,0
@ 22,0
@ 23,0
STORE '  ' TO OK
SET EXACT OFF
 «eof»