Steps: To convert state files


Step 1: Download source files to PC

For instructions, see Steps: To download Day Care data.


Step 2: Create the county data library
The library name will be G4001XXX where XXX is the first three letters of the County Name.
Make sure that G4001INST is in your library list.
SBMJOB CMD(CALL PGM(INSTDLIB) PARM('G4001XXX')) 

Step 3: Create GHB0042T, GHB0043T, and GBH0066T files
CRTDUPOBJ OBJ(GHB0042T) FROMLIB(G4001CSC) OBJTYPE(*FILE) TOLIB(G4001XXX)
CRTDUPOBJ OBJ(GHB0043T) FROMLIB(G4001CSC) OBJTYPE(*FILE) TOLIB(G4001XXX)
CRTDUPOBJ OBJ(GHB0066T) FROMLIB(G4001CSC) OBJTYPE(*FILE) TOLIB(G4001XXX)


Step 4: Transfer source files to AS400

Use the ‘Data Transfer to AS400’ program in the Client Access folder.
Record length for FACILITY is 5000 and is 500 for FAMILY and INVOICE.
Transfer the three files to the G4001XXX data library.

Step 5: Copy the PF-SRC files to PF-DTA
CPYF FROMFILE(G4001DRH/INVOICE) TOFILE(G4001DRH/GHB0042T) 
MBROPT(*REPLACE) FMTOPT(*CVTSRC) 

CPYF FROMFILE(G4001DRH/FACILITY) TOFILE(G4001DRH/GHB0043T) 
MBROPT(*REPLACE) FMTOPT(*CVTSRC) 

CPYF FROMFILE(G4001DRH/FAMILY) TOFILE(G4001DRH/GHB0066T) 
MBROPT(*REPLACE) FMTOPT(*CVTSRC) 


Step 6: Remove all records from GHB0042T except service month/year to be converted

Use SQL.
For example, DELETE FROM G4001DRH/GHB0042T WHERE SERVDT <'2000-04-01'
Use WRKQRY to find out last Service Date.


Step 7: Clear files in ONECase

CLRPFM FILE(G4001DRH/DCAPL) 
CLRPFM FILE(G4001DRH/DCAPX) 
CLRPFM FILE(G4001DRH/DCENR) 
CLRPFM FILE(G4001DRH/DCAHF) 
CLRPFM FILE(G4001DRH/DCRTE) 
CLRPFM FILE(G4001DRH/DCVDR) 
CLRPFM FILE(G4001DRH/DCATD)
CLRPFM FILE(G4001DRH/DCFDT) 
CLRPFM FILE(G4001DRH/DCVTG)

NOTE: If rerun - Remove all records for vendors and persons in CSPER
DCVDR - Created by CVTDC1 CSPER - Created by CVTDC2

Step 8: SQL Workers from what’s in Invoice to ONECase Worker Id
Use Wrkqry to get a list of Worker ids in GHB0066T.
Setup all Workers in CSWKR (must have Worker number)
SQL caseworker field in file GHB0066T - See list on Tom’s Desk


Step 9: Define DC Controls

Set Start Calculation date in DCCTL


Step 10: Run CVTDC1C

Creates DCVDR, DCVTG, DCRTE and CSPER. 
Set Library list G4001XXX,G4001CSC,G4001CSO,G4001UTIL


Step 11: Run CVTDC2C 

Creates CSPER, DCAPL, DCAPX, DCAHF, DCENR, DCATD.

Step 12: Run Synchronization programs
Once results confirmed and accepted - Run Jim’s Programs to update base case files

NOTE: OBJECTS required in G4001CSC 
CL’s RPG’s
CVTDC1C CVTDC1
CVTDC2C CVTDC2
MAKRATE