home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG108.ARC / GEN-DSKA.LBR / REPTLST.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  94 lines
  1. * File:- REPTLST.CMD
  2. * Report Form List Program, All Records On File.(Surname)
  3. * By, J.L.Read. Merrylands. NSW.
  4. * Date:- 23/08/87
  5. * Update:-
  6. * Version 1.1
  7. ERASE
  8. @ 11,32 SAY"ONE MOMENT "
  9. USE B:PERSONS
  10. ERASE
  11. SET TALK OFF
  12.  GO BOTTOM
  13.  STORE STR(#,4) TO MCONT
  14.  STORE 48 TO MADD
  15.  STORE VAL(MCONT)/MADD+1 TO MTOT
  16.  STORE STR(MTOT,4) TO MMTOT
  17.  SET INTEN ON
  18.  @ 4,25 SAY">>> REPORT FORM LISTING <<<"
  19.  SET INTEN OFF
  20.  @ 7,37 SAY"-==-"
  21.  @ 10,1 SAY"The Master File Contains "+MCONT+" Records."
  22.  @ 12,1 SAY"You Will Need At Least:- "+MMTOT+" Sheets of Paper to ;
  23. Print This File."
  24.  @ 16,1 SAY"This Option Will Take a While To Print."
  25.  @ 22,1 SAY"Print All Records On File By SURNAME,  <Y> or <N> "
  26.  USE
  27.  SET CONSOLE OFF
  28.  WAIT TO COMMAND
  29.  SET CONSOLE ON
  30.  IF !(COMMAND)= "Y"
  31.  DO SLECMEN
  32.  ERASE
  33.  @ 1,1 SAY"Surname."
  34.  SET INTEN ON
  35.  @ 4,25 SAY">>> REPORT FORM LISTING <<<"
  36.  SET INTEN OFF
  37.  USE B:PERSONS INDEX B:NAME
  38.  STORE T TO NAMALL
  39.  DO WHILE NAMALL
  40.  STORE " " TO MGOA
  41.  @ 7,2 SAY"&MFAMLY"
  42.  @ 10,23 SAY"Enter  <CR>  To Return To Menu."
  43.  @ 14,18 SAY"Enter Any Character Key To Continue:- " GET MGOA PICTURE "!"
  44.  SET INTEN ON
  45.  @ 17,16 SAY"<This Option Will Print Every Record On File>"
  46.  SET INTEN OFF
  47.  @ 22,1 SAY"Press  <RETURN>  When Ready."
  48.  SET CONFIRM ON
  49.  READ
  50.  SET CONFIRM OFF
  51.   IF $(MGOA,1,1) =" "
  52.   CLEAR
  53.   RESTORE FROM MEMRET
  54.   RETURN
  55.   ENDIF $(MGOA,1,1) =" "
  56.  @ 10,0
  57.  @ 17,0
  58.  @ 22,0
  59.  SET INTEN ON
  60.  @ 22,1 SAY" TURN YOUR PRINTER ON "
  61.  SET INTEN OFF
  62.  @ 22,25 SAY"Press  <RETURN>  When Ready "
  63.  SET CONSOLE OFF
  64.  WAIT
  65.  RELEASE MADD,MTOT
  66.  SET CONSOLE ON
  67.  @ 12,1 SAY"Number of Records To Print:- "+MCONT
  68.  @ 14,0
  69.  @ 14,1 SAY"Sheets of Paper Required  :- "+MMTOT
  70.  @ 22,0
  71.  @ 22,1 SAY"Printing All Records,  PLEASE WAIT "
  72.  SET CONSOLE OFF
  73.  SET PRINT ON
  74. ? "       &MFAMLY &COMP"
  75.  REPORT FORM GENREP
  76. ?
  77. ? "&NORM"
  78. ?
  79. ?
  80. ?
  81. ?
  82. ?
  83. ?
  84. SET PRINT OFF
  85. SET CONSOLE ON
  86. @ 12,0
  87. @ 14,0
  88. @ 22,0
  89. ENDDO
  90. ELSE COMMAND <> "Y"
  91.  RELEASE MCONT,MADD,MTOT,MMTOT,COMMAND
  92.  ENDIF
  93. RETURN
  94.