I think it would be easier to do:
001 PQN 002 C Prompt for id 003 OEnter ID+ 004 IP %1 005 C Obtain user number 006 S5 007 IH%5:U50BB: 008 C Create list ending with userno 009 HEDIT-LIST UNIQUE.NAME. 010 H%5 011 STON 012 HI< 013 H%1 014 H< 015 H< 016 HFI< 017 P 018 C Use list just created 019 HGET-LIST UNIQUE.NAME. 020 H%5 021 STON 022 HLIST FILE 023 P
The one thing you cannot do in PA is run user exits and get the results, whereas in PQ (and BASIC) you can. I used the userno exit, but I believe there is also one to return the pidno.
Although someone gave a BASIC solution, the overhead of that (to me) is wasteful. On the flip side, you have to know PROC and be able to (and WANT to) support it.
Good luck.
At 10:54 AM 7/9/2004, you wrote:
I have a paragraph that does...
SELECT FILE WITH @ID = <<TARGET>> RUN PROGRAM
{Program} LOOPS THROUGH READNEXT ID'S IF ID IS IN FILE IGNORE OTHERWISE PUT IN FILE
This works fine if <<TARGET>> exists in the FILE.
How would can I force the <<TARGET>> to be in an active select list if it's not in the file?
Keeping in mind this is in a paragraph.
I tried:
0001: PA 0002: * <<A,Enter ID>> 0003: EDIT-LIST 0004: DATA I 0005: DATA <<Enter ID>> 0006: DATA FI 0007: GET-LIST 0008: LIST FILE
But I'm stuck at the EDIT-LIST. How do I tell it a unique listname , unique for the PID anyway.
For Instance, If you say SAVE-LIST (noname), it saves it using a unique name for the PID, and GET-LIST (noname) will get this list. But is there anyway to get this uniquename for EDIT-LIST?
George ------- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
------- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
