home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr2.zip / CSESETUP.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  14KB  |  480 lines

  1. * Program CSESETUP - Sets up all functions for running CSEVENT
  2. Store T to LEVEL2
  3. Do while LEVEL2
  4.   Erase
  5.   @ 1,1 say  ename
  6.   @ 2,1 say 'DATA DISK = '+D
  7.   @ 1,62 say curdate
  8.   @ 3,21 say ' CSEVENT Set-up Functions                  8-/CSESETUP/'
  9.   @ 5,9 say  '1)  Create initial EVENT Names Directory (EDIRFILE)'
  10.   @ 6,9 say '2)  Edit the Special Event basic information in EDIRFILE '
  11.   @ 7,9 say  '3)  Create initial MEMBERSE file from MEMBERST '
  12.   @ 8,9 say  '4)  Event Lodging names editing '
  13.   @ 9,9 say  '5)  Event Session names editing '
  14.   @ 10,9 say '6)  Event Transportation names editing '
  15.   @ 11,9 say '7)  Display / Print the EDIRFILE'
  16.   @ 12,9 say '8)  Re-index the MEMBERSE file '
  17.   @ 13,9 say '9)  Re-index the EDIRFILE file '
  18. ?
  19. Accept '         Enter selection ' to MSEL
  20. ?
  21. Store F to valid2
  22. Do while .NOT. valid2
  23.   Store T to valid2
  24.   Do CASE
  25.     CASE MSEL = '1'
  26.       ? 'Now about to delete any existing EDIRFILE to make a new, clear one.'
  27.       Accept 'OK to proceed? ' to XX
  28.       If !(xx)='Y'
  29.       Select secondary
  30.       Use edirfilx
  31.       Copy to edirfile
  32.       Use edirfile
  33.       Set talk on
  34.       Index on spact to edirfile
  35.       Set talk off
  36.       Use edirfile index edirfile
  37. ? 'The Special Event Names Directory has now been initialized for a new event.'
  38. ? 'You now need to perform Set-up function 2 - "Edit .. EDIRFILE"'
  39.       Accept 'Press <retn> ' to xx
  40.       else
  41.         Accept  'No action is taken on the EDIRFILE. Press <retn> ' to xx
  42.       endif
  43.       Select primary
  44.     CASE MSEL = '2'
  45.       @ 17,12 say 'SPECIAL EVENT BASIC INFORMATION EDITING'
  46.       Select secondary
  47.       GOTO 2
  48.       Store $(spact,21,1) to D
  49.       SKIP
  50.       Store $(spact,4,27) to ename
  51.       SKIP
  52.       Store $(spact,4,40) to eplace
  53.       SKIP
  54.       Store $(spact,4,40) to etime
  55.       SKIP
  56.       Store $(spact,9,8) to xx
  57.       Store &xx to ecost
  58.       @ 18,22 say 'DATA DISK ' get D
  59.       @ 19,9 say 'EVENT NAME     ' get ENAME
  60.       @ 20,9 say 'EVENT PLACE    ' get EPLACE
  61.       @ 21,9 say 'EVENT DATE,TIME' get ETIME
  62.       @ 22,9 say 'EVENT COST     ' get ECOST
  63.       @ 23,12 say 'Press <ctrl-W> after editing'
  64.       READ
  65.       ? 'Now saving the above values in the EDIRFILE.'
  66.       Replace spact with ' F Cost:'+str(ecost,8,2)
  67.       GOTO 2
  68.       Replace spact with $(spact,1,20)+D
  69.       SKIP
  70.       Replace spact with ' C '+ename
  71.       SKIP
  72.       Replace spact with ' D '+eplace
  73.       SKIP
  74.       Replace spact with ' E '+etime
  75.       Use EDIRFILE INDEX EDIRFILE
  76.       ? 'Now restoring local memory values.'
  77.       Save to FMEMVARS
  78.       Select primary
  79.     CASE MSEL='3'
  80.       Select primary
  81.       Use MEMBERST
  82.       ? 'WARNING - This routine deletes any existing MEMBERSE file '
  83.       ? 'to make another on data disk = "',D,'".'
  84.       Accept 'Are you sure you want to do this? ' to XX
  85.       If !(XX)='Y'
  86.         ? 'Now creating a new, empty MEMBERSE file.'
  87.         Store D+':MEMBERSE' to MFILE
  88.         Copy Structure to &MFILE
  89.         Use &MFILE
  90.         Index on last:name+first:name to &MFILE
  91.         Use
  92. Accept 'The MEMBERSE file and index have now been created. Press <retn> ' to xx
  93.       else
  94.         Accept 'No MEMBERSE file is made. Press <retn> ' to xx
  95.       endif
  96.     CASE MSEL = '4'
  97.  Select secondary
  98.  Store T to level3
  99.  ? 'Now editing Lodging codes and names.'
  100.  ?
  101.  Do while level3
  102. Accept 'Select:  A]dd   C]hange   D]elete   S]creen   V]erify   Q]uit ' to nsel
  103.   Store F to valid2
  104.   Do while .not.valid2
  105.     If (!(nsel)='Q'.or.!(nsel)=' ').and.len(nsel)=1
  106.       Store T to valid2
  107.       Store F to level3
  108.     else
  109.       If @(!($(nsel,1,1)),'ADCSV')<>0
  110.         Store T to valid2
  111.       else
  112.         Accept 'Invalid entry. Please enter again ' to nsel
  113.       endif
  114.     endif
  115.   enddo
  116.   If level3
  117.    If !(nsel)='V'.or.!(nsel)='S'
  118.     If !(nsel)='V'
  119. ? 'Now verifying the Lodging codes in all MEMBERSE records.'
  120. Select primary
  121. GOTO TOP
  122. Do while .not. EOF
  123.   If room<>'        '.and.$(room,9,1)<>'*'
  124.   Store 'ROOM='+room to froom
  125.   Store $(last:name,1,11)+' '+$(first:name,1,10) to fname
  126.   Select secondary
  127.   find &froom
  128.   Store F to goodroom
  129.   If #=0
  130.     ? froom,fname,'*  Lodging not found.'
  131.   else
  132.     If $(spact,15,22)<>fname
  133.       ? froom,fname,'*  Name does not match.'
  134.     else
  135.       Store T to goodroom
  136. ? 'GOOD ROOM: ',froom,fname,spact
  137.     endif
  138.   endif
  139.   Select primary
  140.   If .not. goodroom
  141.     Replace room with $(room,1,8)+'*'
  142.   endif
  143.   endif
  144. Accept 'NEXT' to xx
  145.   SKIP
  146. enddo
  147. Accept 'All names are verified. Press <retn> ' to xx
  148.      else
  149.           Select secondary
  150.           Store 'ROOM=' to infield
  151.           ? '  Lodging names  -'
  152.           Find &infield
  153.           If #=0
  154.             Accept 'No Lodging codes/names found. Press <retn> ' to xx
  155.           else
  156.             Set raw on
  157.             Do while spact=infield.and..not.EOF
  158.               Store $(spact,1,9) to innf
  159.               ? '[',$(spact,6,3),']  ',$(spact,10,28)
  160.               Do while (spact=innf.or.$(spact,11,1)='.').and..not.EOF
  161.                 SKIP
  162.               enddo
  163.             enddo
  164.           endif
  165.       endif
  166.     else
  167.     If len(nsel)>3
  168.       Store $(nsel,2,3)+'  ' to cchng
  169.       Store $(nsel,1,1) to nsel
  170.     else
  171.       Accept 'Enter a Lodging code ' to cchng
  172.       Store cchng+'  ' to cchng
  173.     endif
  174.     If !(cchng)='Q  '
  175.       Store F to level3
  176.     else
  177.       Store 'ROOM='+cchng to ichng
  178.       Find &ichng
  179.       Do CASE
  180.       CASE !(nsel)='A'
  181.         If #<>0
  182.         ? 'This Lodging code already exists.'
  183.         else
  184.         Accept 'Enter a Lodging name for this code ' to ccname
  185.         Store ccname+'  ' to ccname
  186.         If !(ccname)='Q  ' .or. !(ccname)='   '
  187.           ? 'No entry is made.'
  188.         else
  189.           Append blank
  190.           Replace spact with ichng+ccname
  191.           ? 'New Lodging is:   ',spact
  192.         endif
  193.         endif
  194.       CASE !(nsel)='D'
  195.         If #=0
  196.           ? 'This code is not found.'
  197.         else
  198.           ? 'Deleted Lodging is:   ',spact
  199.           Replace spact with $(spact,1,8)+'.'
  200.           Delete
  201.         endif
  202.       CASE !(NSEL)='C'
  203.         If #=0
  204.           ? 'This code is not found.'
  205.         else
  206.           ? 'Lodging being changed is:   ',spact
  207.           Accept 'Enter a new Lodging name for this code ' to ccname
  208.           Store ccname+'  ' to ccname
  209.           If !(ccname)='Q  '.or.ccname='   '
  210.             ? 'No change is made.'
  211.           else
  212.             Replace spact with $(spact,1,10)+ccname
  213.           endif
  214.         endif
  215.       ENDCASE
  216.     endif
  217.   endif
  218.   enddo
  219.     CASE MSEL='5'
  220. Select secondary
  221. Store T to level3
  222.  ? 'Now editing Session codes and names.'
  223.  ?
  224.  Do while level3
  225.   Accept 'Select:  A]dd   C]hange   D]elete   S]creen   Q]uit  ' to nsel
  226.   Store F to valid2
  227.   Do while .not.valid2
  228.     If (!(nsel)='Q'.or.!(nsel)=' ').and.len(nsel)=1
  229.       Store T to valid2
  230.       Store F to level3
  231.     else
  232.       If @(!($(nsel,1,1)),'ADCS')<>0
  233.         Store T to valid2
  234.       else
  235.         Accept 'Invalid entry. Please enter again ' to nsel
  236.       endif
  237.     endif
  238.   enddo
  239.   If level3
  240.     If !(nsel)='S'
  241.           Select secondary
  242.           Store 'SESS=' to infield
  243.           ? '  Session names  -'
  244.           Find &infield
  245.           If #=0
  246.             Accept 'No Session codes/names found. Press <retn> ' to xx
  247.           else
  248.             Set raw on
  249.             Do while spact=infield.and..not.EOF
  250.               Store $(spact,1,11) to innf
  251.               ? '[',$(spact,6,5),']  ',$(spact,11,28)
  252.               Do while (spact=innf.or.$(spact,11,1)='.').and..not.EOF
  253.                 SKIP
  254.               enddo
  255.             enddo
  256.           endif
  257.       else
  258.     If len(nsel)>5
  259.       Store $(nsel,2,5)+'  ' to cchng
  260.       Store $(nsel,1,1) to nsel
  261.     else
  262.       Accept 'Enter a Session code ' to cchng
  263.       Store cchng+'      ' to cchng
  264.       Store $(cchng,1,5)+'  ' to cchng
  265.     endif
  266.     If !(cchng)='Q  '
  267.       Store F to level3
  268.     else
  269.       Store 'SESS='+cchng to ichng
  270.       Find &ichng
  271.       Do CASE
  272.       CASE !(nsel)='A'
  273.         If #<>0
  274.         ? 'This Session code already exists.'
  275.         else
  276.         Accept 'Enter a Session name for this code ' to ccname
  277.         Store ccname+'  ' to ccname
  278.         If !(ccname)='Q  ' .or. !(ccname)='   '
  279.           ? 'No entry is made.'
  280.         else
  281.           Append blank
  282.           Replace spact with ichng+ccname
  283.           ? 'New Session is:   ',spact
  284.         endif
  285.         endif
  286.       CASE !(nsel)='D'
  287.         If #=0
  288.           ? 'This code is not found.'
  289.         else
  290.           ? 'Deleted Session is:   ',spact
  291.           Replace spact with $(spact,1,10)+'.'
  292.           Delete
  293.         endif
  294.       CASE !(NSEL)='C'
  295.         If #=0
  296.           ? 'This code is not found.'
  297.         else
  298.           ? 'Session being changed is:   ',spact
  299.           Accept 'Enter a new Session name for this code ' to ccname
  300.           Store ccname+'  ' to ccname
  301.           If !(ccname)='Q  '.or.ccname='   '
  302.             ? 'No change is made.'
  303.           else
  304.             Replace spact with $(spact,1,12)+ccname
  305.           endif
  306.         endif
  307.       ENDCASE
  308.     endif
  309.    endif
  310.   endif
  311.   enddo
  312.     CASE MSEL='6'
  313. Select secondary
  314. Store T to level3
  315.  ? 'Now editing Transportation codes and names.'
  316.  ?
  317.  Do while level3
  318. Accept 'Select:  A]dd   C]hange   D]elete   S]creen   V]erify   Q]uit ' to nsel
  319.   Store F to valid2
  320.   Do while .not.valid2
  321.     If (!(nsel)='Q'.or.!(nsel)=' ').and.len(nsel)=1
  322.       Store T to valid2
  323.       Store F to level3
  324.     else
  325.       If @(!($(nsel,1,1)),'ADCSV')<>0
  326.         Store T to valid2
  327.       else
  328.         Accept 'Invalid entry. Please enter again ' to nsel
  329.       endif
  330.     endif
  331.   enddo
  332.   If level3
  333.    If !(nsel)='V'.or.!(nsel)='S'
  334.     If !(nsel)='V'
  335. ? 'Now verifying the Transportation codes in all MEMBERSE records.'
  336. Select primary
  337. GOTO TOP
  338. Do while .not. EOF
  339.   If transpor<>'     '.and.$(transpor,6,1)<>'*'
  340.   Store $(last:name,1,11+' '+$(first:name,1,10) to fname
  341.   Store 'TRAN='+transpor+fname to froom
  342.   Select secondary
  343.   find &froom
  344.   If #=0
  345.     ? froom,fname,'*  Transportation/Name not found.'
  346.     Select primary
  347.     Replace transpor with $(transpor,1,5)+'*'
  348.   else
  349.     Select primary
  350.   endif
  351.   endif
  352.   SKIP
  353. enddo
  354. Accept 'All names are verified. Press <retn> ' to xx
  355.     else
  356.           Select secondary
  357.           Store 'TRAN=' to infield
  358.           ? '  Transportation names  -'
  359.           Find &infield
  360.           If #=0
  361.             Accept 'No Transportation codes found. Press <retn> ' to xx
  362.           else
  363.             Set raw on
  364.             Do while spact=infield.and..not.EOF
  365.               Store $(spact,1,11) to innf
  366.               ? '[',$(spact,6,5),']  ',$(spact,11,28)
  367.               Do while (spact=innf.or.$(spact,11,1)='.').and..not.EOF
  368.                 SKIP
  369.               enddo
  370.             enddo
  371.           endif
  372.    endif
  373.   else
  374.     If len(nsel)>5
  375.       Store $(nsel,2,5)+'  ' to cchng
  376.       Store $(nsel,1,1) to nsel
  377.     else
  378.       Accept 'Enter a Transportation code ' to cchng
  379.       Store cchng+'      ' to cchng
  380.       Store $(cchng,1,5)+'  ' to cchng
  381.     endif
  382.     If !(cchng)='Q  '
  383.       Store F to level3
  384.     else
  385.       Store 'TRAN='+cchng to ichng
  386.       Find &ichng
  387.       Do CASE
  388.       CASE !(nsel)='A'
  389.         If #<>0
  390.         ? 'This Transportation code already exists.'
  391.         else
  392.         Accept 'Enter a Transportation name for this code ' to ccname
  393.         Store ccname+'  ' to ccname
  394.         If !(ccname)='Q  ' .or. !(ccname)='   '
  395.           ? 'No entry is made.'
  396.         else
  397.           Append blank
  398.           Replace spact with ichng+ccname
  399.           ? 'New Transportation is:   ',spact
  400.         endif
  401.         endif
  402.       CASE !(nsel)='D'
  403.         If #=0
  404.           ? 'This code is not found.'
  405.         else
  406.           ? 'Deleted Transportation is:   ',spact
  407.           Replace spact with $(spact,1,10)+'.'
  408.           Delete
  409.         endif
  410.       CASE !(NSEL)='C'
  411.         If #=0
  412.           ? 'This code is not found.'
  413.         else
  414.           ? 'Transportation being changed is:   ',spact
  415.           Accept 'Enter a new Transportation name for this code ' to ccname
  416.           Store ccname+'  ' to ccname
  417.           If !(ccname)='Q  '.or.ccname='   '
  418.             ? 'No change is made.'
  419.           else
  420.             Replace spact with $(spact,1,12)+ccname
  421.           endif
  422.         endif
  423.       ENDCASE
  424.     endif
  425.    endif
  426.   endif
  427.   enddo
  428.     CASE MSEL = '7'
  429.       ?
  430.       ? 'Now displaying the EDIRFILE.  '
  431.       Select secondary
  432.       GOTO top
  433.       SKIP
  434.       Do while .not. EOF
  435.         ? spact
  436.         SKIP
  437.       enddo
  438.       Accept 'Report is complete. Press <retn> ' to xx
  439.     CASE MSEL = '8'
  440.       Select primary
  441.       Store D+':MEMBERSE' to mfile
  442.       Use &MFILE
  443.       ? 'Now re-indexing the MEMBERSE file.'
  444.       Set talk on
  445.       Index on last:name+first:name to &MFILE
  446.       Set talk off
  447.       Use &MFILE index &MFILE
  448.       Accept 'MEMBERSE file is now re-indexed. Press <retn>' to xx
  449.     CASE MSEL = '9'
  450.       Select secondary
  451.       Use EDIRFILE
  452.       ? 'Now re-indexing the EDIRFILE file.'
  453.       Set talk on
  454.       Index on spact to EDIRFILE
  455.       Set talk off
  456.       Use EDIRFILE index EDIRFILE
  457.       Select primary
  458.       Accept 'The EDIRFILE file is now re-indexed. Press <retn>' to xx
  459.     CASE !(MSEL) = 'Q'
  460.       Store F to LEVEL2
  461.       RETURN
  462.     OTHERWISE
  463.       Accept 'Illegal selection. Please enter again ' to MSEL
  464.       Store F to valid2
  465.   ENDCASE
  466. ENDDO
  467. enddo
  468. RETURN
  469.  
  470. Andersen       Ann           Andersen       Gary          Andersen       Norm          Andersen       Patricia      Baker          Diane         Baker          Dr. Kenneth   Baker          Greg          Baker          Jim               Baker          John          
  471. Baker          Karen          Barry          Alice          Baxter         Alan          Bezanson       Janet         Bezanson       Jim           Bloomgren      Ellen         Brunell     
  472.       Select secondary
  473.       GOTO top
  474.       SKIP
  475.       Do while .not. EOF
  476.         ? spact
  477.         SKIP
  478.       enddo
  479.       Accept 'Report is complete. Press <retn> ' to xx
  480.