|
Post by mueh on Jun 3, 2021 15:51:58 GMT -5
George: REP .ZF .ZL NX filename gets Unknown Operand detected for filename PCmdReplace calls now PCmdCREATE and changed NmOp to 5 in _ObjPCmdT . REP and REPL didn't get updated . CRMV: use replace cmd .
DATA "REP", 33, 4, S, 0, 0, N, Y, Y, Y, "X,NX,U,NU,AND,OR"
DATA "REPL", 33, 3, S, 0, 0, N, Y, Y, Y, "X,NX,U,NU,AND,OR"
DATA "REPLACE", 33, 5, S, 0, 0, N, Y, Y, Y, "X,NX,U,NU,AND,OR"
I think that REP and REPL should be identical with REPLACE . Same problem with create CRE .ZF .ZL NX NU filename . Thanks
|
|
|
Post by George on Jun 4, 2021 11:03:33 GMT -5
MUEH: Good catch. When I did the parsing changes it became even more obvious how identical CREATE/REPLACE were, so I combined them.
But as usual, there's just so many pieces to this I missed - again.
And it isn't just the # operands that was missed, had to change the code in CREATE as well to handle the aliases.
'----- See if this is passed off from REPLACE <----------------------------------> IF gCmdNumOps > 0 AND LEFT$(UCASE$(gCmdOps(1)), 3) = "REP" THEN ' Is this REPLACE passing it off? ARRAY DELETE gCmdOps(1): ARRAY DELETE gCmdRaw(1): ARRAY DELETE gCmdOpsType(1) DECR gCmdNumOps ' lclRep = %True ' Flag as a REPLACE run END IF '
George
|
|
|
Post by mueh on Jun 6, 2021 1:12:22 GMT -5
George: CREATE .ZF .ZL filename replaces existing filename file if filename is NOT full path and Current dir in SPFLite is not the same as the dir of current file . 2.5.21149 Changed code in PCmdCreate is
fn = CRT.L1RData ' Pickup Lit1 as the Filename
CRT.FlgLit1 = %False ' Say Lit1 is no longer there
CRT.FlgDX = %True ' Say DX so X pop-outs are skipped
IF ISNOTNULL(PATHSCAN$(FULL, fn)) AND ISFALSE lclRep THEN MErrExit(%eFail, "File exists, use REPLACE to re-use it")
Thanks
|
|
|
Post by George on Jun 6, 2021 9:49:54 GMT -5
mueh: Another good catch.
Correction: I replaced it with
fn = CRT.L1RData ' Pickup Lit1 as the Filename CRT.FlgLit1 = %False ' Say Lit1 is no longer there CRT.FlgDX = %True ' Say DX so X pop-outs are skipped IF INSTR(fn, "\") = 0 THEN fn = TIP.Path + fn ' If unqualified, add the path IF ISFILE(fn) AND ISFALSE lclRep THEN MErrExit(%eFail, "File exists, use REPLACE to re-use it")
|
|
|
Post by mueh on Jun 19, 2021 2:19:54 GMT -5
George: After 2.5.21168 CRE/CREATE still don't have same NmOp value .
DATA "CRE", 8, 4, S, 0, 0, N, Y, Y, Y, "X,NX,U,NU,AND,OR"
DATA "CREATE", 8, 6, S, 0, 0, N, Y, Y, Y, "X,NX,U,NU,AND,OR"
Thanks
|
|
|
Post by George on Jun 19, 2021 9:30:00 GMT -5
MUEH: Darn you have good eyes!
Thanks George
|
|