Skip to main content
Indiana Wesleyan University Support Knowledge Base

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")
  • Was this article helpful?