ACCUM/PAGING overflow is not being set to TRUE 
Author Message
 ACCUM/PAGING overflow is not being set to TRUE

I am using the ACCUM/PAGING options in CICS to build my pages with the
SEND MAP command.  Below is a portion of my code.  The RESPONSE-CODE in
paragraph 2230-SEND-DETAIL-MAP is not being set to overflow when it
should.  I have used the ACCUM/PAGING options before with the SEND TEXT
command with no problems.

What's wrong and how can I fix it?

 003800  1000-DISPLAY-SELECTED-LEA.
 003810 *
 003820      MOVE '1000' TO ERR-PARA.
 003830      PERFORM 1100-START-JHACSRPD-BROWSE THRU 1100-EXIT
 003840      PERFORM 2260-SEND-HEADER-MAP       THRU 2260-EXIT
 003850      PERFORM 2000-PRODUCE-PRC-LINE      THRU 2000-EXIT
 003860          UNTIL END-OF-BROWSE.
 003870      PERFORM 3000-SEND-TOTAL-MAP        THRU 3000-EXIT
 003880      IF SCS-PAGEO > 1
 003890          PERFORM 2240-SEND-TRAILER-MAP1 THRU 2250-EXIT
 003900      ELSE
 003910          PERFORM 2250-SEND-TRAILER-MAP2 THRU 2250-EXIT
 003920      END-IF.
 003930      EXEC CICS
 003940          SEND PAGE
 003950               RELEASE TRANSID('DEUN')
 003960      END-EXEC.
 003970 *
 003980  1000-EXIT.
 003990 *
 004000      EXIT.
             .
             .
             .
 004710  2200-SEND-PRC-LINE.
 004720 *
 004730      MOVE '2200' TO ERR-PARA.
 004740      MOVE JHA-PRC TO SCS-PRC-CODEO
 004750      MOVE JHA-PRC(2:2) TO WS-TM700-PRC
 004760      PERFORM 2210-READ-TM700 THRU 2210-EXIT.
 004770      IF PRC-FOUND
 004780          IF STATE-PRC
 004790              MOVE WS-TM700-PRC-DESC(1:30) TO SCS-PRC-DESCO
 004800          ELSE
 004810              MOVE ATTR-PROT-BRT TO SCS-PRC-DESCA SCS-PRC-CODEA
 004820              MOVE 'INVALID CHARTER SCH PRC CODE' TO
SCS-PRC-DESCO
 004830          END-IF
 004840      ELSE
 004850          MOVE ATTR-PROT-BRT TO SCS-PRC-DESCA SCS-PRC-CODEA
 004860          MOVE 'PRC CODE NOT FOUND IN TM700' TO SCS-PRC-DESCO
 004870      END-IF.
 004880 *
 004890      PERFORM 2220-DISPLAY-APPROVED-AMOUNTS
 004900          THRU 2220-EXIT
 004910 *
 004920      PERFORM 2230-SEND-DETAIL-MAP THRU 2230-EXIT
 004930      IF PAGE-OVERFLOW
 004940          PERFORM 2240-SEND-TRAILER-MAP1 THRU 2240-EXIT
 004950          PERFORM 2260-SEND-HEADER-MAP   THRU 2260-EXIT
 004960          PERFORM 2230-SEND-DETAIL-MAP   THRU 2230-EXIT
 004970          MOVE 'N' TO PAGE-OVERFLOW-SW
 004980      END-IF.
 004990 *
 005000  2200-EXIT.
 005010 *
 005020      EXIT.
             .
             .
             .
 005690  2230-SEND-DETAIL-MAP.
 005700 *
 005710      MOVE '2230' TO ERR-PARA.
 005720      EXEC CICS
 005730          SEND MAP('JHA189B')
 005740               MAPSET('JHA189T')
 005750               FROM(JHA189BO)
 005760               ACCUM
 005770               PAGING
 005780               ERASE
 005790               RESP(RESPONSE-CODE)
 005800      END-EXEC.
 005810      EVALUATE TRUE
 005820          WHEN RESPONSE-CODE = DFHRESP(OVERFLOW)
 005830              MOVE 'Y' TO PAGE-OVERFLOW-SW
 005840          WHEN RESPONSE-CODE NOT = DFHRESP(NORMAL)
 005850              GO TO 9999-TERMINATE-PROGRAM
 005860      END-EVALUATE.
 005870 *
 005880  2230-EXIT.
 005890 *

--== Sent via Deja.com http://www.*-*-*.com/
---Share what you know. Learn what you don't.---



