!JOB
!LIMIT (TIME,7),(UO,9999),(CORE,30),(ACCOUNT),(ORDER),(RERUN)
!DICTNARY S
1SIDRSTAT0052
2SIDRSTATMANAGER 00010081 A
2SIDRSTATANALYST 00090122 A
2SIDRSTATRECD    0021002  B
2SIDRSTATCT      0023002  B
2SIDRSTATPT      0025002  B
2SIDRSTATOT      0027002  B
2SIDRSTATBACK    0029002  B
2SIDRSTATC01     0031001  B
2SIDRSTATC02     0032001  B
2SIDRSTATC03     0033001  B
2SIDRSTATC04     0034001  B
2SIDRSTATC05     0035001  B
2SIDRSTATC06     0036001  B
2SIDRSTATC07     0037001  B
2SIDRSTATC08     0038001  B
2SIDRSTATC09     0039001  B
2SIDRSTATC10     0040001  B
2SIDRSTATC11     0041001  B
2SIDRSTATC12     0042001  B
2SIDRSTATP0      0043001  B
2SIDRSTATP1      0044001  B
2SIDRSTATP2      0045001  B
2SIDRSTATP3      0046001  B
2SIDRSTATP4      0047001  B
2SIDRSTATO0      0048001  B
2SIDRSTATO1      0049001  B
2SIDRSTATO2      0050001  B
2SIDRSTATO3      0051001  B
2SIDRSTATO4      0052001  B
1SISDATA 9999
2SISDATA SIDR    00040053DA
2SISDATA ORGNATOR0009005  A
2SISDATA INST    0024008  A
2SISDATA ORGCO   0032020  A
2SISDATA REGION  0062002  A
2SISDATA RECDATE 0064006  A
2SISDATA RECMO   0064002  A
2SISDATA RECDA   0066002  A
2SISDATA RECYR   0068002  A
2SISDATA SYSTEM  00760061 A
2SISDATA SYSTEMA 0076009  A
2SISDATA SYSLEVEL0082003  A
2SISDATA PROGRAM 00850062 A
2SISDATA PROGRAMA0085009  A
2SISDATA MGRANAL 0094022  A
2SISDATA MANAGER 0094008  A
2SISDATA ANALYST 0104012  A
2SISDATA REVLEVEL0122003  A
2SISDATA CLOSCODE0125002  A
2SISDATA SVERITY 0127001  A
2SISDATA STAREA  0138012  A
2SISDATA STATUS  0138002  A
2SISDATA ID2     0140002  A
2SISDATA SALESOFF0168008  A
2SISDATA FLDANLST0176015  A
2SISDATA PREFLAG 0191001  A
2SISDATA DUM1    0128010  A
2SISDATA DUPCOUNT0201004  B
2SISDATA ABSCOUNT0205004  B
2SISDATA DUPSIDR 0001014M A     MDUPCOUNT
2SISDATA ABSLINE 0002068  A     MABSCOUNT
2SISDATA ABSNO   0003002M A     MABSCOUNT
!ASSIGN F:MNG,(FILE,SISDATA)
!RUN (LMN,SIDRS1,$SIS)
!DATA
O,1,S,CSD
!ASSIGN F:MSTRFILE,(FILE,SISDATA)
!RETRIEVE
001N A   A SISDATA           S R S G 1 3 1 D
001N B 01 REPORT 1N   OPEN AND PEND DIFFICULTY CPV SIDRS BY ANALYST
001N C 01 CLOSCODE EQ =  ,=00,=14,=13,                                    AND
001N C 02 SYSTEM   EQ =706000,=707000,                                    AND
001N C 03 SVERITY  NE =5,                                                 AND
001N C 04 PREFLAG  EQ = ,                                                 END
001N D 01 ANALYST    1   1      E  02   ANALYST
001N D 02 SIDR       2   2         02   SIDR NO.
001N D 03 SVERITY    3   3         02   SEV
001N D 04 PROGRAMA       4         03   PCN                   AAAAAA-AAA
001N D 05 RECDATE        5         03   RECEIVED              AA-AA-AA
001N D 06 ORGCO          6         02   CUSTOMER
001N D 08 REVLEVEL       7         99   PENDING
001N D 09 DUM1           8         99
001N D 10 DUM1                     29
001N D 11 ABSNO    N 4
001N D 12 ABSLINE
!REPORT  D
!PCL
DELETE SISDATA
END
