001: PA
002: *
003: START:
004: CLR
005: DISPLAY                     Example Report 1
006: DISPLAY
007: S02.SETPTR
008: *
009: IF @USER.RETURN.CODE = 'Q' THEN GO END
010: IF @USER.RETURN.CODE = 'E' THEN GO START
011: IF @USER.RETURN.CODE = 'P' THEN GO PRNT
012: *
013: LIST STUDENT.ACAD.CRED \
014: WITH STC.PERSON.ID = <> \
015: WITH STC.TERM = <> \
016: WITH S02.CRS.LOCATION LIKE <>... \
017: S02.STC.CRS.NO STC.STATUS STC.STATUS.DATE \
018: STUDENT.ACAD.CRED.ADDDATE STC.CRED \
019: ID.SUPP \
020: HEADING "(S02.EXAMPLE1)              Example Report 1 (XABC)          'TL'
                         for Student <>
 Page 'PL'                                 <> 'L'"
021: <>
022: *
023: GO END
024: PRNT:
025: *
026: LIST STUDENT.ACAD.CRED \
027: WITH STC.PERSON.ID = <> \
028: WITH STC.TERM = <> \
029: WITH S02.CRS.LOCATION LIKE <>... \
030: S02.STC.CRS.NO STC.STATUS STC.STATUS.DATE \
031: STUDENT.ACAD.CRED.ADDDATE STC.CRED \
032: ID.SUPP \
033: LPTR
034: HEADING "(S02.EXAMPLE1)              Example Report 1 (XABC)          'TL'
                         for Student <>
 Page 'PL'                                 <> 'L'"
035: * 
036: END: