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
 

 

Assembler ADATA exit

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

New User


Joined: 06 Nov 2006
Posts: 23
Location: Montreal

PostPosted: Mon Jul 27, 2015 5:33 pm    Post subject: Assembler ADATA exit
Reply with quote

Hi,

I am trying to restrict the ADATA output to contain only x'0030' (source records) and used below option during compilation:

//STEP1 EXEC PGM=ASMA90,
// PARM='ADATA,EXIT(ADEXIT(ASMAXADC(WRITE,TYPE(0030))))'

But i am not getting any records in my SYSADATA o/p. Can anyone suggest if i am missing something?

Note that I have compiled and linkedited ASMAXADC (as is).
Back to top
View user's profile Send private message

steve-myers

Active User


Joined: 30 Nov 2013
Posts: 462
Location: The Universe

PostPosted: Mon Jul 27, 2015 8:32 pm    Post subject:
Reply with quote

I located the exit code in SASMSAM1 and its related doc in the Programmer's Guide. Now I'm not going to try to decipher the exit code for you, but I do not think you need the WRITE parameter for the exit. This is based on my reading of the Programmer's Guide and the doc in ASMAXADC. Just TYPE(0030) should be enough.
Back to top
View user's profile Send private message
steve-myers

Active User


Joined: 30 Nov 2013
Posts: 462
Location: The Universe

PostPosted: Mon Jul 27, 2015 9:37 pm    Post subject:
Reply with quote

Besides, you're not going to save very much. Look at this summary from one of my programs
Code:
0000         1       171   0   0
0001         1        26   0   0
0002         2        48   0   0
000A         1       285   0   0
0010         1       276   0   0
0020        35     2,597   0   0
0030     9,930 2,242,016  55  79
0034     1,758   167,482   9   5
0035         1       160   0   0
0036     1,532    73,246   8   2
0040       161     5,313   0   0
0042     3,130   230,554  17   8
0044     1,199    77,808   6   2
0045        16    11,272   0   0
0060         3     1,168   0   0
0062        73     7,206   0   0
0080        62     3,958   0   0
0090         1       200   0   0
Your counts will most likely be similar to mine. The columns are record type, record count, bytes in records, % of records, % of bytes. Your type 30 records are almost 80% of the volume of data. I don't have the record types memorized, but 30 is source records.
Back to top
View user's profile Send private message
steve-myers

Active User


Joined: 30 Nov 2013
Posts: 462
Location: The Universe

PostPosted: Tue Jul 28, 2015 10:26 am    Post subject:
Reply with quote

A different, but smaller, program -
Code:
0000         1       167   0.04   0.05
0001         1        26   0.04   0.00
0002         2        48   0.09   0.01
000A         1       273   0.04   0.08
0010         1       276   0.04   0.08
0020         4       296   0.18   0.09
0030     1,108   246,941  51.79  76.28
0034       248    23,688  11.59   7.31
0036       267    12,746  12.48   3.93
0040         9       297   0.42   0.09
0042       357    26,229  16.69   8.10
0044        89     6,775   4.16   2.09
0045        16     2,597   0.74   0.80
0060         1       390   0.04   0.12
0062        28     2,453   1.30   0.75
0080         5       323   0.23   0.09
0090         1       200   0.04   0.06
     2,139 RECORDS   323,725 BYTES
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 How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
No new posts A sample of exit program for exit XMN... lind sh CICS 2 Mon Oct 03, 2016 5:07 pm
No new posts SORT - E15 and E35 using same user ex... Abhi Nature DFSORT/ICETOOL 12 Mon Oct 03, 2016 4:33 pm
No new posts How to use my exit program. lind sh CICS 1 Tue Sep 13, 2016 1:54 pm
No new posts User exit in COBOL programs ganasrinivasan PL/I & Assembler 0 Thu Aug 18, 2016 12:48 pm


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