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 / MBUG098.ARC / USER0.LBR / SILVWED.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  114 lines
  1. * File:- SILVWED.CMD
  2. * Report Form Listing, Wedding Anniversary.
  3. * By, J.L.Read. Merrylands. NSW.
  4. * Date:- 23/11/87
  5. * Update:-
  6. * Version 1.2
  7. ERASE
  8. SET TALK OFF
  9.  SET INTEN ON
  10.  @ 4,25 SAY">>> REPORT FORM LISTING <<<"
  11.  SET INTEN OFF
  12.  @ 12,23 SAY"Wedding Anniversary For Any Year"
  13.  @ 22,1 SAY"Print Anniversary List,  <Y> or <N> "
  14.  SET CONSOLE OFF
  15.  WAIT TO COMMAND
  16.  SET CONSOLE ON
  17.  IF !(COMMAND)= "Y"
  18.  @ 14,32 SAY"LOADING FILE."
  19.  @ 22,0
  20.  DO B:SELEC
  21.  USE B:PERSONS INDEX B:NAME
  22.  @ 14,0
  23.  STORE T TO ONEREC2
  24.  DO WHILE ONEREC2
  25.  STORE 0 TO MBDAY
  26.  STORE 0 TO MSUB
  27.  @ 7,27 SAY"&MFAMLY"
  28.  @ 10,23 SAY"Enter  <CR>  To Return To Menu."
  29.  @ 15,24 SAY"Enter The Current Year -" GET MBDAY PICTURE "9999"
  30.  @ 16,24 SAY"Enter No.Of Years Married-" GET MSUB PICTURE "99"
  31.  @ 22,1 SAY"Press  RETURN  When Ready."
  32.  SET CONFIRM ON
  33.  READ
  34.  SET CONFIRM OFF
  35.   IF MBDAY =0
  36.   CLEAR
  37.   RESTORE FROM MEMRET
  38.   RETURN
  39.   ENDIF MBDAY
  40.    STORE MBDAY-MSUB TO MTAKE
  41.    STORE STR(MTAKE,4) TO MMIN
  42.    @ 22,0
  43.    @ 22,1 SAY"Screen Display or Printer <S> or <P>."
  44.    SET CONSOLE OFF
  45.    WAIT TO COMMAND
  46.    SET CONSOLE ON
  47.    IF !(COMMAND) ="P"
  48.   @ 22,0
  49.  SET INTEN ON
  50.  @ 22,1 SAY" TURN YOUR PRINTER ON "
  51.  SET INTEN OFF
  52.  @ 22,25 SAY"Press  <RETURN>  When Ready "
  53.  SET CONSOLE OFF
  54.  WAIT
  55.  SET CONSOLE ON
  56.  @ 10,0
  57.  @ 15,0
  58.  @ 16,0
  59.  STORE STR(MBDAY,4) TO MMBDAY
  60.  STORE STR(MSUB,2) TO MMSUB
  61.  @ 10,31 SAY"Printing, WAIT."
  62.  @ 14,26 SAY"Year Of Marriage :- &MMIN"
  63.  @ 22,0
  64.  @ 22,1 SAY"Printing Wedding Anniversary For Year:- "+MMBDAY+"  Years ;
  65. Married:- "+MMSUB+" "
  66.  SET CONSOLE OFF
  67.  SET PRINT ON
  68. ? " &OUT        &MFAMLY &IN"
  69. ?
  70. ? "    Wedding Anniversarys For Year:- "+MMBDAY
  71. ? "    Number Of Years Married      :- "+MMSUB
  72. ? "    Married During The Year Of   :- &MMIN &COMP"
  73. ?
  74. REPORT FORM GENREP FOR $(STR(SPSE1:DATE,8),1,4) = '&MMIN' .AND. ;
  75. $(STR(SPSE2:DATE,8),8,1) ='0' .AND. $(STR(DEATH:DATE,8),8,1) ='0' .OR. ;
  76. $(STR(SPSE2:DATE,8),1,4) = '&MMIN' .AND. $(STR(SPSE3:DATE,8),8,1) ='0' ;
  77. .OR. $(STR(SPSE3:DATE,8),1,4) ='&MMIN' PLAIN
  78. ?
  79. ? "&NORM"
  80. EJECT
  81. SET PRINT OFF
  82.  SET CONSOLE ON
  83.  RELEASE MBDAY,MSUB,MTAKE,MMIN,MMBDAY,MMSUB
  84. @ 10,0
  85. @ 14,0
  86. @ 22,0
  87. * Screen Display
  88. ELSE
  89. ERASE
  90. STORE STR(MSUB,2) TO MMSUB
  91. STORE STR(MBDAY,4) TO MMBDAY
  92. @ 1,0 SAY"Wedding Anniversarys:- "+MMSUB+" Years.   Married During "+MMIN+" ;
  93.   Current Year "+MMBDAY+" "
  94. ?
  95. DISPLAY ALL LAST:NAME,FIRST:NAME,MID:NAME,".",NICK:NAME,REF:NO FOR ;
  96. $(STR(SPSE1:DATE,8),1,4)='&MMIN'.AND.$(STR(SPSE2:DATE,8),8,1)='0';
  97. .OR.$(STR(SPSE2:DATE,8),1,4)='&MMIN'.AND.$(STR(SPSE3:DATE,8),8,1)='0';
  98. .OR.$(STR(SPSE3:DATE,8),1,4)='&MMIN' OFF
  99. @ 22,0 SAY"Press <RETURN> To Continue."
  100. SET CONSOLE OFF
  101. WAIT
  102. SET CONSOLE ON
  103. ERASE
  104. SET INTEN ON
  105. @ 4,25 SAY">>> REPORT FORM LISTING <<<"
  106. SET INTEN OFF
  107. RELEASE MBDAY,MSUB,MTAKE,MMIN,MMSUB,MMBDAY
  108. ENDIF
  109. ENDDO
  110. ELSE COMMAND <> "Y"
  111.  RELEASE COMMAND
  112.  ENDIF
  113. RETURN
  114.