I am beginning to test registration of our products for usage. I can't seem to
get
IFAURP to display my records. I am using the following to create records:
NOAREG IFAUSAGE REQUEST=REGISTER, Register the product
PRODOWNER=TONENAME, - CL16'Tone Software Co'
PRODNAME=MYPROD, - CL16'OurProduct'
PRODVERS=PRODVER, - CL8'V3R2M0'
PRODQUAL=USERID, - CL8'JSZ1'
PRODID=DYS320, - CL8'DYS320'
DOMAIN=TASK, -
SCOPE=FUNCTION, -
PRTOKEN=PRODTOKB, -
LINKAGE=BRANCH, -
FBFE=YES, -
RETCODE=RETCODE, -
*
NOABEG IFAUSAGE REQUEST=FUNCTIONBEGIN,
PRTOKEN=PRODTOKB, -
LINKAGE=BRANCH, -
RETCODE=RETCODE, -
MF=(E,IFAULIST)
A dump of SMF data shows that the type 89 subtype 1 records are being produced:
RecType: 89 Date-Time: Tuesday, March 9, 2021 (2021.068) 03:00:00.00
0000 03420000 DE590010 7AC00121 068FD1E2 F2C1E2E3 C3400001 00000024
00000040 *........:.....JS2ASTC ......... *
0020 00400001 00000080 00CE0001 0000014E 005C0001 00000000 000001AA
00880003 *. .............+.*...........h..*
0040 E2D4C640 40404040 00000001 E2D7F74B F24BF340 000AFC80 0121068F
00107AC0 *SMF ....SP7.2.3 ..........:.*
0060 0121068F 00000000 00000000 00000000 FFFF94B6 2E000000 00010001
00010000 *..................m.............*
0080 C7F2F3D1 F2C14040 00057E40 0121068F 000AFC80 0121068F 00001001
00001001 *G23J2A ..= ....................*
00A0 1090D300 01F47B00 0000AC40 C1C4C3C4 D7D34040 40A9F1F0 F9F0C1A7
A7A4D7C4 *..L..4#.... ADCDPL z1090AxxuPD*
00C0 E3F10000 00000000 00C00000 C9C2D440 40404040 40404040 40404040
F1F0F9F0 *T1..........IBM 1090*
00E0 F3F0F640 40404040 40404040 40404040 F0F0F0F0 F0F0F0F0 F0F0F0F0
C6F4F7C2 *306 000000000000F47B*
0100 F0F24040 0000AC40 00030000 00E000E0 00000000 00000000 00000000
00000000 *02 ... ........................*
0120 00000000 00000000 0000C9C2 D4E2E8E2 F1400000 00123C80 00000000
00000040 *..........IBMSYS1 ............. *
0140 00000000 00000100 00000100 0001C9C2 D440C3D6 D9D74040 40404040
4040A961 *..............IBM CORP z/*
0160 D6E24040 40404040 40404040 4040F0F2 4BF0F34B F0F0E3E2 D661C540
4040F5F6 *OS 02.03.00TSO/E 56*
0180 F4F560F0 F0F1432A 80000000 0000423E 00000000 000000C0 00000000
00000000 *45-001..........................*
01A0 00000000 00000000 0000C9C2 D440C3D6 D9D74040 40404040 4040A961
D6E24040 *..........IBM CORP z/OS *
01C0 40404040 40404040 4040F0F2 4BF0F34B F0F0E3E2 D661C540 4040F5F6
F4F560F0 * 02.03.00TSO/E 5645-0*
01E0 F0F1E396 958540E2 9686A3A6 81998540 C396D6A4 99D79996 84A483A3
40404040 *01Tone Software CoOurProduct *
0200 4040E5F3 D9F2D4F0 4040D1E2 E9404040 4040C4E8 E2F3F2F0 40406800
00000000 * V3R2M0 JSZ DYS320 ......*
0220 00000000 00000000 00000000 00000000 0000C9C2 D440C3D6 D9D74040
40404040 *..................IBM CORP *
0240 4040A961 D6E24040 40404040 40404040 4040F0F2 4BF0F34B F0F0E3E2
D661C540 * z/OS 02.03.00TSO/E *
0260 4040F5F6 F4F560F0 F0F1E396 958540E2 9686A3A6 81998540 C396D6A4
99D79996 * 5645-001Tone Software CoOurPro*
0280 84A483A3 40404040 4040E5F3 D9F2D4F0 4040D1E2 E9F14040 4040C4E8
E2F3F2F0 *duct V3R2M0 JSZ1 DYS320*
02A0 40402800 00000000 00000000 00000000 00000000 00000000 0000C9C2
D440C3D6 * ........................IBM CO*
02C0 D9D74040 40404040 4040A961 D6E24040 40404040 40404040 4040F0F2
4BF0F34B *RP z/OS 02.03.*
02E0 F0F0E3E2 D661C540 4040F5F6 F4F560F0 F0F1E396 958540E2 9686A3A6
81998540 *00TSO/E 5645-001Tone Software *
0300 C396D6A4 99D79996 84A483A3 40404040 4040E5F3 D9F2D4F0 4040D1E2
E9F14040 *CoOurProduct V3R2M0 JSZ1 *
0320 4040C4E8 E2F3F2F0 40406800 00000000 00000000 00000000 00000000
00000000 * DYS320 ......................*
0340 0000
*.. *
But when I use the following as SYSIN to IFAURP I get only IBM records being
reported:
*
* CUSTOMER NAME AND ADDRESS
*
CUSTOMER(NAME('JOHN SZURA ENTERPRISES'))
*
* VENDOR NAME AND ADDRESS
* (SAMPLE ONLY - IBM REP WILL SUPPLY TO EACH CUSTOMER)
*
VENDOR(PRODOWNER('Tone Software Co')
NAME('TONESOFT')
CODE(1234567))
*
* PROCESSOR DEFINITION AND PRODUCTS
*
PROCESSOR((1090,L03,0F47B)
PRODUCT (PRODOWNER('Tone Software Co')
PRODNAME('OurProduct')
PRODFUNC('JSZ ')
*
PROCESSOR((1090,Axx,0F47B)
PRODUCT (PRODOWNER('Tone Software Co')
PRODNAME('OurProduct')
PRODFUNC('JSZ ')
START(20210101)))
*
PROCESSOR((1090,306,0F47B)
PRODUCT (PRODOWNER('Tone Software Co')
PRODNAME('OurProduct')
PRODFUNC('JSZ ')
START(20210101)))
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
