PAGRDI – Grievance,Disciplinary Actions

System: Personnel (PA)
Prefix: PAG
Primary key: COMPANY, EMPLOYEE, TYPE, GRIEV-DIS-NBR
Fields: 37
Updated by: 3 programs
Referenced by: 4 programs

PAGRDI is the Grievance,Disciplinary Actions table in Lawson Personnel (prefix PAG). It is indexed by COMPANY, EMPLOYEE, TYPE, GRIEV-DIS-NBR (PAGSET1); alternate indexes: PAGSET2 and PAGSET3. It is related 1:1 to PCODES, CUCODES, PRSYSTEM, EMPLOYEE, DEPTCODE, JOBCODE and PAEMPLOYEE and 1:M to PAGRDISTEP. It is updated by HR11.1, PA115 and PA59.1 and referenced by HR170, HR70.1, PA259 and ZH500. The table has 37 fields, 3 indexes and 20 documented relations.

About PAGRDI

Contains grievance and disciplinary action information. Maintained primarily by PA59.1 (Grievance,Disciplinary Actions).

Fields (37)

Column = COBOL field name without the PAG- prefix, hyphens → underscores. Derived fields are computed by the application and are not stored.

Field / column	Type	Description & values	Updated by
`PAG-COMPANY` PK COMPANY	Numeric 4	—	PA59.1
`PAG-EMPLOYEE` PK EMPLOYEE	Numeric 9	Contains the employee number. Each person employed by the company is assigned a unique number. The system uses the employee number to correlate all of the information related to that person.	PA59.1
`PAG-TYPE` PK TYPE	Alpha 2	Indicates whether the action is tracking a grievance or disciplinary issue. `1` Grievance `2` Disciplinary	PA59.1
`PAG-GRIEV-DIS-NBR` PK GRIEV_DIS_NBR	Numeric 4	Contains the action number. The numbers are assigned by the Personnel Administration system. The numbers start at one for each employee and type.	PA59.1
`PAG-DESCRIPTION` DESCRIPTION	Alpha 30 (Lower Case)	This field displays the description.	PA59.1
`PAG-DATE` DATE	Numeric 8 (yyyymmdd)	Contains the date the grievance or disciplinary action was created.	PA59.1
`PAG-GRIEV-DIS-CAT` GRIEV_DIS_CAT	Alpha 10	Contains the user-defined grievance or disciplinary action category.	PA59.1
`PAG-REPORT-DATE` REPORT_DATE	Numeric 8 (yyyymmdd)	Contains the date the grievance or disciplinary action was reported.	PA59.1
`PAG-REPORTS-BY` REPORTS_BY	Numeric 9	Contains the name of the employee who reported the action.	PA59.1
`PAG-REPORT-BY-NAME` REPORT_BY_NAME	Alpha 30 (Lower Case)	Contains the name of the employee who reported the action.	PA59.1
`PAG-GRIEV-DIS-STAT` GRIEV_DIS_STAT	Alpha 10	Contains the user-defined grievance, disciplinary action status.	PA59.1
`PAG-OUTCOME` OUTCOME	Alpha 10	Contains the user-defined grievance,disciplinary action outcome.	PA59.1
`PAG-OUTCOME-DATE` OUTCOME_DATE	Numeric 8 (yyyymmdd)	Contains the date of the grievance, disciplinary action outcome.	PA59.1
`PAG-DAYS-OUT` DAYS_OUT	Numeric 3	Contains the number of days the employee is away from work due to the grievance, disciplinary action.	PA59.1
`PAG-COST` COST	Signed 11.2	Contains the cost for the grievance,disciplinary action.	PA59.1
`PAG-PROCESS-LEVEL` PROCESS_LEVEL	Alpha 5	Contains the process level where the grievance or disciplinary action occurred.	PA59.1
`PAG-DEPARTMENT` DEPARTMENT	Alpha 5	Contains the department where the grievance or disciplinary action occurred.	PA59.1
`PAG-LOCAT-CODE` LOCAT_CODE	Alpha 10	Contains the location where the grievance or disciplinary action occurred.	PA59.1
`PAG-JOB-CODE` JOB_CODE	Alpha 9	Contains the employee's job code when the grievance or disciplinary action occurred.	PA59.1
`PAG-SHIFT` SHIFT	Numeric 1	Contains the shift where the grievance or disciplinary action occurred. `1` Shift 1 `2` Shift 2 `3` Shift 3 `4` Shift 4 `5` Shift 5 `6` Shift 6 `7` Shift 7 `8` Shift 8 `9` Shift 9	PA59.1
`PAG-SUPERVISOR-EMP` SUPERVISOR_EMP	Numeric 9	Contains the supervisory where the grievance or disciplinary action occurred.	PA59.1
`PAG-UNION-CODE` UNION_CODE	Alpha 10	Contains the union with which the employee was associated when the grievance or disciplinary action occurred.	PA59.1
`PAG-BARGAIN-UNIT` BARGAIN_UNIT	Alpha 10	Contains the bargaining unit with which the employee was associated when the grievance or disciplinary action occurred.	PA59.1
`PAG-CONTACT-NBR` CONTACT_NBR	Numeric 9	Contains the contact for the union or bargaining unit.	PA59.1
`PAG-CONTACT-NAME` CONTACT_NAME	Alpha 30 (Lower Case)	Contains the employee contact of the union or bargaining unit.	PA59.1
`PAG-PHONE-COUNTRY` PHONE_COUNTRY	Alpha 6	Contains the telephone country code for the union or bargaining unit contact.	PA59.1
`PAG-PHONE` PHONE	Alpha 15	Contains the telephone number for the unit or bargaining unit contact.	PA59.1
`PAG-PHONE-EXT` PHONE_EXT	Alpha 5	Contains the telephone extension for the union or bargaining unit contact.	PA59.1
`PAG-COMMENT` COMMENT	Alpha 40 (Lower Case)	This field contains the comment narrative.	PA59.1
`PAG-DATE-STAMP` DATE_STAMP	Numeric 8 (yyyymmdd)	This field contains the server date (month, date, and year) of the last change to this record.	PA59.1
`PAG-TIME-STAMP` TIME_STAMP	Numeric 6 (hhmmss)	Contains the server time (hour, minute, and second) when the record was last changed.	PA59.1
`PAG-USER-ID` USER_ID	Alpha 10 (Lower Case)	—	PA59.1
`PAG-CURRENCY-CODE` CURRENCY_CODE	Alpha 5	Contains the currency in which the grievance or disciplinary action cost is recorded.	PA59.1
`PAG-CURR-ND` CURR_ND	Numeric 1	The number of decimals assigned to a particular account as determined by the account currency.	PA59.1
`PAG-BASE-CURRENCY` BASE_CURRENCY	Alpha 5	Contains the company's base currency.	PA59.1
`PAG-BASE-ND` BASE_ND	Numeric 1	The number of decimal positions defined for the company base currency.	PA59.1
`PAG-BASE-AMOUNT` BASE_AMOUNT	Signed 15.2	Contains the costs in the company's base currency.	PA59.1

