RE: [U2] I-DESC Dict Items Returning SUBR Value
Thank you to Chuck, David, Brian and Bernard for your suggestions. I needed to add the information to atrributes 5 and 6 of the dictionary item, and it worked. I am still puzzled as to where I can find the structure of the ITYPE dict item described *fully* in the UV documentation. Thanks again, Dave Dave Taylor CEO Sysmark Information Systems, Inc. 49 Aspen Way Rolling Hills Estates, CA 90274 800-SYSMARK (800-797-6275) (O) 310-544-1974 (C) 310-561-5200 (F) 310-377-3550 www.sysmarkinfo.com Your Source for Integrated EDI Translation, DataSync Integration and Software Migration Authorized IBM Business Partner snip --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I-DESC Dict Items Returning SUBR Value
I have just tested it on my server, and always get the descriptions printed on multiple lines. I do not know what your routine UHL.WRAP is using as a delimited when returning the values in the ANS variable. I have tried here with either @vm or @am as the delimiter in the ANS variable and it is working. Also, have you tried using the 10T in the output format of the dictionary (attr 5). Then you do not have to write a subroutine, as this will wrap the text for you. Rgds -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dave Taylor Sent: Tuesday, 8 May 2007 2:18 PM To: u2-users@listserver.u2ug.org Subject: [U2] I-DESC Dict Items Returning SUBR Value I am trying to create a dictionary item in Universe 10.0.10 and 10.2.3 that will return the description of an item wrapped in multiple lines, if necessary, limited in a given width. The DICT item in the DICT of the PRINTERS file is PDESC: ED DICT PRINTERS PDESC This is a Type I Descriptor last compiled on 05/07/07 at 20:06. 20 lines long. : 0001: I : 0002: SUBR( 'PDESC' , @ID , @RECORD ) The Subroutine, PDESC, called by the DICT Item is: ED ES PDESC 8 lines long. : P 0001: SUBROUTINE PDESC(ANS,ID,RECORD) 0002: TEXT = RECORD1 0003: *PRINT @(5,22):'BEFORE WRAP ':TEXT 0004: WIDTH = 10 0005: CALL UHL.WRAP(ANS,TEXT,WIDTH) 0006: *PRINT @(5,23):'AFTER WRAP ':ANS 0007: RETURN 0008: END Bottom at line 8. When the PRINT statements are activated, the description prints properly in both BEFORE and AFTER cases. But, when I issue the statement at TCL: LIST PRINTERS PDESC, I get nothing returned from the I-Desc PDESC. What am I missing? tia, Dave Dave Taylor CEO Sysmark Information Systems, Inc. 49 Aspen Way Rolling Hills Estates, CA 90274 800-SYSMARK (800-797-6275) (O) 310-544-1974 (C) 310-561-5200 (F) 310-377-3550 www.sysmarkinfo.com Your Source for Integrated EDI Translation, DataSync Integration and Software Migration Authorized IBM Business Partner --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I-DESC Dict Items Returning SUBR Value
Dave Since you've done the hard work, I'm guessing it's probably something too obvious to notice - like not having the display width and format correctly defined in attribute 5 of your IType.. Brian I am trying to create a dictionary item in Universe 10.0.10 and 10.2.3 that will return the description of an item wrapped in multiple lines, if necessary, limited in a given width. The DICT item in the DICT of the PRINTERS file is PDESC: ED DICT PRINTERS PDESC This is a Type I Descriptor last compiled on 05/07/07 at 20:06. 20 lines long. : 0001: I : 0002: SUBR( 'PDESC' , @ID , @RECORD ) The Subroutine, PDESC, called by the DICT Item is: ED ES PDESC 8 lines long. : P 0001: SUBROUTINE PDESC(ANS,ID,RECORD) 0002: TEXT = RECORD1 0003: *PRINT @(5,22):'BEFORE WRAP ':TEXT 0004: WIDTH = 10 0005: CALL UHL.WRAP(ANS,TEXT,WIDTH) 0006: *PRINT @(5,23):'AFTER WRAP ':ANS 0007: RETURN 0008: END Bottom at line 8. When the PRINT statements are activated, the description prints properly in both BEFORE and AFTER cases. But, when I issue the statement at TCL: LIST PRINTERS PDESC, I get nothing returned from the I-Desc PDESC. What am I missing? tia, Dave Dave Taylor CEO Sysmark Information Systems, Inc. 49 Aspen Way Rolling Hills Estates, CA 90274 800-SYSMARK (800-797-6275) (O) 310-544-1974 (C) 310-561-5200 (F) 310-377-3550 www.sysmarkinfo.com Your Source for Integrated EDI Translation, DataSync Integration and Software Migration Authorized IBM Business Partner --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I-DESC Dict Items Returning SUBR Value
Hi Dave Have you tried using the T option in the format of the Dictionary. ie FMT 20T This will wrap the item after 20 characters and if I remember right will try a break between words. Regards David Jordan Managing Consultant --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I-DESC Dict Items Returning SUBR Value
Dave, To attract this lists' deepest-down-diving-est, longest-staying-under-est, most-with-mud-coming up-est gurus, try these: 1. Alter your I-descriptor to replace all system delimiters with a normal character that you can see: 01: I 02: SUBR( 'PDESC' , @ID , @RECORD ); CONVERT( @IM:@AM:@VM:SM: @TM:CHAR(250):CHAR(249):CHAR(248), iavstxyz, @ ) 03: 04: 05: 60L 06: S Does LIST PRINTERS PDESC display expected results? 2. Forget the subr, check the dict: Replace line 2 with something easy: DICT PRINTERS PDESC 01: I 02: xyz Does LIST PRINTERS PDESC display expected results? 3. Replace xyz with hardcoded exact results you expect from the subroutine. 4. Forget the dict item, check the subr: Write run a wrapper: OPEN 'PRINTERS' TO F ELSE STOP ID = [something legit] READ REC FROM F, ID ELSE STOP CALL PDESC( ANS, ID, REC ) CRT QUOTE( ANS ) END If those all come out clean, it gets interesting. Maybe it's time to post source for UHL.WRAP. Happy digging, Chuck --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] I-DESC Dict Items Returning SUBR Value
I am trying to create a dictionary item in Universe 10.0.10 and 10.2.3 that will return the description of an item wrapped in multiple lines, if necessary, limited in a given width. The DICT item in the DICT of the PRINTERS file is PDESC: ED DICT PRINTERS PDESC This is a Type I Descriptor last compiled on 05/07/07 at 20:06. 20 lines long. : 0001: I : 0002: SUBR( 'PDESC' , @ID , @RECORD ) The Subroutine, PDESC, called by the DICT Item is: ED ES PDESC 8 lines long. : P 0001: SUBROUTINE PDESC(ANS,ID,RECORD) 0002: TEXT = RECORD1 0003: *PRINT @(5,22):'BEFORE WRAP ':TEXT 0004: WIDTH = 10 0005: CALL UHL.WRAP(ANS,TEXT,WIDTH) 0006: *PRINT @(5,23):'AFTER WRAP ':ANS 0007: RETURN 0008: END Bottom at line 8. When the PRINT statements are activated, the description prints properly in both BEFORE and AFTER cases. But, when I issue the statement at TCL: LIST PRINTERS PDESC, I get nothing returned from the I-Desc PDESC. What am I missing? tia, Dave Dave Taylor CEO Sysmark Information Systems, Inc. 49 Aspen Way Rolling Hills Estates, CA 90274 800-SYSMARK (800-797-6275) (O) 310-544-1974 (C) 310-561-5200 (F) 310-377-3550 www.sysmarkinfo.com Your Source for Integrated EDI Translation, DataSync Integration and Software Migration Authorized IBM Business Partner --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
