Shareware Overload/ShartewareOverload.cdr/database/chrchpr4.zip/MGIAROST.CMD

OS/2 REXX Batch file | 1987-01-06 | 5KB | 168 lines

* Program MGIAROST - Generates MSKILLS file of people's Interests/Abilities
*  OUTPUT:  [MSKILLS index MSKILLS] - has DELETED's in it
Erase
Set intensity off
Set talk off
@ 2,10 say 'Interests/Abilities file generation process'
?
? 'This program prints out data errors when found, so ready the printer.'
@ 5,0 say  'Now scanning the MDIRFILE for SKILLS names.'
Select primary
USE MDIRFILE index MDIRFILE
Store 'SKLS=' to spac
Find &SPAC
If # = 0
  Accept 'No SKILLS in MDIRFILE. Press <retn> ' to XX
else
Select secondary
USE MDIRFILX
Copy structure to SPACFILE
Use SPACFILE
Select primary
Store 1 to actcount
Store ' ' to actlist
Store 'SKILLS found are: ' to actlname
Do while $(spact,1,4) = 'SKLS'
  Select secondary
  Append blank
  replace SPACT with $(P.SPACT,6,4)
  If actcount<85
    Store actlist+$(spact,1,4) to actlist
    Store actcount+1 to actcount
  else
    ? actlname,actlist
    Store ' '+$(spact,1,4) to actlist
  endif
  Select primary
  SKIP
enddo
Select secondary
USE SPACFILE
Index on SPACT to SPACFILE
USE SPACFILE index SPACFILE
? actlname,actlist
? 'Now copying MEMBERS that have SKILLS to MSKILLS file.'
Select primary
Store d+':members' to MFILE
USE &MFILE
Store d+':MSKILLS' to M1FILE
Set talk on
COPY to &M1FILE for $(SKILLS,1,3) <> '   ' .and. $(membstatus,2,1) <> '*'
Set talk off
USE &M1FILE
GOTO bottom
Append blank
Delete
Store # to lastrec
GOTO top
Store 1 to reccount
? 'Now expanding MSKILLS file for multi-skills people.'
Set format to print
@ 1,10 say 'Interests/Abilities code errors in MEMBERS file  '+curdate
Store 3 to curline
Store 0 to recnum
Store 0 to recc
Do while # < lastrec
    Store skills to skill
    Store # to currec
    Store 1 to fieldcnt
    Do while fieldcnt < 31
      Store $(skill,fieldcnt,2) to spactiv
      If spactiv='  '
        Store 31 to fieldcnt
      else
        Select secondary
        Find &spactiv
        If # = 0
         Select primary
         Store $(skill,fieldcnt,31-fieldcnt) to badspact
         If fieldcnt=1
           Delete
         endif
         Store 32 to fieldcnt
        else
         Select primary
         Store $(SKILL,fieldcnt,2)+'.' to spactiv
         If $(SKILL,fieldcnt+2,1)='"'
           Store $(spactiv,1,2)+'"' to spactiv
         endif
         If fieldcnt>1
         Store last:name to xlast
         Store first:name to xfirst
         Store membstatus to xmemb
         Store home:phone to xhph
         Store work:phone to xwph
         Store address to xaddr
         Store city:state to xcityst
         Store zip to xzip
         Store birthdate to xbirth
         Store ss:sc:memb to xsssc
         Store sp:activty to xspactiv
         Store other to xother
         Store dates to xdates
         Append blank
         Replace last:name with xlast
         Replace first:name with xfirst
         Replace membstatus with xmemb
         Replace home:phone with xhph
         Replace work:phone with xwph
         Replace address with xaddr
         Replace city:state with xcityst
         Replace zip with xzip
         Replace birthdate with xbirth
         Replace ss:sc:memb with xsssc
         Replace skills with spactiv
         Replace other with xother
         Replace sp:activty with xspactiv
         Replace dates with xdates
         GOTO currec
         else
           Replace skills with spactiv
         endif
        Store fieldcnt+3 to fieldcnt
        endif
      endif
    enddo
  If fieldcnt = 32
    @ curline,1 say ss:sc:memb+last:name+first:name+home:phone+address+badspact
    If *
      Replace  SKILLS with '~~~'
    endif
    Store curline+1 to curline
    If curline > 63
      EJECT
      Store 1 to curline
    endif
  endif
  SKIP
  Store recc+1 to recc
  If recc = 10
    Store 0 to recc
    Store recnum+10 to recnum
    Set format to screen
    ? recnum,' records processed.'
    Set format to print
  endif
enddo
EJECT
Set format to screen
USE &M1FILE
? 'Expansion is complete. Now indexing MSKILLS file by SKILLS name.'
Set talk on
Index on skills+last:name+first:name to &M1FILE
Set talk off
USE
? 'MSKILLS file is complete.'
Release spac,actcount,actlist,reccount,xlast,xfirst,xmemb,xhph,xwph,xaddr,xzip
Release xcityst,xbirth,xsssc,spactiv,xspactiv,xother,xdates,curline,actlname
Release skill
Set console off
Delete file('spacfile.dbf')
Delete file('spacfile.ndx')
Set console on
endif
RETURN
' to spac
Find &SPAC
If # = 0
  Accept 'No SKILLS in MDIRFILE. Press <retn> ' to X÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