Sat, 10 Nov 2001 03:00:00 GMT  
 ACCUM/PAGING overflow is not being set to TRUE

Quote:

>I am using the ACCUM/PAGING options in CICS to build my pages with the
>SEND MAP command.  Below is a portion of my code.  The RESPONSE-CODE in
>paragraph 2230-SEND-DETAIL-MAP is not being set to overflow when it
>should.  I have used the ACCUM/PAGING options before with the SEND TEXT
>command with no problems.

>What's wrong and how can I fix it?

[...]
> 003880      IF SCS-PAGEO > 1
> 003890          PERFORM 2240-SEND-TRAILER-MAP1 THRU 2250-EXIT

I would assume this should be THRU 2240-EXIT.
------------------
Rick Smith


Sat, 10 Nov 2001 03:00:00 GMT  
 ACCUM/PAGING overflow is not being set to TRUE

Quote:
> [...]
> > 003880      IF SCS-PAGEO > 1
> > 003890          PERFORM 2240-SEND-TRAILER-MAP1 THRU 2250-EXIT

> I would assume this should be THRU 2240-EXIT.
> ------------------
> Rick Smith

That's why I hate sections and PERFORM THRUs.


Sat, 10 Nov 2001 03:00:00 GMT  
 ACCUM/PAGING overflow is not being set to TRUE


Quote:
> > [...]
> > > 003880      IF SCS-PAGEO > 1
> > > 003890          PERFORM 2240-SEND-TRAILER-MAP1 THRU 2250-EXIT

> > I would assume this should be THRU 2240-EXIT.
> > ------------------
> > Rick Smith

> That's why I hate sections and PERFORM THRUs.

You guys are missing the forest for the trees, BUT thanks for catching
the typo.  The winner is...



Subject: Re: ACCUM/PAGING overflow is not being set to TRUE
Date:    Tue, 25 May 1999 20:22:22 GMT
Organisation: BSP Beratung, Schulung, Projekte GmbH

Quote:

>I am using the ACCUM/PAGING options in CICS to build my pages with the
>SEND MAP command.  Below is a portion of my code.  The RESPONSE-CODE
in
>paragraph

<<snipped>>             .
Quote:
>             .
>             .
> 005690  2230-SEND-DETAIL-MAP.
> 005700 *
> 005710      MOVE '2230' TO ERR-PARA.
> 005720      EXEC CICS
> 005730          SEND MAP('JHA189B')
> 005740               MAPSET('JHA189T')
> 005750               FROM(JHA189BO)
> 005760               ACCUM
> 005770               PAGING
> 005780               ERASE
> 005790               RESP(RESPONSE-CODE)
> 005800      END-EXEC.

<<more snipped>>
You forgot to code the NOFLUSH option on the SEND MAP command

with kind regards

Volker Bandke
(BSP GmbH)

THANKS A HEAP, Volker.

--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---



Sat, 10 Nov 2001 03:00:00 GMT  
 ACCUM/PAGING overflow is not being set to TRUE

Quote:

>I am using the ACCUM/PAGING options in CICS to build my pages with the
>SEND MAP command.  Below is a portion of my code.  The RESPONSE-CODE in
>paragraph

<<snipped>>             .
Quote:
>             .
>             .
> 005690  2230-SEND-DETAIL-MAP.
> 005700 *
> 005710      MOVE '2230' TO ERR-PARA.
> 005720      EXEC CICS
> 005730          SEND MAP('JHA189B')
> 005740               MAPSET('JHA189T')
> 005750               FROM(JHA189BO)
> 005760               ACCUM
> 005770               PAGING
> 005780               ERASE
> 005790               RESP(RESPONSE-CODE)
> 005800      END-EXEC.

<<more snipped>>
You forgot to code the NOFLUSH option on the SEND MAP command

with kind regards

Volker Bandke
(BSP GmbH)



Sat, 10 Nov 2001 03:00:00 GMT  
 
 [ 5 post ] 

 Relevant Pages 

1. I am not deaf, but am I mute?

2. I am having problems setting the page break through Active X

3. What Problems Am I Setting Myself Up For???

4. how to compile and a set of .prg file I am getting this warning

5. I am not visible!!!!!

6. IDX not CDX - What am I missing

7. I am not able to read a barcode from a image

8. I am not able to execute new.ccf in coboldpc when I call coboldpc through labview

9. I am looking for drivers of Tektronix TDS694C, which are not available on website

10. Why I am not enthusiatic about OO COBOL

11. I am NOT a lawyer, ...

12. I am not a liar

 

 
Powered by phpBB® Forum Software