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
 

 

CBT tape 592 queries

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

New User


Joined: 22 Jan 2008
Posts: 85
Location: India

PostPosted: Mon Jul 27, 2009 4:24 pm    Post subject: CBT tape 592 queries
Reply with quote

Hi,
I have found a CBT tape file : 592 , which displays the value of the register using a display function,
I have link edited the macro to my assembler program but i dont know how to use the display function in the asm program,
Can anybody help me to solve this issue.
Should i use any load command in my asm prgram to call that module.
The systax to use the display function is ,
DISPLAY DATA=(ITEM1,TYPE1,LENGTH1)
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


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

PostPosted: Mon Jul 27, 2009 5:04 pm    Post subject:
Reply with quote

The CBT documentation is pretty explicit:
Quote:
//* You linkedit the DISPLAY assembler module with the * FILE 592
//* assembler program that you're coding, and to display * FILE 592
//* values from the program, you code instances of the * FILE 592
//* DISPLAY macro in your program. The result is a * FILE 592
//* display of the quantity, in readable format, so you * FILE 592
//* can debug your program. When your program is clean, * FILE 592
//* you simply remove the DISPLAY macros. * FILE 592
Back to top
View user's profile Send private message
usharaniA

New User


Joined: 22 Jan 2008
Posts: 85
Location: India

PostPosted: Tue Jul 28, 2009 12:40 pm    Post subject:
Reply with quote

Hi im learning ASM ,so actually i dont know how to code ,
sorry if i done any blunder here.

This is my JCL where i linking the Display module
Code:
//ADM2989$ JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=A,               
//         REGION=5M,NOTIFY=&SYSUID                             
                                             
//STEP1        EXEC ASMACL                                       
//C.SYSIN      DD DSN=U162936.ASEMBLER.PDS(DISPLAY),DISP=SHR     
//L.SYSLMOD    DD DSN=U162936.ASEMBLER.LOAD(DISPLAY),DISP=SHR   
//STEP2        EXEC ASMACL                                       
//C.SYSIN      DD DSN=U162936.ASEMBLER.PDS(PROG1),DISP=SHR       
//L.SYSLMOD    DD DSN=U162936.ASEMBLER.LOAD(PROG1),DISP=SHR     
//L.SYSIN   DD *                                                 
  INCLUDE SYSLMOD(DISPLAY)                                       
//STEP3   EXEC PGM=PROG1                                         
//STEPLIB   DD DISP=SHR,DSN=U162936.ASEMBLER.LOAD               
//DISPLAY DD SYSOUT=*                                           


My ASM program,
Code:
TEST1     CSECT                                               
          STM  14,12,12(13)                                   
          LOAD EP=DISPLAY,DCB=U162936.ASEMBLER.LOAD           
          DISPLAY VALUE=((14),C,(14))                         
          2ALR   12,0                                         
          USING   *,12                                         
          ST  13,SAVE+4                                       
          LA  13,SAVE                                         
          MVC   DATA1,DATA2                                   
PUTMSG    WTO 'WELCOME'                                       
          L  13,SAVE+4                                         
          LM  14,12,12(13)                                     
          SR  15,15                                           
          BR   14                                             
DATA1     DS   CL100                                           
DATA2     DS   CL100                                           
SAVE      DS  18F                                             
          END                                                 


But im getting the abend SOC1.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Tue Jul 28, 2009 12:49 pm    Post subject: Reply to: CBT tape 592 queries
Reply with quote

reread the docs ( the DISPLAY macro to see its format and parameters )

rewrite Your program according to assembler common practices
( the LOAD and DISPLAY is outside a proper addressing environment)
also no need to specify a DCB in the load macro ( I wonder how the program even assembled correctly )
Back to top
View user's profile Send private message
Pankaj Shrivastava
Currently Banned

New User


Joined: 24 Jul 2009
Posts: 51
Location: Pune

PostPosted: Tue Jul 28, 2009 1:37 pm    Post subject:
Reply with quote

First remove your load and display statements and rearrange your housekkeepinng statements in proper sequence followed by establishing base register . Your R14 is getting screwed up by the macros.

Once it runs properly ..then go for the display macros.
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 Need help with below queries ashek15 DB2 3 Thu Mar 23, 2017 1:38 am
No new posts TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm
No new posts stacking files on a tape Pedro JCL & VSAM 7 Wed Aug 17, 2016 11:11 pm
No new posts Reading selected volumes of a multi-v... RickBig JCL & VSAM 6 Wed Jul 13, 2016 7:26 pm
No new posts How to copy Tape dataset to unix main... chaky All Other Mainframe Topics 4 Fri Jul 08, 2016 2:52 am


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