CSV Reading Question - family of similar parts

Good morning all. I am having no luck finding this; how can i do this a little better?
All help is appreciated.

IF L2<>MYPART
skip to the next line and try it again
END IF

C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
Enter the LAST TWO digits of the
WindChill part number before the A
"(08 - 52)"
ASSIGN/MYPART=C1.INPUT
FPTR =FILE/OPEN,M:\...\g1c9034.csv,READ
DO/
L2 =FILE/READ_UPTO,FPTR,","
MARK =FILE/READ_UPTO,FPTR,","
WPN =FILE/READ_UPTO,FPTR,","
CDIM =FILE/READ_UPTO,FPTR,","
DDIM =FILE/READ_UPTO,FPTR,","
LHZ =FILE/READ_UPTO,FPTR,","
RHZ =FILE/READ_UPTO,FPTR,","
IF/MYPART==L2
FILE/CLOSE,FPTR,KEEP
GOTO/20
END_IF/
UNTIL/L2=="EOF"
20 =LABEL/
ASSIGN/CHOICE="You chose: Mark " + MARK + " P/N " + WPN
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
CHOICE

JEFMAN over 2 years ago

I would try something like this :

WHILE/L2<>MYPART AND L2<>""
FILE/READ,FPTR,{L2}+","+{MARK}+","+{WPN}+","+{CDIM}+"," +{DDIM}+","+{LHZ}+","+{RHZ}
END WHILE/
ASSIGN/CHOICE="You chose: Mark " + MARK + " P/N " + WPN
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
CHOICE

Robert Hutton over 2 years ago

Will give it a shot tomorrow; thanks JEFMAN!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Robert Hutton over 2 years ago in reply to Robert Hutton

Worked like a charm! Thank you JEFMAN
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel