ca.portal.admin

subschemas by area

Discussion created by ca.portal.admin on Dec 8, 2005
Latest reply on Dec 8, 2005 by ca.portal.admin
Hi everyone,

I've received a requested to provide the list of subschemas per area
name. I'm hoping someone else already has that type of report, whether
it's culprit or some other tool.

TIA,
Laura Rochon
Ajilon Consulting

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: subschemas by area
"

//*

//CU EXEC PGM=IEFBR14

//DD1 DD DSN=&SYSUID..SSAXSS,UNIT=3390,DISP=(MOD,DELETE),

// SPACE=(TRK,1)

//*

//SSAXSS EXEC CULPPM,CV=IDMSDC,REGION=8M

//XTRSSA DD DSN=&SYSUID..SSAXSS,UNIT=3390,DISP=(,CATLG),

// RECFM=FB,LRECL=132,BLKSIZE=0,SPACE=(TRK,(15,15),RLSE)

//SYSIN DD *

DATABASE DICTNAME=AEIDICT

PARAM=NOLIST

USE SSAXSS

CH R TO 55

SEL SSA-024 WHEN SSA-NAM-024 EQ ('OPER-AREA-SGEN' 'OPER-AREA-PGEN')

//SYSIDMS DD *

DMCL=AEIDMCL

//*

---------------------------------------------------------------------

PARAM=NOLIST

01$---------------------------------------------------------

01$ PUNCH SSC INFO FOR COMPARISON.

01$---------------------------------------------------------

IN 2000 DB SS=IDMSNWKA,IDMSNTWK

PATHSA SSA-024 SS-026

010 DEFUSA ' '

010 LOKS.8 ' '

010 BITS.8 ' '

010 BLKS.8 ' '

010 IX 0

01OUT 080 D PS DD=XTRSSA

01SORT SSA-NAM-024,+ SS-NAM-024

0151*010 SS-NAM-026 $ SSC

0151*020 SSA-NAM-024 SZ=16 $ AREA

0151*030 LOKS.1 $ SHA RET

0151*040 LOKS.2 $ PRO RET

0151*050 LOKS.3 $ EXC RET

0151*060 LOKS.4 $ SHA UPD

0151*070 LOKS.5 $ PRO UPD

0151*080 LOKS.6 $ EXC UPD

0151*090 DEFUSA $ DEFAULT USAGE

017 IF PATH-ID NE ('SA') DROP $

017 CALL US43 (BLKS.1 BITS.1 16)

017 CALL US43 (BLKS.1 LOKS.1 8)

017 CALL US35 (SSA-LOK-024 1 BITS 2 2 0)

017 M 0 IX

017100 $

017 C IX + 1 IX

017 IF IX GT 8 110

017 IF BITS.IX EQ ' ' 110

017 IF BITS.IX NE '01' 101

017 M 'Y' LOKS.1

017 B 100

017101 IF BITS.IX NE '02' 102

017 M 'Y' LOKS.2

017 B 100

017102 IF BITS.IX NE '03' 103

017 M 'Y' LOKS.3

017 B 100

017103 IF BITS.IX NE '04' 104

017 M 'Y' LOKS.4

017 B 100

017104 IF BITS.IX NE '05' 105

017 M 'Y' LOKS.5

017 B 100

017105 IF BITS.IX NE '06' 106

017 M 'Y' LOKS.6

017 B 100

017106 IF BITS.IX NE '07' 107

017 M 'Y' LOKS.7

017 B 100

017107 IF BITS.IX NE '08' 110

017 M 'Y' LOKS.8

017 B 100

017110 $

017 IF DEF-USAGE-024 NE 0 121

017 M 'NONE ' TO DEFUSA

017121 IF DEF-USAGE-024 NE 36 122

017 M 'UPDATE ' TO DEFUSA

017122 IF DEF-USAGE-024 NE 37 123

017 M 'RETRIEV' TO DEFUSA

017123 IF DEF-USAGE-024 NE 38 124

017 M 'PRO UPD' TO DEFUSA

017124 IF DEF-USAGE-024 NE 39 125

017 M 'PRO RET' TO DEFUSA

017125 IF DEF-USAGE-024 NE 40 126

017 M 'EXC UPD' TO DEFUSA

017126 IF DEF-USAGE-024 NE 41 130

017 M 'EXC RET' TO DEFUSA

017130 $

017 TAKE

Outcomes