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

Assembler ADATA exit


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ganasrinivasan

New User


Joined: 06 Nov 2006
Posts: 27
Location: Montreal

PostPosted: Mon Jul 27, 2015 5:33 pm
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 Member


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

PostPosted: Mon Jul 27, 2015 8:32 pm
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 Member


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

PostPosted: Mon Jul 27, 2015 9:37 pm
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 Member


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

PostPosted: Tue Jul 28, 2015 10:26 am
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts Use of Perform Thru Exit COBOL Programming 6
No new posts user exit in IBM Infosphere Optim DB2 8
No new posts Build dataset list with properties us... PL/I & Assembler 4
No new posts Finding Assembler programs PL/I & Assembler 5
No new posts How Can I Recall a Migrated Data Set ... PL/I & Assembler 3
Search our Forums:

Back to Top