Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Need Help in understanding what is the language of this code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
mainakdalal

New User


Joined: 05 Sep 2005
Posts: 6
Location: kolkata

PostPosted: Mon Oct 03, 2016 8:03 pm    Post subject: Need Help in understanding what is the language of this code
Reply with quote

Hello all, In our site, we came across few batch codes, that are actually tables starting with <XXX>TBBLD and ending with <XXX>TBEND. A sample code is given below.
Code:

NELTBBLD MODELE022
NELFORMT 'X(06)' 
NELVALUE 'SP    '
NELVALUE 'DIR   '
NELVALUE 'FD    '
NELVALUE 'DSC   '
NELVALUE 'LIB   '
NELVALUE '      '
NELTBEND
       


This code is being called from another COBOL code using a COBOL copybook layout. I looked at the load for the table module and from the signature, I see the number 569623400, which corresponds to High level assembler.
However, I have never seen any assembler table like this. Without a DS or DC opcode, how variable can be defined in a Assembler? and the same can be called using a cobol copybook?

We have also found some code, which looks like some online screen description with validation checks added. But not sure of the language used for writing them. They neither look like IMS MFS, nor like CICS, nor like ISPF panel coding. These are not called from any other module / screen COBOL code either. Can anyone tell me what is the language used here?

Code:

NL NYN L 02 00 *** E 'SAMPLE OPTION  NUMBER (01=BASIC, 02-99=ADVANCED)'
NAME 'SMP-OPT-NUM'                                                     
RANGE 01,99                                                           
NL AXN L 03 00 *** I '530' *                                           
NAME 'FIELD-530'                                                       
SL NNN L 01 00 *** E 'FLD/AGE CALC RULE (1=NEAREST, 2=LAST)'           
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Oct 03, 2016 8:07 pm    Post subject: Reply to: Need Help in understanding what is the language of this code
Reply with quote

Quote:
This code is being called from another COBOL code using a COBOL copybook layout.


define in a proper way the meaning of the above sentence!
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 1610
Location: NY,USA

PostPosted: Mon Oct 03, 2016 8:22 pm    Post subject:
Reply with quote

They could be Macros- like, Delta Cobol. How about showing us the compile listing?
Back to top
View user's profile Send private message
mainakdalal

New User


Joined: 05 Sep 2005
Posts: 6
Location: kolkata

PostPosted: Mon Oct 03, 2016 8:53 pm    Post subject:
Reply with quote

Hi Enrico,

What I meant is that the Table is coded as a Batch Module. The same is called by another Cobol code using a copybook that reads each of the value defined in the table using occurrence. It is as if reading normal cobol tables (with picture claue and Value Literal) into a copybook. I am really not sure how this is working.

Also... the 2nd screenshot (seems like a online code) is totally confusing.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Oct 03, 2016 9:37 pm    Post subject: Reply to: Need Help in understanding what is the language of this code
Reply with quote

what have Your colleagues/support people to say about it ?
Back to top
View user's profile Send private message
mainakdalal

New User


Joined: 05 Sep 2005
Posts: 6
Location: kolkata

PostPosted: Mon Oct 03, 2016 10:09 pm    Post subject:
Reply with quote

they say that the table is Assembler. But I do not agree :-(
Also... no one is sure on the 2nd screenshot.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Mon Oct 03, 2016 11:49 pm    Post subject:
Reply with quote

The table may be using Assembler macros, but it certainly is not Assembler code. And the second screen shot appears to be some sort of high-level variable definition with length, initial value, error message, and range of permitted values (among other things).

Unless you find some documentation (on the system or hardcopy or intranet), it is unlikely that you will ever figure them out. Do you have the job to assemble / compile these code pieces? If not, you need to search to see if they can be found on your system. Without this JCL, you'll need to plan on replicating the functionality (whatever it is) without knowing he details -- which could be a very difficult task.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7234

PostPosted: Tue Oct 04, 2016 2:13 am    Post subject: Reply to: Need Help in understanding what is the language of this code
Reply with quote

They both look like some sort of "dictionary" definition. The first is the description of a field, the second a different type of description of several fields.

Perhaps a number instances of the first type would describe a file, and perhaps the second is a screen (or report, or an output file).

It looks to be "home grown" and it looks to have been around for a while (limit of eight characters to "keywords" is archaic).

Wild guesses, though.
Back to top
View user's profile Send private message
Kerry Ropar

New User


Joined: 14 Sep 2016
Posts: 25
Location: Australia

PostPosted: Tue Oct 04, 2016 4:37 am    Post subject:
Reply with quote

mainakdalal, are you using Ricoh Mainframe Printer at your shop?
Back to top
View user's profile Send private message
mainakdalal

New User


Joined: 05 Sep 2005
Posts: 6
Location: kolkata

PostPosted: Tue Oct 04, 2016 5:49 pm    Post subject:
Reply with quote

Hi All,

I was able to figure it out. The table is actually made up of Assembler macros. They were not in the standard maclib but in a different PDS. When I expanded the macros used as keyword in the table, I found that the code is actually loading the table in a register, which points to the address of register 1 for linkage to calling module. This is how the table values are passed to called COBOL code.

On the other piece of code, which seems like a screen layout, is actually working as a card input to some code. unfortunately we do not have the driver source code, but only the load to it :-(

Thanks for all your help in pointing me towards a solution.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
This topic is locked: you cannot edit posts or make replies. Need to code a Rexx PGM sundaram.naveen CLIST & REXX 18 Thu Oct 06, 2016 6:45 pm
No new posts Problem Compiling cobol code with Cob... amitc23 COBOL Programming 2 Wed Aug 24, 2016 1:50 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us