[Download-List] Associated Values on a Line

[Rotman, David]

Using an exploded list would generally produce one line per award, which
appears to not be what you want.

Our approach would be to create virtual fields for PELL and FSEOG in the
SA.acyr files.

Our entry for PEL.AMOUNT (our award code is only 3 characters) is:
001: I
002: SUBR('S.C26.IF.WHEN',SA.AWARD,'PEL',SA.AMOUNT)
003: MD2,
004: PEL.AMOUNT
005: 11R
006: S

The subroutine S.C26.IF.WHEN is quite short.  Here is our insert file from
CORE.INSERTS:
*      SUBROUTINE S.C26.IF.WHEN(A.RETURN.VALUE,AL.LIST1,A.VALUE,AL.LIST2)
*
* INFO/BASIC SUBROUTINE
* 2/26/88
* Doug Sjoquist, Cedarville
* TITLE ----- IF.WHEN
*
*
* PURPOSE: RETRIEVE AN ITEM IN A MV ASSOC LIST (AL.LIST2) FOR THE
*           ASSOCIATED POSITION OF A VALUE IN AL.LIST1
*
*     Last updated by LIVE (SJOQUIST) at 11:25:55 on 02/26/1988.
*
********************************************************************
*

      A.RETURN.VALUE = ''
      NUM.VALUES = COUNT(A.VALUE, at VM) + 1
      FOR VALUE.CTR=1 TO NUM.VALUES
         SEARCH.VALUE = A.VALUE<1,VALUE.CTR>
         LOCATE SEARCH.VALUE IN AL.LIST1<1,1> SETTING VALUE.POS THEN
            A.RETURN.VALUE = AL.LIST2<1,VALUE.POS>
            RETURN
         END
      NEXT VALUE.CTR
      RETURN


David Rotman, Ph.D.
Associate Vice President for Technology
Chief Information Officer
Cedarville University
251 N. Main Street
Cedarville, OH 45314
rotmand at cedarville.edu
voice 937-766-7905
fax 937-766-8819



On Tue, Dec 10, 2013 at 2:44 PM, Colwell, Kim <kcolwell at dacc.edu> wrote:

> Is it possible to put associated values in different columns on a single
> line?
>
> In the following, I would like one line for each student, with the PELL
> amount in one column & the FSEOG amount in the next column, but it does not
> seem to be working ...
>
> DOWNLOAD SA.<<Enter Award Year (YYYY):>> BY.EXP SA.AWARD \
>  @ID \
>  SA.LAST \
>  SA.FIRST \
>  SA.TERM.RES \
>  EVAL "IF SA.AWARD = 'PELL' THEN SA.AMOUNT ELSE ''" \
>  EVAL "IF SA.AWARD = 'FSEOG' THEN SA.AMOUNT ELSE ''" \
>  HEADING \
>   LITERAL "Coll_ID" \
>   LITERAL "LastName" \
>   LITERAL "FirstName" \
>   LITERAL "Residency" \
>   LITERAL "PELL" \
>   LITERAL "FSEOG" \
>  FORMAT CSV \
> FILE _HOLD_ KCIPEDS-T3_<<Enter Term (YYYYSS):>>.csv OVERWRITING NO.PAGE
>
>
> Thanks,
>
> Kim Colwell
> Danville Area Community College
> kcowlell at dacc.edu
>
>
> _______________________________________________
> download-list mailing list
> download-list at cedarville.edu
> http://mail.cedarville.edu/mailman/listinfo/download-list
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.cedarville.edu/pipermail/download-list/attachments/20131211/678f79be/attachment.html>