@moitaro (moi taro)posted at 2021-01-14

CRTMNU で作ったと思われるメニューの設定が知りたい

Q&A

解決したいこと

現在社内AS400上でシステムが動作しています。

ログインするとすぐメニュー画面に行くのですが
その際どういう設定でメニューに行っているか知りたい。

テストのため自分でPUB400.com上で
CRTMNUとしたがまずTYPEが分かりません……
*PGMだと

                              Create Menu (CRTMNU)

 Type choices, press Enter.

 Menu . . . . . . . . . . . . . . MENU         > MOITEST
   Library  . . . . . . . . . . .                  *CURLIB
 Menu type  . . . . . . . . . . . TYPE         > *PGM
 Program  . . . . . . . . . . . . PGM            *MENU
   Library  . . . . . . . . . . .                  *LIBL
 Current library  . . . . . . . . CURLIB         *NOCHG
 Product library  . . . . . . . . PRDLIB         *NOCHG
 Replace menu . . . . . . . . . . REPLACE        *YES
 Text 'description' . . . . . . . TEXT           *SRCMBRTXT

と表示され
*DSPFだと

                              Create Menu (CRTMNU)

 Type choices, press Enter.

 Menu . . . . . . . . . . . . . . MENU         > MOITEST
   Library  . . . . . . . . . . .                  *CURLIB
 Menu type  . . . . . . . . . . . TYPE         > *DSPF
 Display file . . . . . . . . . . DSPF           *MENU
   Library  . . . . . . . . . . .                  *LIBL
 Message file . . . . . . . . . . MSGF           *MENU
   Library  . . . . . . . . . . .                  *LIBL
 Command line . . . . . . . . . . CMDLIN         *LONG
 Display function keys  . . . . . DSPKEY         *NO
 Current library  . . . . . . . . CURLIB         *NOCHG
 Product library  . . . . . . . . PRDLIB         *NOCHG
 Replace menu . . . . . . . . . . REPLACE        *YES
 Text 'description' . . . . . . . TEXT           *SRCMBRTXT

と表示されます。

現在業務で使用しているシステムが
*PGMか*DSPFだと思うのですがどちらを利用しているのか分かりかねるので
設定を知りたいと思っております。

そのようなコマンドは無いのでしょうか？？？

自分で試したこと

コマンド入力の所で　F4を押下しメジャー・コマンド・グループ　で
EDTMNU　みたいなの無いかな？と探したり
グーグルさんで調べたりしたのですが見つけられませんでした。

7Answer

@moitaro posted at 2021-01-19

http://iroiro400.sakura.ne.jp/sda.htm
で

                                Design Screens

 Type choices, press Enter.

   Source file . . . . . . . .   QDDSSRC      Name, F4 for list                 
     Library . . . . . . . . .   MOITARO1     Name, *LIBL, *CURLIB              
   Member  . . . . . . . . . .   MA2TEST      Name, F4 for list

ってなる　でエンターキーで

                      Work with Display Records

 File  . . . . . . :   QDDSSRC                Member . . . . . . :   MA2TEST       Library . . . . :     MOITARO1             Source type  . . . :   DSPF

 Type options, press Enter.
   1=Add             2=Edit comments          3=Copy          4=Delete             7=Rename          8=Select keywords       12=Design image

 Opt  Order    Record        Type      Related Subfile   Date        DDS Error  
         10    MA2TEST       RECORD                      21-01-05                            
         20    MA3TEST       RECORD                      21-01-05

ってなるけどRECODETypeのMA3TESTってドレ？？？
なんか作った気がするんだけどな……

0Like

@moitaro posted at 2021-01-20

多分本番メニューは
CRTMNUじゃなくて
STRSDAから作ったのかと予想したが
そちらでも
Screen Design Aid (SDA)

Select one of the following:

  1. Design screens
  2. Design menus
  3. Test display files

と聞かれる……
(+_+)

0Like

@moitaro posted at 2021-01-20

で1のDesign screensを選択してみてみると……
Design Screens

Type choices, press Enter.

Source file . . . . . . . . QDDSSRC Name, F4 for list
Library . . . . . . . . . MOITARO1 Name, *LIBL, *CURLIB
Member . . . . . . . . . . MOI2TEST Name, F4 for list

