[Stackoverflow] [Progress OpenEdge ABL] error procedure in Progress 4gl

[Ciprian]

Can someone help me with the procedure below?

It gives me the error on line 95 and I don`t know why?

IF (sfa_dz_type = "1" OR sfa_dz_type = "2" /*magda*/ OR sfa_dz_type = "6" OR sfa_dz_type = "7" OR sfa_dz_type = "8" /*magda*/) THEN DO:
FIND LAST ttqr WHERE ttqr_new = sfa_dz_new NO-ERROR.
IF AVAILABLE ttqr THEN DO:
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain and usrw_key1 = "stocdz" AND usrw_key3 = locfrom AND usrw_charfld[2] = ttqr_old AND usrw_intfld[1] = 1 NO-ERROR.
IF AVAILABLE usrw_wkfl THEN DO:
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain and usrw_key1 = "stocdz" AND usrw_key3 = locto AND usrw_charfld[2] = ttqr_old NO-LOCK NO-ERROR.
IF AVAILABLE usrw_wkfl THEN DO:
output to value(lcDir + trim(engcode) + "log.txt") append.
put today " "
string(time,"hh:mm:ss")
"Seria " usrw_charfld[7] " exista deja in locatia " locto SKIP.
OUTPUT CLOSE.
ASSIGN
sfa_dz_trans = YES
sfa_dz_dbok = NO.
END. /*avl usrw_wkfl*/
ELSE DO:
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain and usrw_key1 = "stocdz" AND usrw_key3 = locfrom AND usrw_charfld[2] = ttqr_old AND usrw_intfld[1] = 1 NO-ERROR.
IF AVAILABLE usrw_wkfl THEN DO:
ASSIGN
part = usrw_key4
brand = usrw_charfld[5]
tip = usrw_charfld[1].
DELETE usrw_wkfl.
END.
create usrw_wkfl. usrw_wkfl.usrw_domain = global_domain.
assign
usrw_key1 = "stocdz"
usrw_key2 = locto + ttqr_old + string(TODAY)
usrw_key3 = locto
usrw_key4 = part
usrw_charfld[5] = brand
usrw_charfld[7] = sfa_dz_new
usrw_charfld[1] = tip
usrw_charfld[2] = ttqr_old
usrw_intfld[1] = 1
usrw_datefld[1] = TODAY
usrw_charfld[3] = "mfg"
usrw_charfld[4] = "dzreadtot.p"
usrw_charfld[12] = locfrom
usrw_charfld[14] = TRIM(sfa_dz_eng_code)
usrw_charfld[15] = "transfer"
usrw_charfld[13] = "mfg" + "|" + string(today) + "|"
+ string(time, "hh:mm:ss") + "|"
+ "dzreadtot.p".
usrw_charfld[6] = string(time, "hh:mm:ss").
output to value(lcDir + trim(engcode) + "log.txt") append.
put today " "
string(time,"hh:mm:ss") " "
"Seria " usrw_charfld[7] " a fost transferata din locatia " locfrom " in locatia " locto SKIP.
OUTPUT CLOSE.
ASSIGN
sfa_dz_trans = YES
sfa_dz_dbok = YES.
/*trasabilitate*/
create usrw_wkfl. usrw_wkfl.usrw_domain = global_domain.
assign
usrw_key1 = "transfer_dz"
usrw_key2 = part + string(recid(usrw_wkfl))
usrw_key3 = locfrom
usrw_key4 = locto
usrw_key5 = part
usrw_key6 = ttqr_old
usrw_datefld[1] = today
usrw_intfld[1] = 1
usrw_charfld[1] = "mfg"
usrw_charfld[2] = "dzreadtot.p"
usrw_charfld[3] = string(today) + "_"
+ string(time, "hh:mm:ss")
usrw_charfld[15] = "mutare echip"
usrw_charfld[6] = string(time, "hh:mm:ss").
END. /*else do*/
END. /*avl usrw_wkfl*/
ELSE DO:
/*
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain and usrw_key1 = "stocdz" AND usrw_key3 = locfrom AND usrw_charfld[2] = sfa_qr_old AND usrw_intfld[1] = 1 NO-ERROR.
if not available usrw_wkfl then do:
*/
output to value(lcDir + trim(engcode) + "log.txt") append.
put today " "
string(time,"hh:mm:ss") " "
"Seria " ttqr_new " nu exista in locatia " locfrom
" deci nu avem ce transfera " SKIP.
OUTPUT CLOSE.
ASSIGN
sfa_dz_trans = YES
sfa_dz_dbok = NO.
END.
END. /*sfa_qr_code*/
IF NOT AVAILABLE
THEN DO:
output to value(lcDir + trim(engcode) + "log.txt") append.
put today " "
string(time,"hh:mm:ss") " "
"Seria " sfa_dz_new " nu a fost niciodata inrolata, nu se poate efectua transferul din " locfrom " in locatia " locto SKIP.
OUTPUT CLOSE.
ASSIGN
sfa_dz_trans = YES
sfa_dz_dbok = NO.
END.

Continue reading...