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 / REPTONE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  89 lines
  1. * File:- REPTONE.CMD
  2. * Report Form Listing, Single Record Only.
  3. * By, J.L.Read. Merrylands. NSW.
  4. * Date:- 29/08/87
  5. * Update:-
  6. * Version 1.1
  7. ERASE
  8. SET TALK OFF
  9.  SET INTEN ON
  10.  @ 4,25 SAY">>> REPORT FORM LISTING <<<"
  11.  SET INTEN OFF
  12.  @ 7,37 SAY"-==-"
  13.  @ 14,24 SAY"Search and Print One Record."
  14.  @ 22,1 SAY"Print One Record,  <Y> or <N> "
  15.  SET CONSOLE OFF
  16.  WAIT TO COMMAND
  17.  SET CONSOLE ON
  18.  IF !(COMMAND)= "Y"
  19.  DO SLECMEN
  20.  ERASE
  21.  SET INTEN ON
  22.  @ 4,25 SAY">>> REPORT FORM LISTING <<<"
  23.  SET INTEN OFF
  24.  USE B:PERSONS INDEX B:REF
  25.  STORE T TO ONEREC
  26.  DO WHILE ONEREC
  27.  STORE "    " TO CURPER
  28.  @ 7,2 SAY"&MFAMLY"
  29.  @ 10,23 SAY"Enter  <CR>  To Return To Menu."
  30.  @ 14,21 SAY"Enter Reference No.To Search:- " GET CURPER PICTURE "9999"
  31.  @ 22,1 SAY"Press  RETURN  When Ready."
  32.  SET CONFIRM ON
  33.  READ
  34.  SET CONFIRM OFF
  35.   IF $(CURPER,1,2) = "  "
  36.   CLEAR
  37.   RESTORE FROM MEMRET
  38.   RETURN
  39.   ENDIF $(CURPER,1,2) = "  "
  40.  @ 22,0
  41.  FIND &CURPER
  42.  IF #=0
  43.  @ 14,0 
  44.  @ 14,1 SAY"Reference No. &CURPER Not On File."
  45.  STORE 1 TO XX
  46.  DO WHILE XX <100
  47.  STORE XX+1 TO XX
  48.  ENDDO WHILE XX <100
  49.  RELEASE XX
  50.  @ 14,0
  51.  LOOP
  52.  ENDIF #=0
  53.  @ 10,0
  54.  SET INTEN ON
  55.  @ 22,1 SAY" TURN YOUR PRINTER ON "
  56.  SET INTEN OFF
  57.  @ 22,25 SAY"Press  <RETURN>  When Ready "
  58.  SET CONSOLE OFF
  59.  WAIT
  60.  SET CONSOLE ON
  61.  @ 10,0
  62.  @ 14,0
  63.  @ 14,1 SAY"Search and Print One Record."
  64.  @ 22,0
  65.  @ 22,1 SAY"Printing One Record,  WAIT "
  66.  SET CONSOLE OFF
  67.  SET PRINT ON
  68. ? "       &MFAMLY &COMP"
  69. SET CONSOLE ON
  70. @ 12,0 SAY"Printing File Reference No:- &CURPER "
  71. SET CONSOLE OFF
  72. REPORT FORM GENREP FOR REF:NO='&CURPER'
  73. ?
  74. ? "&NORM"
  75. ?
  76. ?
  77. ?
  78. ?
  79. SET PRINT OFF
  80. SET CONSOLE ON
  81. @ 12,0
  82. @ 14,0
  83. @ 22,0
  84. ENDDO
  85. ELSE COMMAND <> "Y"
  86.  RELEASE COMMAND
  87.  ENDIF
  88. RETURN
  89.