IBM AS/400E Authority Required to Receive Spooled Files

Authority Required to Receive Spooled Files
The destination system administrator restricts output queue access for users without
user IDs on the destination system. This is done by restricting the access
authorities of the QTMPLPD user ID, which is the default profile used for any user
ID that is not found. However, this restriction does not affect user IDs that are found
on the destination system.
#!/bin/csh -f
#-
# Convert ASCII file to EBCDIC and send it to AS/400
# to be received as *SCS file
# the AS/400, it is required that the "working" LPD
# PRTF located in QUSRSYS be changed with the following
# command:
#
# CHGPRTF FILE(QUSRSYS/QPTMPLPD) DEVTYPE(*SCS)
#
# When you are finished, restore the original settings
# with:
#
# CHGPRTF FILE(QUSRSYS/QPTMPLPD) DEVTYPE(*USERASCII)
#
# Caveats:
#
# - Square brackets will not convert properly. Other
# special characters may not convert properly.
#
# - If you customize the QUSRSYS/QPTMPLPD, you will
# affect all users of LPD services who may not want
# *SCS files.
#
# - It is strongly recommended that QTCP/QPTMPLPD be
# left alone. This is the working installation
# default version. Copy or customize it to another
# library that will be found ahead of QTCP.
#
# - If you erase the copy of QPTMPLPD in QUSRSYS, your
# *LIBL is searched, and if no QPTMPLPD is found, the
# version in QTCP is used. Therefore, you may copy
# the QPTMPLPD printer file to a private library in
# your *USRLIBL or *CURLIB and change it to be *SCS
# without affecting other users, provided your copy
# is found ahead of any other versions (namely, the
# one in QTCP).
#-------------------------------------------------------
set nm=$0
if ("$1" == "-h" || "$1" == "") then
echo " "
echo "Usage:" "$nm:t" "[-h] file(s)"
echo " "
echo "Will convert file to EBCDIC and LPR to AS/400 printer queue"
echo "using the following string:"
echo " "
echo " dd conv=ebcdic cbs=132 < $* | lpr -P as400 -l"
echo " "
exit
endif
echo "dd conv=ebcdic cbs=132 < $* | lpr -P as400 -l"
dd conv=ebcdic cbs=132 < $* | lpr -P as400 -l
exit;
Figure 229. SampleAIX C Shell for Printing AIX File on AS/400
Chapter12. Line Printer Daemon (LPD) 375