What's the conversion here? I'm not getting the same thing...
(Ven# is defined as 6-Packed Decimal)
From:
To:
(Ven# is defined as 6-Packed Decimal)
From:
PHP Code:
B004 C *IN05 IFEQ '1' HIT CF5
C EXSR VSRCH VEN SRCH
X004 C ELSE
C EXSR PENTER PENTER
E004 C END
E003 C END
E002 C END
X001 C ELSE
C Z-ADD A# VEN#
C EXSR PENTER
E001 C END
...
BGSR C VSRCH BEGSR
C Z-ADD 0 VEN#
C CALL 'VND030R '
C PARM 'Y' INQ 1
C PARM VEN#
C SETOFF 05
EDSR C ENDSR
PHP Code:
* Vendor Search
D Vend_Search PR ExtPgm( 'VND030R' )
D INQ 1
D Ven# 6
...
If *In05; // Hit F5
Inq = 'Y';
Ven# = *Zeros;
Vend_Search( Inq : Ven# );
*In05 = *Off;
Else;
ExSR PENTER; // Pressed ENTER
EndIF;
Comment