On AIX 5.3/jBASE 5.0 it doesn't work. *** /bin/ksh: jLicServer: not found.
On Mar 18, 1:34 am, x <lucian_p...@yahoo.com> wrote: > The following works on jBASE 4.x. > Note that the routine takes about 3 seconds to complete. > > Lucian > > SUBROUTINE LICENSE.INFO(A,B) > * A : Licenses > * B : Number of users > > EQU CR TO CHAR(13) ;* Carriage Return > EQU LF TO CHAR(10) ;* Line Feed > EQU TAB TO CHAR(9) ;* Tab > > A = 0 > B = 0 > DATA 'view','exit' > EXECUTE @IM:'k jLicServer console' CAPTURING ZZZ > ZZZ = UPCASE(ZZZ) > NRI = DCOUNT(ZZZ,@FM) > FOR I = 1 TO NRI > LINE = ZZZ<I> > CONVERT TAB:LF:CR TO ' ' IN LINE > LINE = TRIM(LINE) > CONVERT ' ' TO @FM IN LINE > IF LINE<1> = 'USERS' THEN B += 1 > K = DCOUNT(LINE,@FM) > IF LINE<K-2> = 'USERS' AND LINE<K> MATCHES '1N0N' THEN A = LINE<K> > NEXT I > RETURN > END --~--~---------~--~----~------------~-------~--~----~ Please read the posting guidelines at: http://groups.google.com/group/jBASE/web/Posting%20Guidelines IMPORTANT: Type T24: at the start of the subject line for questions specific to Globus/T24 To post, send email to jBASE@googlegroups.com To unsubscribe, send email to jbase-unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/jBASE?hl=en -~----------~----~----~----~------~----~------~--~---
