Need my report to break by entity and sum detail lines



Unicenter CA-Easytrieve Plus Report Generator: CA's information retrieval and data management tool

Need my report to break by entity and sum detail lines

Postby jazzb1 » Fri Sep 10, 2010 5:29 am

Hi,

I have to modify an existing report to allow for more than one entity. Currently we are only doing one entity at a time ex:
* P R O G R A M D E S C R I P T I O N
************************************************************************
* MONTHLY REFUND CONTROL BALANCE REPORT
************************************************************************
FILE GLACT                                                             
 %GXQ0F085                                                             
*                                                                       
FILE GLSUM                                                             
DEFINE GL-PFFS-IND       1   1  A                                       
DEFINE GL-BUS-DATE       2  10  A                                       
DEFINE GL-TALLY         12  10  P  0                                   
DEFINE GL-TRD-CLM-REF   22  10  P  2                                   
DEFINE GL-MPASO-CLM-REF 32  10  P  2                                   
DEFINE GL-TOTAL-CLM-REF 42  10  P  2                                   
DEFINE GL-LPI-REF       52  10  P  2                                   
DEFINE GL-TOT-REF       62  10  P  2                                   
*                                                                       
FILE GLQTYIN                                                           
DEFINE GLQ-FILLER-1     1  10  A                                       
DEFINE GLQ-CLM-ISS-A   11  11  N  2
DEFINE GLQ-FILLER-2    22   2  A                                       
DEFINE GLQ-CLM-REV-V-A 24  11  N  2                                     
DEFINE GLQ-FILLER-3    35   2  A                                       
DEFINE GLQ-CLM-REV-S-A 37  11  N  2                                     
DEFINE GLQ-FILLER-4    48   2  A                                       
DEFINE GLQ-TOT-CLM-REF 50   8  N  2                                     
DEFINE GLQ-FILLER-5    58  22  A                                       
*                                                                       
FILE GLQTYOUT                                                           
DEFINE GLQ-OUT-FILLER-1     1  80  A                                   
*                                                                       
FILE OUTRPT1 PRINTER FB (81 0)                                         
FILE OUTRPT2 PRINTER FB (81 0)                                         
************************************************************************
**    WORKING STORAGE VARIABLES                                         
************************************************************************
WS-F085              W   160  A                                         
WS-F085-C-MM   WS-F085 +10 2  A                                         
WS-F085-C-DD   WS-F085 +12 2  A                                         
WS-F085-C-YY   WS-F085 +14 2  A                                         
                                                               
WS-B-DATE            W    10  A                                 
WS-B-MM   WS-B-DATE        2  A                                 
WS-B-S1   WS-B-DATE +02    1  A VALUE '/'                       
WS-B-DD   WS-B-DATE +03    2  A                                 
WS-B-S2   WS-B-DATE +05    1  A VALUE '/'                       
WS-B-CC   WS-B-DATE +06    2  A                                 
WS-B-YY   WS-B-DATE +08    2  A                                 
                                                               
WS-INPUT-DATA-E         W  1  A      VALUE 'N'.                 
WS-INPUT-DATA-L         W  1  A      VALUE 'N'.                 
WS-VALID-DATA           W  1  A      VALUE 'N'.                 
WS-INPUT-FIRST-LINE     W  1  A      VALUE 'Y'.                 
WS-INPUT-DATE           W  8  A                                 
WS-INPUT-MM            WS-INPUT-DATE       2  A                 
WS-INPUT-S1            WS-INPUT-DATE  +02  1  A VALUE '/'       
WS-INPUT-DD            WS-INPUT-DATE  +03  2  A                 
WS-INPUT-S2            WS-INPUT-DATE  +05  1  A VALUE '/'       
WS-INPUT-YY            WS-INPUT-DATE  +06  2  A                 
WS-PFFS-SW              W   1 A                                   
WS-PFFS-PRESENT-SW      S   1 A VALUE 'N'                         
WS-NON-PFFS-PRESENT-SW  S   1 A VALUE 'N'                         
WS-1ST-BEFORE-BREAK-SW  S   1 A VALUE 'Y'                         
                                                                 