って表示された。
メンバーMOI2TESTは無いので
Work with Display Records

File . . . . . . : QDDSSRC Member . . . . . . : MOI2TEST Library . . . . : MOITARO1 Source type . . . : DSPF

Type options, press Enter.
1=Add 2=Edit comments 3=Copy 4=Delete 7=Rename 8=Select keywords 12=Design image

Opt Order Record Type Related Subfile Date DDS Error

(No records in file)
って表示されたので
1　add　として
Add New Record

File . . . . . . : QDDSSRC Member . . . . . . : MOI2TEST Library . . . . : MOITARO1 Source type . . . : DSPF

Type choices, press Enter.

New record . . . . . . . . . . . . . . . MOI01DSPF Name

Type . . . . . . . . . . . . . . . . . . RECORD RECORD, USRDFN
SFL, SFLMSG
WINDOW, WDWSFL
PULDWN, PDNSFL
MNUBAR
ってすると

（自由に書けるスペース）

Work screen for record MOI01DSPF: Press Help for function keys.
となったので……
tesutodesuyo-- wa-i　って入力してエンターキーで

 tesutodesuyo.....i
：（空白）
 No target for move or copy at row/col 01,014. Press Enter.

ってなったので……空白がまずいのかと思って削除すしても

The operation at row/col 01,014 is invalid. Press Enter.
って言われて長いからだと思って

tesutodesu

ってしてエンターキー押して何にも言われなかったので
F3を押すと
Exit SDA Work Screen

Select one of the following:

 1. Save work since last Enter and exit work screen
 2. Exit without saving any work done on the work screen
 3. Resume work screen session

って言われてとりあえず
1のSaveすると……

                  Work with Display Records

File . . . . . . : QDDSSRC Member . . . . . . : MOI2TEST Library . . . . : MOITARO1 Source type . . . : DSPF

Type options, press Enter.
1=Add 2=Edit comments 3=Copy 4=Delete 7=Rename 8=Select keywords 12=Design image

Opt Order Record Type Related Subfile Date DDS Error
10 MOI01DSPF RECORD 21-01-20

ってなんかRECORDでで追加されましたっ

動作を見るのに3で……
Copy Records

File . . . . . . : QDDSSRC Member . . . . . . : MOI2TEST Library . . . . : MOITARO1 Source type . . . : DSPF

To rename copied record, type new name, press Enter. Press F12=Cancel to return to change your choices.

Record Type New Name
MOI01DSPF RECORD MOI02DSPF
って
MOI02DSPFでコピーすると
Work with Display Records

File . . . . . . : QDDSSRC Member . . . . . . : MOI2TEST Library . . . . : MOITARO1 Source type . . . : DSPF

Type options, press Enter.
1=Add 2=Edit comments 3=Copy 4=Delete 7=Rename 8=Select keywords 12=Design image

Opt Order Record Type Related Subfile Date DDS Error
10 MOI01DSPF RECORD 21-01-20 20 MOI02DSPF RECORD 21-01-20

                                                                     Bottom  F3=Exit                     F12=Cancel      F14=File-level keywords             F15=File-level comments     F17=Subset      F24=More keys                       Record MOI01DSPF copied to record MOI02DSPF.

ってなりました。

0Like

@moitaro posted at 2021-01-20

2
Columns . . . : 1 71 Edit Record comments
SEU==> MOI01DSPF
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 *************** Beginning of data *************************************
0000.10 A* ****************** End of data ****************************************

12でDesign imageとすると
tesutodesu
と表示され
2のEditCommentsとすると
Columns . . . : 1 71 Edit Record comments
SEU==> MOI02DSPF
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 *************** Beginning of data *************************************
0000.10 A* ****************** End of data ****************************************
と表示されるけど
A*　って何？？？DSPFのA*でググると……
https://as400-howto.xyz/dspf/dspf-basic/
等見つかりました。

0Like

This answer has been deleted for violation of our Terms of Service.

Are you sure you want to delete the question?

CRTMNU で作ったと思われるメニューの設定が知りたい

解決したいこと

自分で試したこと

7Answer

Your answer might help someone💌