* JREG.CMD - Journal Register Reports             
*
STORE TRIM(TITLE) TO MTITLE
SELECT PRIMARY
USE DAJOUR INDEX DAJOUR2
ERASE
@ 1,10 SAY TMARK + "  " + CNAME
SET INTE OFF
@ 3,10 SAY MTITLE
SET INTE ON
@ 5,10 SAY "You may choose one of the following registers:"
@ 6,10 SAY "   1 - Cash receipts          2 - Cash disbursements"
@ 7,10 SAY "   3 - Invoice register       4 - Credit purchases"
@ 8,10 SAY "   5 - General journal        6 - Exit"
STORE " " TO ANSWER
DO WHILE ANSWER < "1" .OR. ANSWER > "6"
   STORE " " TO ANSWER
   @ 9,10 SAY "Enter your choice as a number between 1 and 6 " GET ANSWER PICTURE "9"
   READ
ENDDO
IF ANSWER = "6"
   RETURN
ENDIF
STORE (VAL(ANSWER)*8) - 7 TO POS
STORE "Receipt Check   Invoice P. O.   Journal " TO REFER:NO
STORE $(REFER:NO,POS,8) TO R:NO
STORE (VAL(ANSWER)*2) - 1 TO POS
STORE "CRCDINCPGJ" TO JOURNALS
STORE "FOR JOURNAL = '" + $(JOURNALS,POS,2) + "'" TO CRITERIA
STORE TRIM(R:NO) + " Register in " + TRIM(R:NO) + " No. sequence" TO HEADING
@ 14,10 SAY "Please ensure that your printer is ready to print."
STORE " " TO READY
@ 15,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY
READ
IF !(READY) = "Q"
   RETURN
ENDIF
@ 18,10 SAY "Your report is now printing!"
SET CONSOLE OFF
SET HEADING TO &HEADING
SET PRINT ON
REPORT FORM DAJREG &CRITERIA 
EJECT
SET PRINT OFF
SET CONSOLE ON
RETURN