$ define payhist_work users2:[pay.files]payhist_work

 

$ pdel

DELETE V6.8-02 - Delete Data File Records                   11:23 AM

Copyright (c) 2000, Campus America, Inc.

Data File Name <PAYWAGEHST>? payhist_work/all

Last active record number: 66

Sure delete these records <NO>? y

Really sure <NO>? y

Beginning the Deletion                            11:23 AM

Records deleted

Last active record number reset to Zero.

 

Key file build complete                           11:23 AM

 

Finished    11:23 AM

 

$ sort payhist

 

Fields to Sort (15 Maximum)

Level 1...Field? payrollid

Level 2...Field?

Sorting on 1 field specified.

 

Select out special records <NO>? y

 

Criterion  A

Field? prldate/extr="-4,4"

Low ? 20040701

High? 20050630

 

Criterion  B

Field? groupecode

Low ? 1

High? 2

 

Criterion  C

Field?

 

Selection statement? a and b

Field extraction started                          11:25 AM

Field extraction started                          11:25 AM

Pointer file build started                        11:25 AM

Pointers to 4361 records constructed.             11:25 AM

 

$ transfer

TRANSFER V6.8-02 - Information Transfer Program             11:27 AM

Copyright (c) 2000, Campus America, Inc.

Left-side Data File Name <PAYHIST>?

Right-side Data File Name? payhist_work/extend

Number of pointers in the Pointer file: 4361

Does that seem correct <NO>? y

Key Field Load <NO>? no

Number of Level Breaks <0>? 1

 Level 1...Field? payrollid

Command   1? payrollid to payrollid

Command   2?

Proceed with the Transfer <NO>? y

 

Transfer started                                  11:27 AM

 

Last active right-side file record number: 295

 

Finished    11:28 AM

 

$ transfer

TRANSFER V6.8-02 - Information Transfer Program             11:29 AM

Copyright (c) 2000, Campus America, Inc.

Left-side Data File Name <PAYHIST>?

Right-side Data File Name? payhist_work

Number of pointers in the Pointer file: 4361

Does that seem correct <NO>? y

Key Field Load <NO>? y

 Left-side file field to key on <1>? payrollid

Number of Level Breaks <0>? 1

 Level 1...Field? payrollid

Command   1? .code001 to .code001/sum

Command   2?

Proceed with the Transfer <NO>? y

 

Transfer started                                  11:30 AM

 

 

$ sort payhist_work

 

Fields to Sort (15 Maximum)

Level 1...Field?

No Sorting requested

 

Select out special records <NO>? y

 

Criterion  A

Field? code001

Low ? 50000

High? 999999

 

Criterion  B

Field?

 

Selection statement? a

Field extraction/Pointer build started            11:32 AM

Pointers to 9 records constructed.                11:32 AM

 

$ point

POINTER V6.8-01 - DMS-Plus Quick Pointer File Builder       11:32 AM

Copyright (c) 2000, Campus America, Inc.

Data File Name <PAYHIST_WORK>?

Type "HELP" for assistance

 

Option? sho

Rec 45         433-90-5279

Rec 68         440-88-5175

Rec 94         442-60-8258

Rec 122        443-78-1487

Rec 198        447-58-5553

Rec 216        448-52-1369

Rec 231        450-78-0623

Rec 262        507-58-9726

Rec 291        585-78-9155

 

 

Option? sho/f:1,code001

Rec 45         433-90-5279  92,107.00

Rec 68         440-88-5175  63,855.86

Rec 94         442-60-8258  62,830.75

Rec 122        443-78-1487  53,107.25

Rec 198        447-58-5553  62,394.23

Rec 216        448-52-1369  52,788.59

Rec 231        450-78-0623  50,094.00

Rec 262        507-58-9726  60,576.92

Rec 291        585-78-9155  55,314.15

 

 

Option?

 

Finished    11:33 AM

 

$ pprint

PRINT V6.8-05 - DMS-Plus Report Generator                   11:33 AM

Copyright (c) 2000, Campus America, Inc.

Data File Name <PAYHIST_WORK>? /nh/tr

Translation Data File 1? paymast

Translation Data File 2?

 

Number of blank lines between records <0>?

Number of spaces between columns <1>?

 

Enter column commands

Column 1 (Line 1, Pos 1)...Field? payrollid/tr:.fullname

Column 2 (Line 1, Pos 37)...Field? code001

Column 3 (Line 1, Pos 48)...Field?

 

Number of lines per page <55>?

Number of Level Breaks <0>?

Report Date <10-Feb-2006>?

Heading 1? employees paid 07012004-06302005 with gross over 50k

Heading 2?

Number of copies <1>?

Report Name? grossover50k

Paper type <LA12>? -1

 

Report Generation Started                         11:34 AM

 

 

Report Generation Completed                       11:34 AM

1 page written to USERS2:[PAY_FLOY]GROSSOVER50K.LIS;

 

Finished    11:34 AM

 

$ mail/subj="grossover50k" grossover50k.lis sysmgr