!TCL=100, Jason Penney, jasonpenney@yahoo.com, 2/1/01
!TITLE=SQR
!SORT=Y
!CHARSET=ANSI

!TEXT=ascii ^
ascii(\^)
!
!TEXT=BEGIN-FOOTING
BEGIN-FOOTING
END-FOOTING


!
!TEXT=BEGIN-HEADING
BEGIN-HEADING 10
#include 'stdhdg01.sqc'
END-HEADING


!
!TEXT=BEGIN-PROCEDURE
\!********************************************************************
\!Procedure:
\!
\!********************************************************************
BEGIN-PROCEDURE {procedure_name}
#debugp show 'PROC: '
END-PROCEDURE


!
!TEXT=BEGIN-PROCEDURE/SELECT
\!********************************************************************
\!Procedure:
\!
\!********************************************************************
BEGIN-PROCEDURE {procedure_name}
#debugp show 'PROC: '
BEGIN-SELECT [DISTINCT] [LOOPS=nn] [ON-ERROR=procedure[(arg1[,argi]...)]]
END-SELECT
END-PROCEDURE


!
!TEXT=BEGIN-PROGRAM
BEGIN-PROGRAM
END-PROGRAM


!
!TEXT=BEGIN-SELECT
BEGIN-SELECT [DISTINCT] [LOOPS=nn] [ON-ERROR=procedure[(arg1[,argi]...)]]
END-SELECT

!
!TEXT=BEGIN-SETUP
BEGIN-SETUP
END-SETUP


!
!TEXT=BEGIN-SQL
BEGIN-SQL [ON-ERROR=procedure[(arg1[,argi]...)]]
END-SQL

!
!TEXT=CALL SYSTEM
CALL SYSTEM USING {command} {status}
!
!TEXT=chr ^
chr(\^)
!
!TEXT=edit ^
edit( \^, 'mask' )
!
!TEXT=EVALUATE
EVALUATE {string}
WHEN=
WHEN=
WHEN-OTHER
END-EVALUATE

!
!TEXT=getenv ^
getenv(\^)
!
!TEXT=INPUT
INPUT {var_name} [MAXLEN=nn] [prompt]
   [TYPE={CHAR|NUMBER|INTERGER|DATE}]
   [STATUS={num_var}][NOPROMPT]

!
!TEXT=instr ^
instr(\^,'search_value',#start_pos)
!
!TEXT=isblank ^
isblank(\^)
!
!TEXT=isnull ^
isnull(\^)
!
!TEXT=length ^
length(\^)
!
!TEXT=lower ^
lower(\^)
!
!TEXT=lpad ^
lpad(\^,#total_length,'pad_char')
!
!TEXT=ltrim ^
ltrim(\^,'trim_char')
!
!TEXT=ltrim(rtrim(^,' '),' ')
ltrim(rtrim(\^,' '),' ')
!
!TEXT=range ^
range(\^,'start_range','end_range')
!
!TEXT=round ^
round(\^,#decimal_places)
!
!TEXT=rpad ^
rpad(\^,#total_length,'pad_char')
!
!TEXT=rtrim ^
rtrim(\^,'trim_char')
!
!TEXT=substr ^
substr(\^,#start_pos,#length)
!
!TEXT=TITLE BAR
\!***********************************************************************
\! SQR NAME                                                             *
\!***********************************************************************
\! Description:                                                         *
\!                                                                      *
\!                                                                      *
\!***********************************************************************
\! Tables Referenced:                                                   *
\!                                                                      *
\! DEBUGGING:                                                           *
\!   #debugp = shows procedure names                                    *
\!   #debugt = show statements for testing                              *
\!***********************************************************************
\!  MOD#    DATE   Programmer   Description                             *
\! ------ -------- -----------  ----------------------------------------*
\! 000000          J. Penney    Initial Coding                          *
\!***********************************************************************

\!PEOPLESOFT INCLUDE FILES
#include 'setenv.sqc'    !Set environment
#include 'setup31.sqc'   !Printer and page-size initialization
#include 'curdttim.sqc'  !Get-Current-DateTime procedure
#include 'datetime.sqc'  !Routines for date and time formatting
#include 'datemath.sqc'  !Routines for date arithmetic
#include 'reset.sqc'     !Reset printer procedure
#include 'number.sqc'    !Routines to format numbers
#include 'stdapi.sqc'    !Routines to Update Run Status

!
!TEXT=to_char ^ (SQR)
to_char(\^)
!
!TEXT=to_char(^,'YYYYMMDD')
to_char(\^,'YYYYMMDD')
!
!TEXT=to_date(^,'YYYYMMDD')
to_date(\^,'YYYYMMDD')
!
!TEXT=to_number ^
to_number(\^)
!
!TEXT=translate ^
translate(\^,'orig_char','swap_char')
!
!TEXT=upper ^
upper(\^)
!

!TEXT=#debugp
#debugp show 'PROC: '
!