>CASE p1 = 6 > getPrintedTSOStringA = "Select Distinct whslc From amflib6.itembl Where (LENGTH(TRIM(itnbr)) < 15 Or RIGHT(itnbr,1) <> 'F') And whslc <> 'REJECT' And vndnr = '" + ALLTRIM(p2) + "' And mohtq <> 0 order By whslc" > > IF SQLEXEC(tsoVARS.as400con, getPrintedTSOStringA, "getPrintedTSOQueryA") <> -1 Then > IF RECCOUNT("getPrintedTSOQueryA") > 0 Then > SCAN > tsoVars.whloc = getPrintedTSOQueryA.whslc > LABEL FORM purchasepartlabels3.lbx PREVIEW &&NOCONSOLE TO Printer > > ENDSCAN > > > ELSE > RETURN .F. > EndIf > > Else > If Aerror(odbcerrormsg) > 0 Then > MessageBox(odbcerrormsg(2)) > EndIf > Return .F. > ENDIF