|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1832 (0x728)
Types: TextFile
Notes: UNIX file
Names: »aid.ufillp«
└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
└─⟦this⟧ »ua/new/usr/UAP/cmds/aid.ufillp«
: '
aid.ufillp - Backend to help do UFILL template printing operations
*
* Translated/modified: 22.07.88 - Regnecentralen/Arne G. Jensen
*
V..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T......T.............H.
Usage: aid.ufillp mode rep form
or: aid.ufillp -V
mode - is DF for data and form
D for data only
F for form only
CP for to CP buffer 0 only
rep - is the string "rep" and indicates which UFILL directory to
pull forms from (ufill/rep). Not used at present
form - is the template name
'
MODE="$1"
PASTE9=$Utemp/WPCP9$Utty
PASTE8=$Utemp/WPCP8$Utty
PASTE7=$Utemp/WPCP7$Utty
PASTE0=$Utemp/WPCP0$Utty
case "$MODE" in
-[Vv]) exec echo "$0: Vs. 6.00"
;;
D|DF|CP) test -f $PASTE9 || exec echo "Ingen data i MF lager 9.
Blanketten er formentligt ikke udfyldt."
;;
F) ;;
*) exec echo "$0: Unknown mode - \"$MODE\"";;
esac
TEMPLATE=$Uniplex/ufill/rep/$3
test -f $TEMPLATE || exec echo "$0: Ukendt blanket - \"$3\""
case "$MODE" in
DF) PRINT="udfyldt blanket: $3"
echo "Genererer udskrift for $PRINT (vha. MF lager 8) ..."
ureport $TEMPLATE <$PASTE9 >$PASTE8
;;
D) PRINT="kun data for blanket: $3"
echo "Genererer udskrift $PRINT (vha. MF lager 7 og 8) ..."
utemplate <$TEMPLATE >$PASTE7
ureport $PASTE7 <$PASTE9 >$PASTE8
;;
F) PRINT="tom blanket: $3"
echo "Genererer udskrift for $PRINT (vha. MF lager 8) ..."
echo '\0240' | ureport $TEMPLATE >$PASTE8
;;
CP) PRINT="udfyldt blanket: $3"
echo "Gemmer $PRINT i MF lager 0 ..."
ureport $TEMPLATE <$PASTE9 >$PASTE0
exit
;;
esac
exec ufill sprint $PASTE8 "$PRINT" "" "" $PASTE8