Bill and I have corresponded "off line" regarding this
problem. It turns out that a semicolon inside a subroutine
was causing the problem. For some reason, the
UniBasic compiler accepted:
CALL MYPROG(X,Y;Z)
where the programmer intended
CALL MYPROG(X,Y,Z)
but this caused a problem when the subroutine
was invoked by an i-descriptor.
Dave Rotman
Director of Computer Services
Cedarville University
251 N. Main Street
Cedarville, OH 45314
rotmand at cedarville.edu
voice 937-766-7905
fax 937-766-8819
>>> Bill Pizer <pizerw at sage.edu> 4/4/2006 9:31 am >>>
Good morning folks,
I created (and compiled) a virtual field that does the following:
:AE DICT TX.ARCHV R90.TXA.SORTED.REUNION
Top of "R90.TXA.SORTED.REUNION" in "DICT TX.ARCHV", 9 lines, 800
characters.
001: I 03 Apr 2006 09:16am Datatel
002:
SUBR("S.SUBSTRINGS",TRANS("PERSON",TXA.DONOR.ID,"REUNION.CLASS","X"),3,2);
SUBR("X.SORT.LIST", at 1,'DL'); IF @2 THEN SUBR("-CATS",REUSE("~"), at 2)
ELSE ''; CONVERT("~","'", at 3);
TRANS("PERSON",TXA.DONOR.ID,"FIRST.NAME","X");
TRANS("PERSON",TXA.DONOR.ID,"MAIDEN.LAST.NAME","X");
TRANS("PERSON",TXA.DONOR.ID,"LAST.NAME","X"); TRIM(@5:" ":@6:" ":@7):"
":@4
003:
004: Sorted Reunion
005: 60L
006: S
007:
The subroutine called X.SORT.LIST just takes a MV'd list and sorts it
according to the 'DL' flag that I pass in.
The following code segment in DOWNLOAD squawks at me:
017: DOWNLOAD TX.ARCHV R90.TXA.SORTED.REUNION HEADING FIELD.NAMES
FORMAT QUOTE FILE _HOLD_ ACKNOWLEDGEMENTS OVERWRITING
Type beginning credit date for report: 01/01/06
Type ending credit date for report: 03/13/06
1317 records selected to list 0.
1266 records selected to list 0.
1251 records selected to list 0.
DOWNLOAD version 7.02
Using input file TX.ARCHV
Output to file _HOLD_ ACKNOWLEDGEMENTS
In /export/share/live/collive/XUTIL.SOURCE/_DOWNLOAD.LOAD at line 127
illegal ol
d type in U_change_type(): 959708472>
The strange item is .... if I change my dates to be closer together I
get the following error:
Type beginning credit date for report: 04/01/06
Type ending credit date for report: 04/04/06
39 records selected to list 0.
39 records selected to list 0.
34 records selected to list 0.
DOWNLOAD version 7.02
Using input file TX.ARCHV
Output to file _HOLD_ ACKNOWLEDGEMENTS
In /export/share/live/collive/XUTIL.SOURCE/_DOWNLOAD.LOAD at line 110
WARNING: U
NINITIALIZED VARIABLE USED! Zero Assumed!
In /export/share/live/collive/XUTIL.SOURCE/_DOWNLOAD.LOAD at line 110
WARNING: U
NINITIALIZED VARIABLE USED! Zero Assumed!
What am I missing?
_______________________________________________
download-list mailing list
download-list at cedarville.edu
http://mail.cedarville.edu/mailman/listinfo/download-list