Is there a way to produce a list of Recipients, similar to DSCULP22, which includes those who are not attached to User IDs as well as those which are?
Dispatch, Culprit, dsculp22, recipient, userid 11.6, 11.7
No "canned" Culprit report matching customers needs provided with the product.
INSTRUCTIONS to execute the new CULP22C report:
1). Copy the statements below into a new CADSOPTN library member:
************ TOP OF FILE *************************
INPUT 6000 DB(D) SS=SSRD01,CAISCHEM,1
PARAM=LIST
PATH01 RD-RECIP (IX-RD-RECIP)
PATH-- SG-URECIP
PATH-- SG-USER
REC SG-USER-USER-ID (SG-USER) 9 8
REC SG-USER-USER-DESC (SG-USER) 41 40
REC W-DBKEY 5000 4 1
583 DISPATCH REPORT RECIPIENT SYSGEN USER LISTING
5841* 1 'RECIPIENT'
5841* 2 'RECIPIENT DESCRIPTION'
5841* 3 'RECIPIENT MAILDROP'
5841* 4 'SYSGEN USER-ID'
5841* 5 'SYSGEN USER DESCRIPTION'
5851* 1 RD-RECIP-RECIP-ID
5851* 2 RD-RECIP-DESC.1
5851* 3 RD-RECIP-MAILDROP
5851* 4 SG-USER-USER-ID
5851* 5 SG-USER-USER-DESC
5852* 1 RD-RECIP-RECIP-ID
5852* 2 RD-RECIP-DESC.1
5852* 3 RD-RECIP-MAILDROP
5852* 4 'NO SYSGEN USER FOUND'
58530001 '*** ERROR - NO SG-URECIP RECORDS '
58540001 '*** ERROR - IF MEMBER '
58540070 IDMS-STATUS
58550001 '*** ERROR - SG-URECIP NEXT SET'
58560001 '*** ERROR - NO SG-USER RECORD FOUND FOR SG-URECIP'
58560070 IDMS-STATUS
58570001 '*** ERROR - FIND DBKEY '
58570070 IDMS-STATUS
580 FOUND-FLAG 'N'
587 MOVE 'N' TO FOUND-FLAG
587 CALL DB-EXIT ('FIRST-AREA' 'SG-URECIP ' 'SG-AREA ')
587 IF IDMS-STATUS NE '0000' 300
587100 CALL US43 (DBKEY(SG-URECIP) W-DBKEY 4)
587 IF RD-RECIP-RECIP-ID NE SG-URECIP-RECIP-ID 150
587 MOVE 'Y' TO FOUND-FLAG
587 CALL DB-EXIT ('IF-MEMBER' 'SG-URECIP ' 'SG-USER-URECIP ')
587 IF IDMS-STATUS EQ '0000' 101
587 TAKE 4
587101 CALL DB-EXIT ('OWNER' 'SG-USER ' 'SG-USER-URECIP ')
587 IF IDMS-STATUS NE '0000' 400
587 RELS 1
587 CALL DB-EXIT ('DBKEY' 'SG-URECIP ' W-DBKEY)
587 IF IDMS-STATUS NE '0000' 500
587150 CALL DB-EXIT ('NEXT-AREA' 'SG-URECIP ' 'SG-AREA ')
587 IF IDMS-STATUS EQ '0000' 100
587 IF IDMS-STATUS EQ '0307' 200
587 TAKE 5
587200 IF FOUND-FLAG EQ 'Y' DROP
587 TAKE 2 $ FOUND RC-RECIP WITH NO SG-USER
587300 TAKE 3 $ DB ERROR NO SG-URECIP FOUND
587400 TAKE 6 $ DB ERROR NO SG-USER FOUND
587500 TAKE 7 $ DB ERROR DBKEY
************ BOTTOM OF FILE *************************
* The Culprit control statements MUST start in column 2 in the new CADSOPTN library member that you will be creating!!
* Don't forget to remove the TOP OF DATA and BOTTOM OF DATA statements before saving the member and executing the report!!
2). Modify the 'MEMBER=' symbolic in the DSEXCULP submit JCL to point to this new member name.
3). Execute the DSEXCULP job.
Disclaimer: ca/Broadcom is not responsible for supporting a customers custom Culprit reports.