IMP.ASMT.FROM.ADIRONDACK

Overview

Compiled BASIC in the BP file that runs S.IMP.ASMT.FROM.ADIRONDACK.I35 to import room assignment and meal assignment information into Colleague. And S.IMP.GHST.ASMT.ADIRONDACK.I35 to cancel Ghost Assignments  Imports from \\erpapp\colleague\ftp\coll18_live\data\_HOLD_.

Usage

IMP.ASMT.FROM.ADIRONDACK [TYPE] [POSTFIX] -N

TYPE - Either MPAS,RMAS or GA

              MPAS - Meal Plan Assignment Imports
              RMAS - Room Assignment Imports
              GA - Ghost Assignments to cancel

POSTFIX - optional non-breaking string to import a non-standard file from HOLD,
default files are INDWES_ASSIGNMENT_EXPORT.txt,INDWES_DINING_EXPORT.txt 
and INDWES_GA_EXPORT.txt

-N - Used to keep the batch from stopping for each page of output.

Examples:
-------------------------------------------------------------------------------------------------------------------
Import rooms assignments with default file name
IMP.ASMT.FROM.ADIRONDACK RMAS  -N

Import meal plan assignments with default file name
IMP.ASMT.FROM.ADIRONDACK MPAS -N

Import room assignments from a non-standard file (ASSIGNMENT_EXPORT_FA.txt)
IMP.ASMT.FROM.ADIRONDACK RMAS FA -N

Batch Code:
------------------------------------------------------------------------------------------------------------------

CRT OCONV(DATE(),"MTH")
X.COMMAND = @COMMAND
*TRIM OFF THE -N
X.N = INDEX(X.COMMAND,"-N",1)
IF X.N THEN
  X.COMMAND = X.COMMAND[0,X.N-2]
END
SWAP " " WITH @FM IN X.COMMAND
X.ARGS = X.COMMAND
*GET RID OF THE FUNCTION NAME
DEL X.ARGS<1>
X.TYPE = "RMAS"
X.FILETYPE = "ASSIGNMENT"
X.POSTFIX = ""
IF X.ARGS<1> = "MPAS" THEN
  X.TYPE = "MPAS"
  X.FILETYPE = "DINING"
END 
IF X.ARGS<1> = "GA" THEN
   X.TYPE = "GA"
   X.FILETYPE = "GA"
END
IF X.ARGS<2> THEN
  X.POSTFIX  = "_":X.ARGS<2>
END
X.FILENAME="INDWES_":X.FILETYPE:"_EXPORT":X.POSTFIX:".txt"
CRT X.FILENAME
IF X.TYPE = "GA" THEN
    CALL S.IMP.GHST.ASMT.ADIRONDACK.I35(X.FILENAME)
END ELSE
    CALL S.IMP.ASMT.FROM.ADIRONDACK.I35(X.FILENAME,X.TYPE)
END
CRT OCONV(DATE(),"MTH")