home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / MCNAMES2.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  2KB  |  72 lines
  1. * Program MCNAMES2 - Adds an OTHER name/category to MDIRFILE
  2. Store T to nogood
  3. Store T to GOODCATG
  4. ? 'Enter the 3-character OTHER function code you are adding to '
  5. Accept '(Example: "SCH" for school) ' to IC
  6. Do while nogood
  7.   If !(IC) = 'Q'
  8.    Store F to nogood
  9.   else
  10.    If len(IC) <> 3
  11.     Accept 'Entry was not 3 characters. Enter again ' to IC
  12.    else
  13.     Store F to nogood
  14.     Store IC+': ' to INOTH
  15.     Find &INOTH
  16.     If # = 0
  17.       ? 'This OTHER function category is not in the Names Directory.'
  18.       Accept 'Do you want to add it as new? ' to XY
  19.       If !(XY) = 'Y'
  20.         APPEND BLANK
  21.        Accept 'Enter name for the above function code (example: School) ' to X3
  22.         Store INOTH+$(X3,1,20) to X3
  23.         Replace spact with X3
  24.         ? spact,'  - ADDED'
  25.       else
  26.         Store F to goodcatg
  27.       endif
  28.     endif
  29.    endif
  30.   endif
  31. ENDDO
  32. If GOODCATG
  33.   Store T to morecode
  34.   Do while morecode
  35.     Store T to goodcode
  36.     Accept 'Enter a new OTHER code number ' to X2
  37.     Do case
  38.       CASE !(X2) = 'Q'
  39.         Store F to morecode
  40.         Store F to goodcode
  41.       CASE len(X2) = 1
  42.         Store '00'+X2 to X2
  43.       CASE len(X2) = 2
  44.         Store '0'+X2 to X2
  45.       CASE len(X2) = 3
  46.         Store T to goodcode
  47.       OTHERWISE
  48.         ? 'Invalid entry. Three characters, maximum. '
  49.         Store F to GOODCODE
  50.       ENDCASE
  51.     If GOODCODE
  52.       Store IC+'='+X2 to INOTHX
  53.       Find &INOTHX
  54.       If # <> 0
  55.         ? 'Not entered. Duplicate code number found   -  ',spact
  56.       else
  57.         APPEND BLANK
  58.        Accept 'Enter name for the above code (example: Roosevelt High) ' to X3
  59.         Store INOTHX+' '+$(X3,1,20) to X3
  60.         Replace spact with X3
  61.         ? spact,'     - NOW ADDED'
  62.         Store F to morecode
  63.       endif
  64.     endif
  65.   enddo
  66. endif
  67. RETURN Find &XSEL
  68.            If # = 0
  69.             APPEND BLANK
  70.             Accept 'Enter OTHER category name, up to 20 characters ' to XNAME
  71.      Store XSEL+XNAME to XNAME
  72.             Replace SPACT with X