Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Please identify the programming language in teh below code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
maheshunni

New User


Joined: 10 Dec 2007
Posts: 2
Location: Bangalore

PostPosted: Fri Nov 14, 2008 10:42 am    Post subject: Please identify the programming language in teh below code
Reply with quote

Please identify the programming language in the below code:

Code:
GetCDSid:
If debug Then Say '..GetCDSid'
 
   CDSid = ''
  'CGI GETVAR HTTP_COOKIE (VAR COOKIE'
   parse var cookie .  'WSL-credential=' wsl ';' .
   If wsl ^='' Then
   Do
     'PIPE (end \)',
         'var wsl',
       '| spec /COOKYCHK -tsei/ 1 w 1 nw',
       '| COMMAND | ',
       '  Console | ',
      'A:      TAKE 1 | Var valid \',
      'A: | B: CASEI LOCATE 1.7  /CURRENT/  | Specs word3-* next | var cstamp \',
      'B: | C: CASEI LOCATE 13.7 /ISSUED:/  | Specs word3-* next | var istamp \',
      'C: | D: CASEI LOCATE 13.8 /EXPIRES:/ | Specs word3-* next | var estamp \',
      'D: | E: CASEI LOCATE 14.5 / 001:/    | Specs word4   next | var CDSid  \',
      'E: | stem leftovers.'
 
      Parse var cdsid . '=' cdsid
      Upper CDSid
      CDSid = Strip(CDSid)
      If cdsid = '' Then
         wsl = ''
      Else
      Do
         next_day = (SubWord(istamp,1,3) ^= SubWord(cstamp,1,3))
         ctime = Word(cstamp,4)
         itime = Word(istamp,4)
         Parse Var ctime ch ':' cm ':' cs
         Parse Var itime ih ':' im ':' is
         recheck =  (ch + next_day * 24  - ih > 2) | ,
                   ((ch + next_day * 24  - ih = 1) & (im < cm))
         If recheck Then wsl = ''
       End
    End
   If wsl = '' Then
      hdr = 'Location: 'wslurl'?back='myurl
Return
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Nov 14, 2008 11:08 am    Post subject:
Reply with quote

Hello,

Where did you find this code?

Is it currently being run? If so, describe the environment where this runs.

Are there other modules with similar code in some library?

NOTE: The duplicate topic has been "locked". Let me know if the locked topic is still needed for anything.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Fri Nov 14, 2008 11:31 am    Post subject:
Reply with quote

REXX.

O.
Back to top
View user's profile Send private message
maheshunni

New User


Joined: 10 Dec 2007
Posts: 2
Location: Bangalore

PostPosted: Fri Nov 14, 2008 12:17 pm    Post subject: Environment is VM:webgateway webserver
Reply with quote

Environment is VM:webgateway webserver
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts COBOL Programming Sandpit? jodrisco COBOL Programming 6 Wed Apr 12, 2017 3:47 am
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us