DEFINE WS-NO-DATA-MSG   W  40 A HEADING(' ')                     
DEFINE WS-BUS-DATE      W  10 A      HEADING('BUSINESS' 'DATE    '
DEFINE WS-TRD-CLM-REF   W  4  P  2   +                           
          HEADING('TRADITIONAL' 'CLAIM REFUNDS')  +               
                                     MASK('--,--9.99')           
DEFINE WS-MPASO-CLM-REF W  4  P  2   +                           
          HEADING('MP/ASO' 'CLAIM REFUNDS')  +                   
                                     MASK('--,--9.99')           
DEFINE WS-TOTAL-CLM-REF W  4  P  2   +                           
          HEADING('TOTAL' 'CLAIM REFUNDS')  +                     
                                     MASK('--,--9.99')           
DEFINE WS-LPI-REF W  4  P  2   +                                 
          HEADING('LPI' 'REFUNDS')  +                             
                                     MASK('--,--9.99')           
DEFINE WS-TOT-REF W  4  P  2   +                                 
          HEADING('TOTAL' 'REFUNDS')  +                     
                                     MASK('--,--9.99')     
DEFINE WS2-TRD-CLM-REF   W  4  P  2   +                     
          HEADING('TRADITIONAL' 'CLAIM REFUNDS')  +         
                                     MASK('--,--9.99')     
DEFINE WS2-MPASO-CLM-REF W  4  P  2   +                     
          HEADING('MP/ASO' 'CLAIM REFUNDS')  +             
                                     MASK('--,--9.99')     
DEFINE WS2-TOTAL-CLM-REF W  4  P  2   +                     
          HEADING('TOTAL' 'CLAIM REFUNDS')  +               
                                     MASK('--,--9.99')     
DEFINE WS2-LPI-REF W  4  P  2   +                           
          HEADING('LPI' 'REFUNDS')  +                       
                                     MASK('--,--9.99')     
DEFINE WS2-TOT-REF W  4  P  2   +                           
          HEADING('TOTAL' 'REFUNDS')  +                     
                                     MASK('--,--9.99')     
                                                           
JOB INPUT GLACT FINISH THE-END                             
IF WS-INPUT-FIRST-LINE = 'Y'                               
       WS-F085     = F085-GL-ACTIVITY-RCD                 
       WS-INPUT-MM = WS-F085-C-MM                         
       WS-INPUT-DD = WS-F085-C-DD                         
       WS-INPUT-YY = WS-F085-C-YY                         
       WS-INPUT-FIRST-LINE = 'N'                           
ELSE                                                       
    IF F085-ACCOUNT-NUMBER EQ '2470534'                   
       WS-PFFS-SW = '2'                                   
       IF F085-TRANS-TYPE = '4'                           
           WS-PFFS-PRESENT-SW = 'Y'                       
       END-IF                                             
    ELSE                                                   
       WS-PFFS-SW = '1'                                   
    END-IF                                                 
                                                           
    WS-B-MM     = F085-CYCLE-MM                           
    WS-B-DD     = F085-CYCLE-DD                           
    WS-B-CC     = F085-CYCLE-CC                           
    WS-B-YY     = F085-CYCLE-YY                           
    WS-BUS-DATE = WS-B-DATE                               
   WS-TRD-CLM-REF   = 0                                               
   WS-MPASO-CLM-REF = 0                                               
   WS-TOTAL-CLM-REF = 0                                               
   WS-LPI-REF       = 0                                               
   WS-TOT-REF       = 0                                               
   WS-VALID-DATA  = 'N'                                               
   PERFORM CHECK-CONDITION                                             
   IF WS-VALID-DATA = 'Y'                                             
      IF  F085-TRANS-MIGRTN-CODE = 'M' OR F085-TRANS-MIGRTN-CODE = 'N'
          WS-INPUT-DATA-E = 'Y'                                       
          IF F085-ACCOUNT-NUMBER NE '2470534'                         
             WS-NON-PFFS-PRESENT-SW = 'Y'                             
          END-IF                                                       
          PRINT RPT1                                                   
      ELSE                                                             
         IF F085-TRANS-MIGRTN-CODE = 'E'                               
             WS-INPUT-DATA-L = 'Y'                                     
             PRINT RPT3                                               
         END-IF                                                       
     END-IF                                                           
   END-IF                                                           
END-IF.                                                             
                                                                     
   GOTO JOB                                                         
                                                                     
CHECK-CONDITION. PROC                                               
                                                                     
        IF F085-TRANS-TYPE = '4'                                     
           IF  F085-CLM-REASON-CODE NE 'IF'                         
               IF  F085-FUND-TYPE = '1'                             
                   WS-TRD-CLM-REF = F085-FIN-TRANS-AMT               
                   WS-TOTAL-CLM-REF = F085-FIN-TRANS-AMT             
                   WS-TOT-REF       = F085-FIN-TRANS-AMT             
                   WS-VALID-DATA   = 'Y'                             
               ELSE                                                 
                  IF  F085-FUND-TYPE = '0' '8' '2'                   
                      WS-MPASO-CLM-REF = F085-FIN-TRANS-AMT         
                      WS-TOTAL-CLM-REF = F085-FIN-TRANS-AMT         
                      WS-TOT-REF       = F085-FIN-TRANS-AMT         
                      WS-VALID-DATA    = 'Y'                         
                  END-IF                                     
               END-IF                                       
           ELSE                                             
              IF  F085-CLM-REASON-CODE EQ 'IF'               
                  IF  F085-FUND-TYPE = '1'                   
                      WS-LPI-REF  = F085-FIN-TRANS-AMT       
                      WS-TOT-REF  = F085-FIN-TRANS-AMT       
                      WS-VALID-DATA   = 'Y'                 
                  END-IF                                     
              END-IF                                         
           END-IF                                           
        END-IF                                               
                                                             
 END-PROC.                                                   
                                                             
 THE-END.  PROC                                             
  IF WS-INPUT-DATA-E = 'N'                                   
     WS-NO-DATA-MSG = ' ***  NO END STATE REFUND DATA  '     
     PRINT RPT2                                             
  END-IF                                                     
   IF WS-INPUT-DATA-L = 'N'                                   
      WS-NO-DATA-MSG = ' ***  NO LEGACY REFUND DATA     '     
      PRINT RPT4                                               
   END-IF                                                     
  END-PROC.                                                   
                                                               
  REPORT RPT1 SUMMARY SUMFILE GLSUM +                         
          NODATE LINESIZE 80 NOADJUST SPACE 1 NOSPREAD +       
          PRINTER OUTRPT1                                     
  SEQUENCE WS-PFFS-SW WS-BUS-DATE                             
  CONTROL FINAL NOPRINT WS-PFFS-SW NOPRINT WS-BUS-DATE         
  SUM WS-TRD-CLM-REF WS-MPASO-CLM-REF WS-TOTAL-CLM-REF +       
      WS-LPI-REF     WS-TOT-REF                               
  TITLE 01  COL 02 'REPORT #: GXQM86A '  COL 35 'DENTACOM'     
  TITLE 02  COL 02 'CYCLE DATE: ' COL 14 WS-INPUT-DATE +       
            COL 61  'RUN DATE: ' COL 72  SYSDATE               
  TITLE 03  COL 32 'MONTHLY REFUND'                           
  TITLE 04  COL 28 'CONTROL BALANCE REPORT'                   
  TITLE 05  COL 34 'END STATE'                                 
  TITLE 06  COL 02 'REPORTING MONTH : ' COL 20 WS-INPUT- TITLE 07 ' '                                                           
 LINE 1 WS-BUS-DATE +                                                   
        WS-TRD-CLM-REF WS-MPASO-CLM-REF WS-TOTAL-CLM-REF +             
        WS-LPI-REF     WS-TOT-REF                                       
 BEFORE-BREAK. PROC                                                     
    IF WS-1ST-BEFORE-BREAK-SW = 'Y'                                     
       DISPLAY '  NON-MEDICARE '                                       
                                                                       
       IF WS-NON-PFFS-PRESENT-SW = 'N'                                 
          WS2-TRD-CLM-REF = 0                                           
          WS2-MPASO-CLM-REF = 0                                         
          WS2-TOTAL-CLM-REF = 0                                         
          WS2-LPI-REF = 0                                               
          WS2-TOT-REF = 0                                               
          DISPLAY ' '                                                   
          DISPLAY 'TOTAL NONM ' +                                       
            ' ' WS2-TRD-CLM-REF ' ' WS2-MPASO-CLM-REF +                 
            ' ' WS2-TOTAL-CLM-REF ' ' WS2-LPI-REF +                     
            ' ' WS2-TOT-REF                                             
          DISPLAY ' '                                                   
          DISPLAY 'MEDICARE'                                           
          DISPLAY ' '                                                   
    END-IF                                                             
  END-IF                                                               
 END-PROC.                                                             
                                                                       
 AFTER-BREAK. PROC                                                     
 WS-1ST-BEFORE-BREAK-SW = 'N'                                           
                                                                       
 IF LEVEL EQ 2                                                         
    IF WS-PFFS-SW = '1'                                                 
        DISPLAY ' '                                                     
        DISPLAY 'TOTAL NONM' +                                         
         ' ' WS-TRD-CLM-REF ' '  WS-MPASO-CLM-REF ' ' WS-TOTAL-CLM-REF +
         ' ' WS-LPI-REF  ' '   WS-TOT-REF                               
        DISPLAY ' '                                                     
        DISPLAY 'MEDICARE'                                             
    ELSE                                                               
        DISPLAY ' '                                                     
        DISPLAY 'TOTAL MED ' +                                         
          ' ' WS-TRD-CLM-REF ' '  WS-MPASO-CLM-REF ' ' WS-TOTAL-CLM-REF +
          ' ' WS-LPI-REF  ' '   WS-TOT-REF                               
         DISPLAY ' '                                                     
         DISPLAY 'TOTAL'                                                 
         DISPLAY ' '                                                     
     END-IF                                                             
  END-IF                                                                 
  END-PROC.                                                             
                                                                         
  TERMINATION. PROC                                                     
  IF WS-PFFS-PRESENT-SW = 'N'                                           
      WS-TRD-CLM-REF = 0                                                 
      WS-MPASO-CLM-REF = 0                                               
      WS-TOTAL-CLM-REF = 0                                               
      WS-LPI-REF = 0                                                     
      WS-TOT-REF = 0                                                     
      DISPLAY ' '                                                       
      DISPLAY 'TOTAL MED ' +                                             
       ' ' WS-TRD-CLM-REF ' '  WS-MPASO-CLM-REF ' ' WS-TOTAL-CLM-REF +   
       ' ' WS-LPI-REF  ' '   WS-TOT-REF
     DISPLAY ' '                                                   
     DISPLAY 'TOTAL'                                               
     DISPLAY ' '                                                   
 END-IF                                                             
 END-PROC.                                                         
                                                                   
 REPORT RPT2 NODATE LINESIZE 80 NOADJUST +                         
        PRINTER OUTRPT1                                             
 TITLE 01  COL 02 'REPORT #: GXQM86A '  COL 35 'DENTACOM'           
 TITLE 02  COL 02 'CYCLE DATE: ' COL 14 WS-INPUT-DATE +             
           COL 61  'RUN DATE: ' COL 72  SYSDATE                     
 TITLE 03  COL 32 'MONTHLY REFUND'                                 
 TITLE 04  COL 28 'CONTROL BALANCE REPORT'                         
 TITLE 05  COL 34 'END STATE'                                       
 TITLE 06  COL 02 'REPORTING MONTH : ' COL 20 WS-INPUT-MM           
 TITLE 07 ' '                                                       
 LINE 1 WS-NO-DATA-MSG                                             
                                                                   
 REPORT RPT3 SUMMARY NODATE LINESIZE 80 NOADJUST SPACE 1 NOSPREAD +
         PRINTER OUTRPT2                                           
 SEQUENCE WS-BUS-DATE                                               
 CONTROL FINAL NOPRINT WS-BUS-DATE                                   
 SUM WS-TRD-CLM-REF WS-MPASO-CLM-REF WS-TOTAL-CLM-REF +             
     WS-LPI-REF     WS-TOT-REF                                       
 TITLE 01  COL 02 'REPORT #: GXQM86B '  COL 35 'DENTACOM'           
 TITLE 02  COL 02 'CYCLE DATE: ' COL 14 WS-INPUT-DATE +             
           COL 61  'RUN DATE: ' COL 72  SYSDATE                     
 TITLE 03  COL 32 'MONTHLY REFUND'                                   
 TITLE 04  COL 28 'CONTROL BALANCE REPORT'                           
 TITLE 05  COL 36 'LEGACY'                                           
 TITLE 06  COL 02 'REPORTING MONTH : ' COL 20 WS-INPUT-MM           
 TITLE 07 ' '                                                       
 LINE 1 WS-BUS-DATE +                                               
        WS-TRD-CLM-REF WS-MPASO-CLM-REF WS-TOTAL-CLM-REF +           
        WS-LPI-REF     WS-TOT-REF                                   
 AFTER-BREAK. PROC                                                   
 IF LEVEL EQ 2                                                       
    DISPLAY ' '                                                     
    DISPLAY 'TOTALS    '  +                                         
    ' ' WS-TRD-CLM-REF ' '  WS-MPASO-CLM-REF ' ' WS-TOTAL-CLM-REF + 
    ' ' WS-LPI-REF     ' ' WS-TOT-REF                             
 END-IF                                                           
 END-PROC.                                                         
                                                                   
 REPORT RPT4 NODATE LINESIZE 80 NOADJUST +                         
        PRINTER OUTRPT2                                           
 TITLE 01  COL 02 'REPORT #: GXQM86B '  COL 35 'DENTACOM'         
 TITLE 02  COL 02 'CYCLE DATE: ' COL 14 WS-INPUT-DATE +           
           COL 61  'RUN DATE: ' COL 72  SYSDATE                   
 TITLE 03  COL 32 'MONTHLY REFUND'                                 
 TITLE 04  COL 28 'CONTROL BALANCE REPORT'                         
 TITLE 05  COL 36 'LEGACY'                                         
 TITLE 06  COL 02 'REPORTING MONTH : ' COL 20 WS-INPUT-MM         
 TITLE 07 ' '                                                     
 LINE 1 WS-NO-DATA-MSG                                             
                                                                   
JOB INPUT GLSUM START BEGIN FINISH THE-END2                       
                                                                   
DEFINE GLT-TRD-CLM-REF    W                   8  N  2 +           
                          MASK('---,--9.99')                       
DEFINE GLT-MPASO-CLM-REF  W                   8  N  2 +         
                          MASK('---,--9.99')                     
DEFINE GLT-TOTAL-CLM-REF  W                   8  N  2 +         
                          MASK('---,--9.99')                     
DEFINE GLT-LPI-REF        W                   8  N  2 +         
                          MASK('---,--9.99')                     
DEFINE GLT-TOT-REF        W                   8  N  2 +         
                          MASK('---,--9.99')                     
                                                                 
GLT-TRD-CLM-REF            = GL-TRD-CLM-REF                     
GLT-MPASO-CLM-REF          = GL-MPASO-CLM-REF                   
GLT-TOTAL-CLM-REF          = GL-TOTAL-CLM-REF                   
GLT-LPI-REF                = GL-LPI-REF                         
GLT-TOT-REF                = GL-TOT-REF                         
                                                                 
IF GL-PFFS-IND = '2'                                             
 GLQ-TOT-CLM-REF = GLQ-TOT-CLM-REF + GL-TOTAL-CLM-REF           
END-IF                                                           
                                                                 
PRINT RPT5                                                       
                                                                       
 GOTO JOB                                                               
                                                                       
 BEGIN. PROC                                                           
  GET GLQTYIN                                                           
 END-PROC.                                                             
                                                                       
 THE-END2. PROC                                                         
  PUT GLQTYOUT FROM GLQTYIN                                             
 END-PROC.                                                             
                                                                       
 REPORT RPT5 SUMMARY NODATE LINESIZE 80 NOADJUST SPACE 0 NOSPREAD +     
         NOHEADING PRINTER OUTRPT1                                     
 SEQUENCE GL-BUS-DATE                                                   
 CONTROL FINAL NOPRINT GL-BUS-DATE                                     
 SUM    GLT-TRD-CLM-REF GLT-MPASO-CLM-REF GLT-TOTAL-CLM-REF +           
        GLT-LPI-REF GLT-TOT-REF                                         
 LINE 1 GL-BUS-DATE GLT-TRD-CLM-REF GLT-MPASO-CLM-REF +                 
        GLT-TOTAL-CLM-REF GLT-LPI-REF GLT-TOT-REF                       
                                                                       
 AFTER-BREAK. PROC                                           
  IF LEVEL EQ 2                                               
     DISPLAY ' '                                             
     DISPLAY 'TOTALS    ' +                                   
     GLT-TRD-CLM-REF GLT-MPASO-CLM-REF GLT-TOTAL-CLM-REF +   
     GLT-LPI-REF GLT-TOT-REF                                 
  END-IF                                                     
 END-PROC.     



We have tried to add logic to make this break by entity and put out the contents of report 5 after each entity break and no longer put out report 5 at the end of the job but no matter what we try it doesn't work

Any ideas would be apprecitated
jazzb1
 
Posts: 2
Joined: Fri Sep 10, 2010 4:53 am
Has thanked: 0 time
Been thanked: 0 time

Re: Need my report to break by entity and sum detail lines

Postby dick scherrer » Fri Sep 10, 2010 5:41 am

Hello and welcome to the forum,

Suggest you practice with the "Code" tag which will preserve alignment and greatly improve readability. When posting jcl, code, data, info from a mainframe terminal, use copy/paste (rather than keying) and the "Code" tag. Your original post has been "Code'd".

but no matter what we try it doesn't work
Posting "it didn't work" is possibly the biggest waste of time we see on the forum - we guessed something didn't work :) But, as you are the only one who knows just what did not work, you need to provide sufficient info for someone to help.

What does "didn't work" mean here? An abend, incorrect output, no output, something else. . .?

For testing suggest you clone this code into a small bit of code that will only create report 5. Once you get this working as needed, put the changes needed into the original code.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: Need my report to break by entity and sum detail lines

Postby Zio69 » Tue Feb 22, 2011 7:49 pm

I'm afraid I cannot be more precise, but .... if you still need this activity:

1st) add "entity" to RPT1

  REPORT RPT1 SUMMARY SUMFILE GLSUM +                         
          NODATE LINESIZE 80 NOADJUST SPACE 1 NOSPREAD +       
          PRINTER OUTRPT1                                     
  SEQUENCE    ENTITY     WS-PFFS-SW WS-BUS-DATE                             
  CONTROL FINAL NOPRINT    ENTITY NOPRINT     WS-PFFS-SW NOPRINT WS-BUS-DATE     


