Sub error

[ahaslam]

Any one wanna take a guess at why I am getting this error?

 

RUN TIME -PST(2016)- 'subprg$' must be set to 1 (overwrite) or 2 (append) to open auxiliary file.

 

psubcall   # Sub Call

        force_wcs = one
        toolchng = one
        force_wcs = one
        toolchng = one
        while sreps < sub_out, pm98_call  # Output M98 Calls to Main
        subout$ = one
        subno_2 = subno
        *subno_2, e$   # Output program number for SUB --------------------------------------- Post line 2016
        scomm_str, no_spc$, "PN", snamenc$, scomm_end, e$
        scomm_str, no_spc$, "SUB PROGRAM", *subno_2, scomm_end, e$
        scomm_str, no_spc$, *strtool$, scomm_end, e$
        if scomm_sav <> snull,
        [
        scomm_str, no_spc$, *scomm_sav, scomm_end, e$
        scomm_sav = snull
        ]

 

I never explisitly change the subprg$ and subout$ never gets past one. The program its self looks fine. Just throws this warning every time I try to sub.

 

I'm stumped.

[Tim Johnson]

My subprg$ is set to 1.

subprg$      : 1     #sub nc file ---  subout = 1 (tool path files)
auxprg$      : 1     #aux nc file ---  subout = 2 (tool setter files)
extprg$      : 1     #ext nc file ---  subout = 3 (M198 files)

[ahaslam]

 

Well initializing worked... Thanks

[Colin Gilchrist]

You have to "tell" MP that the subprogram file "exists".

 

Changing the 'subout$' variable to '1', switches the "output stream" to the Sub file, but you first must initialize the subprogram file. The reason is that MP has two "modes" of writing to the subroutine file, and it wants you to choose which mode to use.

 

Setting 'subprg$' to '1' tells MP to create a new subprogram file. If one exists, it is overwritten. If no file exists, then one is created. Setting 'subprg$' to '2' tells MP to "append" the new stream data to the end of the existing file (or create a new one, if no file exists.)

 

So that is why you are getting the error. Note that you can simply set "subprg$ = 1" as a post line, as long as you use the line before you start writing any new characters to the sub file.

psubcall   # Sub Call

        force_wcs = one
        toolchng = one
        force_wcs = one
        toolchng = one
        while sreps < sub_out, pm98_call  # Output M98 Calls to Main
        subout$ = one
        subno_2 = subno

        subprg$ = one #Initialize sub file

        *subno_2, e$   # Output program number for SUB --------------------------------------- Post line 2016
        scomm_str, no_spc$, "PN", snamenc$, scomm_end, e$
        scomm_str, no_spc$, "SUB PROGRAM", *subno_2, scomm_end, e$
        scomm_str, no_spc$, *strtool$, scomm_end, e$
        if scomm_sav <> snull,
        [
        scomm_str, no_spc$, *scomm_sav, scomm_end, e$
        scomm_sav = snull
        ]

Hope that helps...

[ahaslam]

Indeed. Thanks Colin.