PB自动生成注释

DELETE FROM PBCATCOL WHERE PBC_TNAM LIKE '%';
DELETE FROM PBCATTBL WHERE PBT_TNAM LIKE '%';

--- 同步表名
INSERT INTO PBCATTBL
( PBT_TNAM,
PBT_OWNR ,
PBT_CMNT)
SELECT ALL_TAB_COMMENTS.TABLE_NAME,
ALL_TAB_COMMENTS.OWNER,
ALL_TAB_https://www.wendangku.net/doc/cb16975076.html,MENTS
FROM ALL_TAB_COMMENTS
WHERE ALL_TAB_COMMENTS.OWNER = 'EASYHIS'
AND TABLE_NAME LIKE '%';

--- 同步字段名
INSERT INTO PBCATCOL
( PBC_TNAM,
PBC_OWNR,
PBC_CNAM,
PBC_LABL,
PBC_CMNT,
PBC_HDR)
SELECT ALL_COL_COMMENTS.TABLE_NAME,
ALL_COL_COMMENTS.OWNER,
ALL_COL_COMMENTS.COLUMN_NAME,
ALL_COL_https://www.wendangku.net/doc/cb16975076.html,MENTS ,
ALL_COL_https://www.wendangku.net/doc/cb16975076.html,MENTS ,
ALL_COL_https://www.wendangku.net/doc/cb16975076.html,MENTS
FROM ALL_COL_COMMENTS
WHERE ALL_COL_COMMENTS.OWNER = 'EASYHIS'
AND TABLE_NAME LIKE '%';
COMMIT;

/*
CREATE OR REPLACE Function f_CreateTableComment(p_Tblname In Varchar2,
p_Owner In Varchar2)
Return Char Is
Result Char;
-- 更新表的PB中文列名
v_Tblname Varchar2(255);
Cursor C1 Is
Select Column_Name, Comments
From All_Col_Comments
Where Owner = p_Owner
And Table_Name = p_Tblname;
v_Comments Varchar(255);
v_Column_Name Varchar(100);
v_Tab_Comm Varchar(255);
Begin
-- V_TBLNAME := P_TBLNAME;
v_Tab_Comm := ' ';
Select Nvl(Comments, ' ')
Into v_Tab_Comm
From All_Tab_Comments a
Where a.Owner = p_Owner
And a.Table_Name = p_Tblname;

Update Pbcattbl
Set Pbt_Cmnt = v_Tab_Comm,
Pbd_Fhgt = -9,
Pbd_Ffce = '宋体',
Pbh_Fhgt = -9,
Pbh_Ffce = '宋体',
Pbl_Fhgt = -9,
Pbl_Ffce = '宋体'
Where Pbt_Tnam = p_Tblname
And Pbt_Ownr = p_Owner;
If Sql%Notfound Then
Insert Into Pbcattbl
(Pbt_Tnam,
Pbt_Ownr,
Pbd_Fhgt,
Pbd_Fwgt,
Pbd_Fitl,
Pbd_Funl,
Pbd_Fchr,
Pbd_Fptc,
Pbd_Ffce,
Pbh_Fhgt,
Pbh_Fwgt,
Pbh_Fitl,
Pbh_Funl,
Pbh_Fchr,
Pbh_Fptc,
Pbh_Ffce,
Pbl_Fhgt,
Pbl_Fwgt,
Pbl_Fitl,
Pbl_Funl,
Pbl_Fchr,
Pbl_Fptc,
Pbl_Ffce,
Pbt_Cmnt)
Values
(p_Tblname,
p_Owner,
-9,
400,
'N',
'N',
0,
34,
'宋体',
-9,
400,
'N',
'N',
0,
34,
'宋体',
-9,
400,
'N',
'N',
0,
34,
'宋体',
v_Tab_Comm);
End If;

Open C1;
Loop
Exit When C1%Notfound;
Fetch C1
Into v_Column_Name, v_Comments;
Begin
Update Pbcatcol
Set Pbc_Labl = v_Comments,
Pbc_Cmnt = v_Comments,
Pbc_Hdr = v_Comments
Where Pbc_Tnam = p_Tblname
And Pbc_Ownr = p_Owner
And Pbc_Cnam = v_Column_Name;
If Sql%Notfound Then
Insert Into Pbcatcol
(Pbc_T

nam,
Pbc_Ownr,
Pbc_Cnam,
Pbc_Labl,
Pbc_Lpos,
Pbc_Hdr,
Pbc_Hpos,
Pbc_Jtfy,
Pbc_Mask,
Pbc_Case,
Pbc_Hght,
Pbc_Wdth,
Pbc_Ptrn,
Pbc_Bmap,
Pbc_Init,
Pbc_Edit,
Pbc_Cmnt)
Values
(p_Tblname,
p_Owner,
v_Column_Name,
v_Comments,
23,
v_Comments,
25,
25,
'',
0,
57,
87,
'',
'N',
'',
'',
v_Comments);

End If;
Commit;
Exception
When Others Then
Null;
End;
End Loop;
Return '0';
End;
/
CREATE OR REPLACE Procedure Prc_CreateTableComment(v_Username In Varchar2) Is
v_Rst Char(1);
v_Tblname All_Tab_Columns.Table_Name%Type;

-- 更新所有表的PB中文列名
Cursor C1 Is
Select Table_Name From All_Tables t Where Owner = Upper(v_Username);
Begin
Open C1;

Loop

Fetch C1
Into v_Tblname;
Exit When C1%Notfound;

Begin
v_Rst := f_CreateTableComment(v_Tblname, v_Username);
Dbms_Output.Put_Line(v_Tblname);
Exception
When Others Then
Null;
End;
End Loop;
End;
/
*/