search cancel

Culprit - Finding recipients associated and not associated to a SYSGEN User Id

book

Article ID: 258347

calendar_today

Updated On:

Products

Dispatch Output Mgmt

Issue/Introduction

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?

Environment

Dispatch, Culprit, dsculp22, recipient, userid 11.6, 11.7

Cause

No "canned" Culprit report matching customers needs provided with the product.

Resolution

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.

Additional Information

Disclaimer: ca/Broadcom is not responsible for supporting a customers custom Culprit reports.