hexagon logo

Reading Certain Rows in a Text File

I have a text file with 5 rows containing serial numbers for reporting. I have a simple program using Do/Until and a counter to check 5 parts. I can get pcdmis to read the first line of the text file but how can I get pcdmis to skip the first line and move down the text file for each do/until?

For example:
D111111
D222222
D333333
D444444
D555555

DO/

ASSIGN/V1="C:\USERS\**************************************READ. TXT"

FPTR =FILE/OPEN,V1,READ
V3 =FILE/READ_UPTO,FPTR,"7"
FILE/CLOSE,FPTR,KEEP

COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
"Serial Number is "+V3

COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
              PLEASE LOAD PART

CIR1 =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,OUT,LEAST_SQR
THEO/<0,0,0>,<0,0,1>,1,0
ACTL/<0,0,0>,<0,0,1>,1,0
TARG/<0,0,0>,<0,0,1>
START ANG=0,END ANG=360
ANGLE VEC=<1,0,0>
DIRECTION=CCW
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=YES
NUMHITS=3,DEPTH=0,PITCH=0
SAMPLE METHOD=SAMPLE_HITS
SAMPLE HITS=1,SPACER=0
AVOIDANCE MOVE=BOTH,DISTANCE=0.5
FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
SHOW HITS=NO

ASSIGN/COUNTER=COUNTER+1

UNTIL/COUNTER==5