使用 STACK/UNSTACK 將 MFS 3270 裝置格式轉換成符號名稱格式

IMS MFS 語言公用程式的編譯陳述式 STACK 和 UNSTACK 可用來將現有的 MFS 3270 裝置格式轉換成使用者定義的裝置類型符號名稱格式。 STACK 陳述式用來描述一個以上 SYSIN 或 SYSLIB 記錄，並要求那些記錄在處理之後保留在儲存體中以供稍後使用。 UNSTACK 陳述式要求擷取先前處理的 SYSIN/SYSLIB 記錄堆疊。

例如，使用下列現有的 3270 格式定義:

label    FMT
         DEV       TYPE=(3270,2), ...
         DIV       TYPE=INOUT
         DPAGE     CURSOR=((2,3))
label    DFLD
label    DFLD
label    DFLD
         FMTEND

您可以使用 DEV 陳述式及編譯陳述式 STACK 和 UNSTACK ，為大型螢幕顯示裝置建立使用者定義的裝置類型符號名稱 (使用 TYPE=3270-An) 格式，如下所示:

label    FMT
         DEV       TYPE=3270,2,...
         STACK     ON
         DIV       TYPE=INOUT
         DPAGE     CURSOR=((1,2))
label    DFLD
label    DFLD
label    DFLD
         STACK     OFF
         DEV       TYPE=3270-A2,...
         UNSTACK
         FMTEND

UNSTACK 陳述式會導致 STACK ON 與 STACK OFF 之間的陳述式重複。除了 3270 型號 2 裝置格式之外，還會為 3270-A2建立裝置格式，其裝置佈置與 3270 型號 2 相同。