IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

CBT tape 592 queries


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
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
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: 8697
Location: Dubuque, Iowa, USA

PostPosted: Mon Jul 27, 2009 5:04 pm
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Jul 28, 2009 12:49 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts Deleting a Tape file JCL & VSAM 14
No new posts JCL and TAPE drives: how to maximize ... JCL & VSAM 9
No new posts ADR324E-VOL/DATASET SPECIFIED BY DDNA... JCL & VSAM 6
No new posts Record count of RECFM=U tape file DFSORT/ICETOOL 17
No new posts Using Virtual Tape Server TS7700 as c... All Other Mainframe Topics 0
Search our Forums:

Back to Top