Report

Unicenter CA-Easytrieve Plus Report Generator: CA's information retrieval and data management tool
Alison Oliveira
Posts: 37
Joined: Fri Jan 20, 2012 9:08 pm
Skillset: TSO, ROSCOE, easytrieve, PL/I
Referer: searching in the internet

Report

Postby Alison Oliveira » Mon Mar 26, 2012 6:36 pm

hi all,

i want to print a sentence in the same total line, but if i use report procedures like:
After-break or before-break, the sentence is printed after the total line and before total line...

How i print this sentence in the same line of total line??
the code:

Code: Select all

REPORT   RELAT1 LINESIZE 132 PRINTER RELAT DTLCTL EVERY SPACE 1 +
                                           SUMCTL HIAR           
SEQUENCE F53SEPLT F53SEREG                                       
CONTROL F53SEPLT                                                 
TITLE 1 +                                                       
 ' example test.'   
TITLE 2 +                                                       
 ' INformation'   
HEADING F01FCDIV ('DIV')                                     
HEADING F53SEPLT ('PLT')                                     
HEADING F53SEREG ('REG')                                   
HEADING F01FCSEC ('SECT')                                       
HEADING F53SENOM ('NAME')                                       
HEADING DATAOP   ('OPCAO')                                     
HEADING F53SEOP1 ('MOD. 1')                                 
HEADING PREMIO   ('AWARD')                                 
HEADING DATANASC ('NASCTO')                                 
HEADING F53SECPF ('CPF')                                     
HEADING F01FCCAF ('COD.AFAST')                               
HEADING DATA-AFAST ('DTA.AFAST')                             
LINE 1 F01FCDIV F53SEPLT F53SEREG F01FCSEC F53SENOM DATAOP +
       F53SEOP1 PREMIO  DATANASC F53SECPF F01FCCAF DATA-AFAST
AFTER-BREAK. PROC                                           
 IF LEVEL EQ 1                                               
         DISPLAY ' TOTAL AWARDS OF PLANT  ' F53SEPLT ':'
 END-IF                                                     
 IF LEVEL EQ 2                                               
         DISPLAY 'TOTAL AWARDS: '                 
 END-IF                                                     
END-PROC


The result:

Code: Select all

            21                                             2615,98                   
   TOTAL AWARDS OF PLANT  21:                                       
 0                                                               269567,90
  TOTAL AWARDS :                                       


but i want:
TOTAL AWARDS OF PLANT 21: 2615,98
TOTAL AWARDS : 269567,90


thanks all help!

BillyBoyo
Global moderator
Posts: 3805
Joined: Tue Jan 25, 2011 12:02 am
Skillset: Easytrieve Plus, Cobol, Utilities, that sort of stuff
Referer: Google

Re: Report

Postby BillyBoyo » Mon Mar 26, 2012 6:59 pm

Then turn off Easytrieve's automatic printing for that LEVEL, and do the whole total line yourself.

Alison Oliveira
Posts: 37
Joined: Fri Jan 20, 2012 9:08 pm
Skillset: TSO, ROSCOE, easytrieve, PL/I
Referer: searching in the internet

Re: Report

Postby Alison Oliveira » Mon Mar 26, 2012 9:53 pm

How can i do that??... with the statement "NOPRINT" only totals of page is omitted... and how can i do to dont print the value in TOTAL AWARDS???

BillyBoyo
Global moderator
Posts: 3805
Joined: Tue Jan 25, 2011 12:02 am
Skillset: Easytrieve Plus, Cobol, Utilities, that sort of stuff
Referer: Google

Re: Report

Postby BillyBoyo » Mon Mar 26, 2012 10:21 pm

If you do CONTROL F53SEPLT NOPRINT, Easytrieve will do everything it normal does for control-break processing, but will no print the total line. You then, in either a BEFORE-BREAK or AFTER-BREAK procedure, do all the DISPLAY that you want. If you mention file fields in the DISPLAY, the value used will be the total for that field at that level of break,

It also looks like you want "total totals".

CONTROL F53SEPLT NOPRINT FINAL

That will get Easytrieve printing the FINAL totals

CONTROL F53SEPLT NOPRINT NOPRINT

That will get Easytrieve processing FINAL totals, allowing you to deal with them in the report procedure with the LEVEL test that you have.

Alison Oliveira
Posts: 37
Joined: Fri Jan 20, 2012 9:08 pm
Skillset: TSO, ROSCOE, easytrieve, PL/I
Referer: searching in the internet

Re: Report

Postby Alison Oliveira » Mon Mar 26, 2012 10:28 pm

before you answer i get it!!!
CONTROL FINAL NOPRINT F53SEPLT NOPRINT

this is the correct statement!!!
this works

Alison Oliveira
Posts: 37
Joined: Fri Jan 20, 2012 9:08 pm
Skillset: TSO, ROSCOE, easytrieve, PL/I
Referer: searching in the internet

Re: Report

Postby Alison Oliveira » Mon Mar 26, 2012 10:28 pm

Thanks for help!!

BillyBoyo
Global moderator
Posts: 3805
Joined: Tue Jan 25, 2011 12:02 am
Skillset: Easytrieve Plus, Cobol, Utilities, that sort of stuff
Referer: Google

Re: Report

Postby BillyBoyo » Mon Mar 26, 2012 10:43 pm

Well done. Thanks for letting us know.


  • Similar Topics
    Replies
    Views
    Last post