How to make a report that shows all PIN assigned to Personnel objects in the system.

Issue

The PIN attribute of personnel objects has some limitations on visibility since it is considered sensitive information, this is the reason why Personnel PINs  do not show up in the personnel editor (it shows as ****) or List views.

Product Line

Andover Continuum

Environment

CyberStation

Cause

Function as designed.

Resolution

One way to generate a report that shows all personnel objects PIN is to create a CyberStation program that prints the PIN to a file (or some other print destination)

The following is a sample of a Looping CyberStation program that accomplishes the above.

--------------------------------
Numeric CNT, OK
File NEWDATA
Object thePerson

OPENINGFILE:
  OK = OpenFile("C:\Temp\ALLPINS2.TXT", WriteOnly, NEWDATA)
  If OK = Failure then Goto ENDING Else Goto PRINTTOFILE

PRINTTOFILE:
  OpenList("Personnel", thePerson, Root)
  While GetObject(thePerson) is Success
    Print thePerson PIN to NEWDATA
  Endwhile
CloseList(thePerson)
  Goto CLOSINGFILE

CLOSINGFILE:
  OK = CloseFile(NEWDATA)
  If OK = Failure then Print "CANNOT CLOSE TEXT FILE" else goto ENDING

ENDING:
  Stop
--------------------------------