MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Who Do You Call?

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Mainframe Challenge
View previous topic :: View next topic  
Author Message
samlwho
Beginner


Joined: 08 Feb 2007
Posts: 21
Topics: 2

PostPosted: Thu Apr 12, 2007 3:00 pm    Post subject: Who Do You Call? Reply with quote

In HOGAN COBOL who do you call to do the following:

1). Read a file?

2). Write a file?

3). Issue a condition code?
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Thu Apr 12, 2007 3:10 pm    Post subject: Reply with quote

samlwho,

The 'Mainframe challenge' forum is, for setting problems you already know the answer to and seeing how well others answer it. Please post all your help related questions in the right forum

Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
samlwho
Beginner


Joined: 08 Feb 2007
Posts: 21
Topics: 2

PostPosted: Thu Apr 12, 2007 3:14 pm    Post subject: Reply with quote

Kolusu

Yes, I understand that and I know the answer to the question I just want to see if anyone else knows the answer.

I will post it tommorow.

Thanks,
Samlwho
Back to top
View user's profile Send private message
samlwho
Beginner


Joined: 08 Feb 2007
Posts: 21
Topics: 2

PostPosted: Fri Apr 13, 2007 12:24 pm    Post subject: Reply with quote

In HOGAN COBOL who do you call to do the following:

1). Read a file?
---->The answer is PEM or the Processing Environment Manager.

2). Write a file?
---->The answer is PEM or the Processing Environment Manager.


3). Issue a condition code?
---->The answer is no one, when a condtion code is issued the program abends listing the predefined condtion for the cause of the abend.


In HOGAN COBOL instead of defining input and output files in the program, they are defined in the CICS region as Read and/or Write activities under the HOGAN Umbrella. Therefore, when you want to read and/or write simply call PEM and he will handle the rest.

Below is a HOGAN COBOL program that has READ, WRITE & CONDITION CODES.

Note the condition codes are only issued when PEM does not return with a good result after performing the desired action otherwise processing continues and the program ends normally.


Code:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. X99999.
       AUTHOR.                                                           
       DATE-COMPILED.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.    IBM-370.
       OBJECT-COMPUTER.    IBM-370.
       DATA DIVISION.

       WORKING-STORAGE SECTION.
       01  CONSTANTS.                                                         
           05 CN-1                    PIC 9(01)        VALUE   1.       
           05 CC-N                    PIC X(01)        VALUE  'N'.     
           05 CC-Y                    PIC X(01)        VALUE  'Y'.     

      ******************************************************************
      *THESE ACTIVITIES ARE DEFINED IN THE CICS ONLINE REGIONS.         
      *BOTH OF THESE ACTIVITIES WILL MANIPULATE HIERARCHICAL DATABASES.
      ******************************************************************

       01  PEM-ACTIVITIES.                                             
           05  ACTY-11111-DUMMY.                                       
               10  FILLER              PIC S9(8) COMP  VALUE +11111.   
           05  ACTY-22222-DUMMY.                                       
               10  FILLER              PIC S9(8) COMP  VALUE +22222.   

      ******************************************************************
      *THESE CONDITION CODES ARE ALSO DEFINED IN THE CICS REGIONS.     
      *11111 ='S ACTION SUCCESSFUL                                     
      *22222 ='S ACTION NOT SUCCESSFUL                                 
      ******************************************************************

       01  CONDITION-CODES.
           05  FILLER                  PIC S9(8) COMP  VALUE +11111.
           05  FILLER                  PIC S9(8) COMP  VALUE +22222.
       01  FILLER  REDEFINES           CONDITION-CODES.
           05  FILLER                  PIC X(2).
           05  COND-CODE-11111         PIC X(2).
           05  FILLER                  PIC X(2).
           05  COND-CODE-22222         PIC X(2).

      ******************************************************************
      *ALL INCLUDES (-INC) PRIOR TO THE LINKAGE SECTION ARE HOGAN DEFINED     
      *COPYBOOKS THOSE AFTER THE LINKAGE SECTION ARE USER DEFINED.     
      ******************************************************************

-INC             XXXXXXX                                                       %
-INC             XXXXXXX                                                       %
-INC             XXXXXXX                                                       %
-INC             XXXXXXX                                                       %
-INC             XXXXXXX                                                       %
-INC             XXXXXXX                                                       %
-INC             XXXXXXX                                                       %
-INC             XXXXXXX                                                       %
-INC             XXXXXXX                                                       %
-INC             XXXXXXX                                                       %
       LINKAGE SECTION.
-INC             XXXXXX1                                                       %
-INC             XXXXXX2                                                       %

      ******************************************************************
      *ALL OF 01 LEVELS OF THE COPYBOOKS AFTER THE LINKAGE SECTION ARE 
      *DEFINED BELOW.                                                   
      ******************************************************************

       PROCEDURE DIVISION
           USING
               XXXXXX1
               XXXXXX2.
             

       AA000-HOUSEKEEPING  SECTION.
           MOVE LOW-VALUES TO TCB-USER-CC
                              TCB-RESULT
                              CDMF-RESULT.
       AA000-EXIT.
           EXIT.

       AB000-MAINLINE SECTION.

           PERFORM AC000-INQ-ON-DB.

       AB000-EXIT.
           EXIT.

       AC000-INQ-ON-DB                 SECTION.

           MOVE 123456                 TO XXXXXX1-CUST-NO
           MOVE DGA-READ               TO XXXXXX1-ACTION               
           MOVE LOW-VALUES             TO XXXXXX1-RESULT
           MOVE ACTY-22222-DUMMY       TO TCB-LONG-ACTIVITY             
           PERFORM CA000-CALL-PEM

           IF  XXXXX1-RESULT        = DGR-OK
               PERFORM AD000-SET-REPRINT-FLAG
           ELSE
               MOVE COND-CODE-22222    TO TCB-USER-CC
               GO TO ZZ000-END-OF-PROCESSING
           END-IF.

       AC000-EXIT.
           EXIT.

       AD000-SET-REPRINT-FLAG          SECTION.

           MOVE CC-Y                   TO XXXXXX2-ON-FLAG               
           MOVE DGA-WRITE              TO XXXXXX2-ACTION               
           MOVE LOW-VALUES             TO XXXXXX2-RESULT
           MOVE ACTY-22222-DUMMY       TO TCB-LONG-ACTIVITY
           PERFORM CA000-CALL-PEM

           IF  XXXXXX2-RESULT       = DGR-OK
               MOVE COND-CODE-11111    TO TCB-USER-CC
               GO TO ZZ000-END-OF-PROCESSING
           END-IF.

       AD000-EXIT.
           EXIT.

       CA000-CALL-PEM  SECTION.
           CALL 'PEM' USING TRANSACTION-CONTROL-BLOCK.
       CA000-EXIT.
           EXIT.

       ZZ000-END-OF-PROCESSING SECTION.
      *****************************************************************
      *                                                               *
      *          THIS SECTION ENDS PROCESSING FOR THIS PROGRAM.       *
      *                                                               *
      *****************************************************************
           GOBACK.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Fri Apr 13, 2007 12:36 pm    Post subject: Reply with quote

Samlwho,

Quick question. Who is the author of this hogan cobol? Any documentation or info regarding will be helpful.

Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
samlwho
Beginner


Joined: 08 Feb 2007
Posts: 21
Topics: 2

PostPosted: Fri Apr 13, 2007 3:02 pm    Post subject: Reply with quote

Kolusu,

I think the author is Bernie Hogan, from my understanding the UMBRELLA system was developed in 1978 and is primarily used in the banking industry.

I do not have a way of providing any documentation as it is all on our book manager system therefore I cannot provide a link. CSC in Dallas provides support for all of the institutions who currently operate under the Hogan Umbrella, they also provide training for new HOGAN programmers.

I attended their training about 8 years ago in Dallas.

Here are some links that will provide some general information about HOGAN COBOL.


http://www.csc.com/industries/banking/offeringdetails/822.shtml
http://www.csc-fs.com/hogan/downloads/HoganCourseCatalog.pdf
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Mainframe Challenge All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group