If you need to differentiate entitities in this report, you may add the field to the print LINE (but since you're already space constrainted that may be not the case) or show it somewhere in the titles; in the latter case you should code ENTITY NEWPAGE NOPRINT in the CONTROL statement and (for example) code
TITLE 06  COL 02 'REPORTING MONTH : ' COL 20 WS-INPUT COL 40 ENTITY
in titles.

2nd) you have got to add ENTITY to the SUMFILE; since it's the first control fields, it's gotta be the first field in the definition:

FILE GLSUM                                                             
DEFINE GL-ENTITY        1  ??  A
DEFINE GL-PFFS-IND      *   1  A                                       
DEFINE GL-BUS-DATE      *  10  A                                       
DEFINE GL-TALLY         *  10  P  0                                   
DEFINE GL-TRD-CLM-REF   *  10  P  2                                   
DEFINE GL-MPASO-CLM-REF *  10  P  2                                   
DEFINE GL-TOTAL-CLM-REF *  10  P  2                                   
DEFINE GL-LPI-REF       *  10  P  2                                   
DEFINE GL-TOT-REF       *  10  P  2                                   

(the * means: field starts the next position after the end of the previous field - quite handy)
Since this is NOT a virtual file, you may have to reflect the change in record size in the JCL (add the size of "entity" to LRECL)

3rd) you can move on to RPT5.

REPORT RPT5 SUMMARY NODATE LINESIZE 80 NOADJUST SPACE 0 NOSPREAD +     
         NOHEADING PRINTER OUTRPT1                                     
SEQUENCE GL-ENTITY          GL-BUS-DATE                                                   
CONTROL FINAL NOPRINT   GL-ENTITY    GL-BUS-DATE                                     
SUM    GLT-TRD-CLM-REF GLT-MPASO-CLM-REF GLT-TOTAL-CLM-REF +           
        GLT-LPI-REF GLT-TOT-REF                                         
TITLE "REPORT FOR " GL-ENTITY
LINE 1 GL-BUS-DATE GLT-TRD-CLM-REF GLT-MPASO-CLM-REF +                 
        GLT-TOTAL-CLM-REF GLT-LPI-REF GLT-TOT-REF     


Entity in TITLE is just a possibility.... you can move that to LINE 1 if there's enough space.

Lastly, you have got to adjust the after-break procedure. If you're using EZT 6.1 (6.2???? don't remember for sure) or above, you can code
IF TOTAL BREAK
otherwise, just code
IF LEVEL EQ 3
(because we added a break level to the report)

If you managed to add ENTITY to the print LINE, you've gotta adjust the display in the AFTER-BREAK because of the new column; so you may want to consider adding POS 3 or a ' ' before GLT-TRD-CLM-REF

Let me know if you need further assistance on this....
Zio69
 
Posts: 31
Joined: Wed Feb 16, 2011 7:08 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Need my report to break by entity and sum detail lines

Postby BillyBoyo » Wed Feb 23, 2011 6:28 am

Hey, Zio69, tempting, I know (dunnit meself), but "let sleeping dogs lie" is the advice on old postings.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: Need my report to break by entity and sum detail lines

Postby Zio69 » Wed Feb 23, 2011 1:00 pm

Oh well... I thrive for some REAL action with EZT :-)
Zio69
 
Posts: 31
Joined: Wed Feb 16, 2011 7:08 pm
Has thanked: 0 time
Been thanked: 0 time


Return to CA-Easytrieve

 


  • Related topics
    Replies
    Views
    Last post