Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

EXEC CICS Support Needed #70

Open
ravijp opened this issue Nov 27, 2024 · 1 comment
Open

EXEC CICS Support Needed #70

ravijp opened this issue Nov 27, 2024 · 1 comment

Comments

@ravijp
Copy link

ravijp commented Nov 27, 2024

          > One more thing I noticed in FlowChart, if a Program has multiple EXEC CICS ...END-EXEC. Then in flow chart we get first EXEC CICS code chunk as part of all the EXEC CICS. Showing one example of what I am talking about - > it is the purple box which gets duplicated across all EXEC CICS. <img alt="image" width="688" src="https://private-user-images.githubusercontent.com/16938793/390359886-f45a8df0-0543-4d6c-a196-32b1c1519926.png?jwt=eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJnaXRodWIuY29tIiwiYXVkIjoicmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbSIsImtleSI6ImtleTUiLCJleHAiOjE3MzI3MDI1NDcsIm5iZiI6MTczMjcwMjI0NywicGF0aCI6Ii8xNjkzODc5My8zOTAzNTk4ODYtZjQ1YThkZjAtMDU0My00ZDZjLWExOTYtMzJiMWMxNTE5OTI2LnBuZz9YLUFtei1BbGdvcml0aG09QVdTNC1ITUFDLVNIQTI1NiZYLUFtei1DcmVkZW50aWFsPUFLSUFWQ09EWUxTQTUzUFFLNFpBJTJGMjAyNDExMjclMkZ1cy1lYXN0LTElMkZzMyUyRmF3czRfcmVxdWVzdCZYLUFtei1EYXRlPTIwMjQxMTI3VDEwMTA0N1omWC1BbXotRXhwaXJlcz0zMDAmWC1BbXotU2lnbmF0dXJlPTk0MmFhMWFhZTIxZjk4YTEzNzBjN2RmYTUyM2JlZmIxMzhkNjkwMzJjNjRjZDBjMTkwMmE4NWFmN2FhNWI3NzImWC1BbXotU2lnbmVkSGVhZGVycz1ob3N0In0.f6GxeWPLcJo6oUUKg5bewL9vvmzl2pYHRr6mSnBxVoM">

CICS support has not been explicitly added since I haven't had any use cases. If you want to get this fixed, you can open another issue and we can go from there.

Originally posted by @avishek-sen-gupta in #69 (comment)

@ravijp
Copy link
Author

ravijp commented Nov 30, 2024

Code to replicate the issue in flowchat -

       PROGRAM-ID. MY-PROGRAM.
  
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 CONSOLEMSG PIC X(62).
       01 CMRCRD PIC X.
  
       LINKAGE SECTION.
       01 ERROR-MSG PIC X(100).
  
       PROCEDURE DIVISION.
  
      *****************************************************************
           AINITIALIZE.
      ****************************************************************
           WRITE ERROR-MSG FROM 'INITIALIZATION STARTED'
  
           EXEC CICS
               WRITEQ TD
               QUEUE   ('TERR')
               FROM    (CMRCRD)
               LENGTH  (LENGTH OF CMRCRD)
               NOHANDLE
           END-EXEC.
  
           GOBACK.
  
           A-EXIT.
  
      ****************************************************************
           WRITETDQ.
      ****************************************************************
           WRITE ERROR-MSG FROM 'WRITING TO TDQ'
  
           EXEC CICS
                WRITE OPERATOR
                TEXT  (CONSOLEMSG)
                TEXTLENGTH (62)
                EVENTUAL
           END-EXEC.
  
           GOBACK.
  
           WRITETDQ-EXIT.
  
      ****************************************************************
           A-TERMINATE.
      ****************************************************************
           MOVE 'PROGRAM ENDED' TO WS-CONSOLE-MSG
  
           EXEC CICS
                RETURN
           END-EXEC.
  
           GOBACK.
  
           AT-EXIT.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant