New structure for every CICS Program

This forum provides the support of Dezhi Mainframe systems. Please post your questions about logon, usage of our mainframe environment.

Moderators: sysprog, prino, sfan, steve-myers, Tim001

New structure for every CICS Program

Postby agourav19890 » Mon 18 Jan 2016, 10:26

Hi,
As per the new rule we have to code below section also but when i am doing this getting error - "GROUP" is a reserved word related to language not supported by this compiler.

Please advice can I use name GROUP1 instead of GROUP.

01 CICSIDENT.
02 FILLER PIC X(8) VALUE '**CICS**'.
02 FILLER PIC X(8) VALUE 'USERID: '.
02 USERID PIC X(8) VALUE 'RA2000'.
02 FILLER PIC X(8) VALUE 'NAME: '.
02 NAME PIC X(20) VALUE 'RAHUL'.
02 FILLER PIC X(12) VALUE 'DESCRIPTION:'.
02 DESC PIC X(80)
VALUE 'PROGRAM TO DO AUTHENTICATION OF USERID AND PROGRAM'.
02 FILLER PIC X(12) VALUE 'CICS GROUP: '.
02 GROUP PIC X(8) VALUE 'RA2000'.
02 FILLER PIC X(12) VALUE 'CICS TRAN: '.
02 TRAN PIC X(8) VALUE 'ACCM'.

Warm regards
agourav19890
 
Posts: 5
Joined: Mon 04 Jan 2016, 09:36

Re: New structure for every CICS Program

Postby prino » Mon 18 Jan 2016, 11:25

You can call the fields anything you like, if you want to call all of them FILLER, feel free to do so. The important thing is that we want to see all the data appear in the LOAD module - so putting in this structure as comments in your source will not do. How you call it, we really don't care, fieldnames don't appear in the LOAD module anyway...
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
Some programming here :mrgreen:
prino
 
Posts: 479
Joined: Sat 06 Jun 2009, 21:41
Location: Vilnius, Lithuania


Return to Dezhi systems: Mainframe

Who is online

Users browsing this forum: No registered users and 0 guests

cron