Posted by Stephen Auerbach on April 07, 2006 at 07:15:29:
In Reply to: Re: Anyone Extract issues?? posted by Barbara Brazil on April 06, 2006 at 14:10:19:
Nothing so sexy as a read reverse. This code pre-dates reverse. Carbon dating puts it in the Mesozoic or Q.sozic era. Also known as SOLUTIONS.
Here is the existing code:
! ========== GET NEXT TRANSACTION NUMBER ==========
8800
CLOSE (Z1) & OPEN (Z1) "Z1"
NUMBER$ = SUB('ORPOCPRJDIDZCIDMCMSC',2 * TYPE - 1,2) + ' '
IF TYPE > 6 THEN TYPE = 5
EXTRACT (Z1,2619)KEY='*NUMB',EXCP=8820
SYSNBR(TYPE) = SYSNBR(TYPE) + .000001
WRITE (Z1,2619)
NUMBER$ = NUMBER$ + SUB(STR(SYSNBR(TYPE)),2,6)
IF TYPE = ORDER OR TYPE = PURCH THEN __
NUMBER$ = SUB(STR(SYSNBR(TYPE)),2,6) + "-00"
RETURN
8820 IF EXCP = 33 AGAIN
IF EXCP = 32 WRITE (Z1,2619)KEY='*NUMB' & GOTO 8800
ERROR
========================================================
Here is what I plan to change:
REWRITE (Z1,2619)
NUMBER$ = NUMBER$ + SUB(STR(SYSNBR(TYPE)),2,6)
IF TYPE = ORDER OR TYPE = PURCH THEN __
NUMBER$ = SUB(STR(SYSNBR(TYPE)),2,6) + "-00"
RETURN
8820 IF EXCP = 33
pause(2)
Again
Endif