[Download-List] idesc not returning value in download but does at colon prompt

[Alice Moore]

Dave,

How does @ID get reset?  I'm not sure I am following your logic.
At the suggestion of someone else I changed W04.CI.CR.PC to the following 
(which still works at colon but not in download)

Also, prior to having an idesc for W04.CI.CR.PC, I was just doing a 
secondary file lookup in my DOWNLOAD paragraph, and it still did not return 
the value (that is when I went to the idesc).. However, the other secondary 
lookups to the CR.acyr file that I am using do work.  Below is a section of 
my paragraph.

016: DOWNLOAD CI.<<ENTER FILE SUITE YEAR:, 4N>> FORMAT QUOTE FILE USER.HOLD 
ISIRPRINT.DAT OVERWRITING \
017: SECONDARY.FILE PERSON KEY CI.STUDENT.ID \
018: SECONDARY.FILE CR.<<ENTER FILE SUITE YEAR:, 4N>> KEY W04.CI.CR.EDE.KEY 
ALIAS CRFILE \
019: CI.STUDENT.ID \
020: W04.CI.CR.PC \  --> this doesn't
021: EVAL "TRANS('CR.2004',CI.STUDENT.ID:'*EDE.FC.1','CR.FC.PC','X')" 
\  --> this doesn't
022: CRFILE->CR.FC.SCA \     ---> this returns value
023: CRFILE->CR.FC.PC \   --> this doesn't

  Top of "W04.CI.CR.PC" in "DICT CI.2004", 9 lines, 215 characters.
001: I CR.FC.PC field from CR.ACYR file 3-4-04 by moorea
002: TRANS('CR.2004',FIELD(@ID,"*",1):'*EDE.FC.1','CR.FC.PC','X')

:AE DICT CI.2004 W04.CI.AUTO.ZERO
Top of "W04.CI.AUTO.ZERO" in "DICT CI.2004", 9 lines, 295 characters.
001: I Set Auto Zero EFC flag based on CR.FC.TYPE 3-9-2004 by moorea
002: TRANS('CR.2004',CI.STUDENT.ID:'*EDE.FC.1','CR.FC.TYPE','X'); IF @1 EQ 
'A' THEN "YES" ELSE "NO"
003:
004: AZE
005: 3L
006: S
007:


At 11:52 AM 3/9/2004 -0500, you wrote:
>Alice--
>
>What is the dictionary definition of W04.CI.AUTO.ZERO?
>I'm guessing that @ID is getting reset within that
>i-descriptor...so that it is not available for the
>i-descriptor which is giving you problems.
>
>
>
>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
>
> >>> moorea at wabash.edu 3/9/2004 9:14:41 AM >>>
>Hello,
>
>I am really stumped.  I have an idescriptor created in RDVF in the
>CI.ACYR
>file that I have copied into the CI.2004 dictionary and I have compiled
>
>it.  When I list the field at the colon prompt it returns my value,
>however, when I use it in a DOWNLOAD statement it does not return a
>value.  I have retyped it and recompiled it several times with no
>luck.  Any suggestions??
>
>AE DICT CI.2004 W04.CI.CR.PC
>Top of "W04.CI.CR.PC" in "DICT CI.2004", 9 lines, 214 characters.
>*--: P
>001: I CR.FC.PC field from CR.ACYR file 3-4-04 by moorea
>002: TRANS('CR.2004',CI.STUDENT.ID:'*EDE.FC.1','CR.FC.PC','X')
>003: MD0
>004: CR.FC.PC
>005: 10R
>006: S
>007:
>008:
>W04.CI.CR.PC^253^253TRANS('CR.2004',^128FIELD(@ID,"*",1)^129:'*EDE.FC.1','CR.FC.PC','X')
>009: CI.2004
>
>Works in LIST statement:
>
>LIST CI.2004 W04.CI.CR.PC 09:11:03 Mar 09 2004 1
>CI.ACYR........ CR.FC.PC..
>
>0195393*EDE          38531
>0205688*EDE          11255
>2 records listed
>
>Download statement:
>SELECT CI.2004 '0195393*EDE' '0205688*EDE'
>2 records selected to list 0.
>  >DOWNLOAD CI.2004 FORMAT QUOTE FILE USER.HOLD TSTISR.TXT OVERWRITING
>W04.CI.AUTO.ZERO W04.CI.CR.PC
>DOWNLOAD version 7.01
>Using input file CI.2004
>Output to file USER.HOLD TSTISR.TXT
>
>
>2 records processed.
>
>Download result:
>:AE USER.HOLD TSTISR.TXT
>Top of "TSTISR.TXT" in "USER.HOLD", 2 lines, 15 characters.
>001: "NO",""
>002: "NO",""
>Bottom.
>*--:
>
>What gives?
>
>Alice Moore
>Manager of Administrative Systems
>Wabash College
>765-361-6303
>moorea at wabash.edu
>
>"GOD PUT ME ON EARTH TO ACCOMPLISH A CERTAIN NUMBER OF THINGS,
>     RIGHT NOW I AM SO FAR BEHIND, I WILL NEVER DIE!"
>_______________________________________________
>download-list mailing list
>download-list at cedarville.edu
>http://mail.cedarville.edu/mailman/listinfo/download-list

Alice Moore
Manager of Administrative Systems
Wabash College
765-361-6303
moorea at wabash.edu

"GOD PUT ME ON EARTH TO ACCOMPLISH A CERTAIN NUMBER OF THINGS,
    RIGHT NOW I AM SO FAR BEHIND, I WILL NEVER DIE!"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.cedarville.edu/pipermail/download-list/attachments/20040309/8a70d45a/attachment.html>