Indexes (3)

Keys marked * are descending. Every documented Lawson index is unique unless flagged Duplicates; Subset indexes carry a Where condition.

Index	Keys	Flags	Used in
`PAGSET1`	`COMPANY`, `EMPLOYEE`, `TYPE`, `GRIEV-DIS-NBR`	Primary	HR11.1, HR170, HR70.1, ZH500, PA115, PA259, PA59.1, PA59.2
`PAGSET2`	`COMPANY`, `EMPLOYEE`, `TYPE`, `GRIEV-DIS-NBR*`		PA59.1
`PAGSET3`	`COMPANY`, `EMPLOYEE`, `TYPE`, `DATE`, `GRIEV-DIS-NBR`	KeyChange	HR170, HR70.1, ZH500, PA259

Relations

One to one (19) — lookups and parents

Relation	Table	Rules	Condition	Field map
Bargain Unit	PCODES	Required	When PAG-BARGAIN-UNIT != Spaces	`"BU"` → `PCO-TYPE`, `PAG-BARGAIN-UNIT` → `PCO-CODE`
Base Currency	CUCODES	Required	When (PAG-CURRENCY-CODE != Spaces)	`PAG-BASE-CURRENCY` → `CUC-CURRENCY-CODE`
Category	PCODES	Required	When PAG-GRIEV-DIS-CAT != Spaces	`"GC"` → `PCO-TYPE`, `PAG-GRIEV-DIS-CAT` → `PCO-CODE`
Company	PRSYSTEM	Required		`PAG-COMPANY` → `PRS-COMPANY`, `Spaces` → `PRS-PROCESS-LEVEL`
Contact	EMPLOYEE	Required	When PAG-CONTACT-NBR != Zeroes	`PAG-COMPANY` → `EMP-COMPANY`, `PAG-CONTACT-NBR` → `EMP-EMPLOYEE`
Currency	CUCODES	Required	When (PAG-CURRENCY-CODE != Spaces)	`PAG-CURRENCY-CODE` → `CUC-CURRENCY-CODE`
Department	DEPTCODE	Required	When PAG-DEPARTMENT != Spaces	`PAG-COMPANY` → `DPT-COMPANY`, `PAG-PROCESS-LEVEL` → `DPT-PROCESS-LEVEL`, `PAG-DEPARTMENT` → `DPT-DEPARTMENT`
Employee	EMPLOYEE	Required		`PAG-COMPANY` → `EMP-COMPANY`, `PAG-EMPLOYEE` → `EMP-EMPLOYEE`
Griev Dis Cat	PCODES	Required	When PAG-GRIEV-DIS-CAT != Spaces	`"GC"` → `PCO-TYPE`, `PAG-GRIEV-DIS-CAT` → `PCO-CODE`
Griev Dis Stat	PCODES	Required	When PAG-GRIEV-DIS-STAT != Spaces	`"GS"` → `PCO-TYPE`, `PAG-GRIEV-DIS-STAT` → `PCO-CODE`
Job Code	JOBCODE	Required	When PAG-JOB-CODE != Spaces	`PAG-COMPANY` → `JBC-COMPANY`, `PAG-JOB-CODE` → `JBC-JOB-CODE`
Location	PCODES	Required	When PAG-LOCAT-CODE != Spaces	`"LO"` → `PCO-TYPE`, `PAG-LOCAT-CODE` → `PCO-CODE`
Outcome	PCODES	Required	When PAG-OUTCOME != Spaces	`"GO"` → `PCO-TYPE`, `PAG-OUTCOME` → `PCO-CODE`
Paemployee	PAEMPLOYEE	Not Required		`PAG-COMPANY` → `PEM-COMPANY`, `PAG-EMPLOYEE` → `PEM-EMPLOYEE`
Process Level	PRSYSTEM	Required	When PAG-PROCESS-LEVEL != Spaces	`PAG-COMPANY` → `PRS-COMPANY`, `PAG-PROCESS-LEVEL` → `PRS-PROCESS-LEVEL`
Report By	EMPLOYEE	Required	When PAG-REPORTS-BY != Zeroes	`PAG-COMPANY` → `EMP-COMPANY`, `PAG-REPORTS-BY` → `EMP-EMPLOYEE`
Status	PCODES	Required	When PAG-GRIEV-DIS-STAT != Spaces	`"GS"` → `PCO-TYPE`, `PAG-GRIEV-DIS-STAT` → `PCO-CODE`
Super Emp	EMPLOYEE	Required	When (PAG-SUPERVISOR-EMP != Zeroes)	`PAG-COMPANY` → `EMP-COMPANY`, `PAG-SUPERVISOR-EMP` → `EMP-EMPLOYEE`
Union	PCODES	Required	When PAG-UNION-CODE != Spaces	`"UN"` → `PCO-TYPE`, `PAG-UNION-CODE` → `PCO-CODE`

One to many (1) — child tables

Relation	Table	Rules	Condition	Field map
Action Steps	PAGRDISTEP	Delete Cascades		`PAG-COMPANY` → `PGI-COMPANY`, `PAG-EMPLOYEE` → `PGI-EMPLOYEE`, `PAG-TYPE` → `PGI-TYPE`, `PAG-GRIEV-DIS-NBR` → `PGI-GRIEV-DIS-NBR`, → `PGI-SEQ-NBR`

PAGRDI – Grievance,Disciplinary Actions

About PAGRDI

Fields (37)

Indexes (3)

Relations

One to one (19) — lookups and parents

One to many (1) — child tables

Programs

Updated by (3)

Referenced by (4)