IF PLIRETV() ^= 0 THEN DO;
PUT SKIP LIST('TSTPDS: LMINIT FAILED FOR VAR1 RC=',PLIRETV());
PUT SKIP LIST('TSTPDS: TERMINATING');
CALL PLIRETC(8);
RETURN;
END;
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
Posted: Tue Jun 13, 2006 8:31 am Post subject:
LMMSTATS sets the stats. To Retrieve them, use LMMFIND with the STATS option set to YES. YOu also need an LMOPEN and LMFREE. LMFREE does the LMCLOSE so you don't need an explicit LMCLOSE. And you might want to add a space to the LMMSTATS keyword since it is less than 8 bytes.
I have tried like follows also... but i could get required
Quote:
CALL ISPLINK ('LMMLIST ',VAR1,'LIST ','MEMBER ','YES ');
PUT SKIP LIST('LMMLIST RC:',PLIRETV());
IF PLIRETV()^= 0
THEN DO;
PUT SKIP LIST('TSTPDS: LMLIST FAILED FOR VAR1 RC=',PLIRETV());
CALL ISPLINK ('LMMLIST ',VAR1,'FREE ');
END;
ELSE DO;
PUT SKIP LIST('MEMBER NAME:',MEMBER);
PUT SKIP LIST('ZLUSER NAME:',ZLUSER);
END;
If i am giving ISPLINK's 3rd Parameter as SAVE, It is creating saperate PS file with all the details. But my requirement is, i should get user id in my program.
Please help...
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
