This is what I was writing to the group requesting help. But I added on
pause 1 at the end so that I could get the SQL Return Code. The interactive
editor found that I was missing a space on one of the column name/start and
it even pointed to it when I said yes to modify. (fatfinger error). Then I
thought that I still had something wrong because it only took about 2
seconds before I got completion. So, I opened the table and "dang" if it
hadn't loaded all 25,000 rows in about two seconds.
A true testimonial!
Phil Nolette
P.S Thanks to everyone that turned me onto how to load fix field format.
=================================================================
I hate to even ask but I am getting down to wire and can not get this
program to run.
Can anyone see anything that I have missed?
I queried in all the column names so theres no mistake in the typing,
I checked the file format and computed the start and stops with the table
design.
It simply returns or switches back to keyboard with no load.
Phil
-- Program: USR.RMD
-- Purpose: Loads the NCA records from the mainframe text file in 25,000
increment file blocks
clear all variables
LOAD USR FROM 'ncap1_usr.txt' AS FORMATTED +
USING +
FILE_ID 1 3, NCA_ID 4 12, MSTR_RCD_TYP 13 13, MSTR_RCD_EXP 14 21,
REL_RCD_TYP 22 22, REL_RCD_EXP 23 30,+
MSTR_RCD_ST_DT 31 38, MSTR_RCD_END_DT 39 46, PRIM_EXT_ST_TM 47 55,
PRIM_EXT_END_TM 56 64, PBX_LOC_CD 65 68,+
PRIM_EXT_NBR 69 78, NET_NBR 79 88, STATION_NBR 89 90, DIR_DIAL_NBR 91 100,
DIR_DIAL_NBR_EN_DT 101 108,+
DIR_DIAL_NBR_V_CD 109 112, AUTH_CD 113 122, AUTH_CD_GP 123 124,
AUTH_CD_END_DT 125 132, PR_CC_NBR 133 150,+
PR_CC_END_DT 151 158, PR_CC_V_CD 159 162, SEC_CC_NBR 163 180, SEC_CC_END_DT
181 188, SEC_CC_V_CD 189 192,+
TER_CC_NBR 193 210, TER_CC_END_DT 211 218, TER_CC_V_CD 219 222, NCA_NM223
252, NAC 253 254, NAC_END_DT 255 262,+
VM_CD 263 263, VM_CD_END_DT 264 271, CM_CD 272 272, CM_CD_END_DT 273 280,
TEN_CD 281 281, COMP_CC_CD 282 293,+
CELL_PH_NBR 294 303, CELL_PH_NBR_END_DT 304 311, CELL_PH_NBR_V_CD 312 315,
PAGER_NBR 316 325,+
PAGER_NBR_END_DT 326 333, PAGER_NBR_V_CD 334 337, HOME_NBR 338 347,
HOME_NBR_END_DT 348 355,+
HOME_NBR_V_CD 356 359, EQ_P_CAT 360 362, RACF_ID 363 370, FILLER 371 390
winmail.dat
